Holas soy nuevo en el tema de macros.. estoy haciendo un macro que me mueva filas de una hoja a otras.
dependera del valor de una celda para que cada fila vaya a una hoja determinada.
Pero me tira error la siguiente linea:
mis hojas son: principal, interesados, nointeresados, seguimiento, noesta
Código:
principal.Range(Cells(celda, 1), Cells(celda, 13)).Copy Destination:=interesados.Range(Cells(celda, 1))
Al parecer si uso Range con Cells me tira error, si uso Range solo todo esta ok.. pero lo malo es que necesito usar range con cells para ubicarme en determinadas celdas.. alguien me puede decir que estoy haciendo mal? llevo varias horas y por mas que busco referencias no encuentro.. Es mas eh seguido la ayuda del excel y no veo error. Help
Adjunto mi codigo completo hasta ahora
Código:
Sub filtrarbaseventas()
Dim celda As Long
Dim celdamax As Long
celdamax = principal.UsedRange.Rows.Count
For celda = 1 To celdamax
Select Case principal.Cells(celda, 2).Value
Case "interesado"
principal.Range(Cells(celda, 1), Cells(celda, 13)).Copy Destination:=interesados.Range(Cells(celda, 1))
Case "No interesado"
principal.Range(Cells(celda, 1), Cells(celda, 13)).Copy Destination:=nointeresado.Range(Cells(celda, 1))
Case "Seguimiento"
principal.Range(Cells(celda, 1), Cells(celda, 13)).Cut Destination:=seguimiento.Range(Cells(celda, 1))
Case "No esta"
principal.Range(Cells(celda, 1), Cells(celda, 13)).Cut Destination:=noesta.Range(Cells(celda, 1))
Case Else
End Select
Next celda
End Sub
