Fallo en sheets("origen").select
Hola, estoy haciendo una rutina con bucle for y condicionada para que me guarde los datos en otra hoja del libro, pero me da error en cuando mando al origen. He creado una variable "hoja" donde anclo la condición. Os dejo el código para ver si me podéis echar una mano:
Private Sub CommandButton1_Click()
Dim agente As String
Dim hoja As String
For i = 1 To 40000
agente = Cells(i, 16)
hoja = Cells(1, 16)
If agente = Cells(1, 16) Then
Sheets(hoja).Select
Cells(i, 16) = agente
Sheets("origen").Select
End If
Next i
End Sub
1 respuesta
No es necesario moverse de hojas para colocar un dato. Esto te evitará el tener que nombrarlas (tu error puede estar en el nombre o en el hecho de que luego debes aclarar con ActiveSheet.Cells(...) )
Te quedaría así la parte del bucle:
For i = 1 To 40000 agente = Cells(i, 16) hoja = Cells(1, 16) If agente = Cells(1, 16) Then Sheets(hoja).Cells(i, 16) = agente End If Next i
Si esto resuelve tu consulta no olvides finalizarla.
