Indicar la celda inicial a mi rutina
Tengo una base de datos que voy alimentando, así que voy acumulando datos cada mes y si ejecuto mi macro obviamente se tardará cada día más, lo que pretendo es que con un inputbox me deje seleccionar a partir de donde quiero que inicie mi rutina para que no inicie nuevamente desde la fila 1 (For i = 1), sino a partir de la celda que yo seleccione hasta la última fila,
Gracias
Adjunto mi código
Sub Comisiones() Application.ScreenUpdating = False Dim ULTIMAFILA As Integer ULTIMAFILA = Cells(Application.Rows.Count, 2).End(xlUp).Row 'comienzo el bucle For i = 1 To ULTIMAFILA Step 1 If Cells(i, 3) Like "*IVA*" Then 'criterio que debe cumplir Cells(i, 5).Cut Cells(i, 4) End If Next i Application.ScreenUpdating = True End Sub
2 respuestas
Respuesta de Elsa Matilde
1
Te dejo la macro con el agregado:
Sub Comisiones()
Application.ScreenUpdating = False
Dim ULTIMAFILA As Integer, PRIMERA As Integer
PRIMERA = Val(InputBox("Ingresa la primer fila a considerar,"))
If Not IsNumeric(PRIMERA) Or PRIMERA = 0 Then
MsgBox "Nro. inválido"
Exit Sub
End If
ULTIMAFILA = Cells(Application.Rows.Count, 2).End(xlUp).Row
'comienzo el bucle
For i = PRIMERA To ULTIMAFILA 'Step 1 'no hace falta indicarle el salto
If Cells(i, 3) Like "*IVA*" Then 'criterio que debe cumplir
Cells(i, 5).Cut Cells(i, 4)
End If
Next i
Application.ScreenUpdating = True
End Sub
Respuesta de Programar Excel
1
A la excelente respuesta dada puede que esto aporte algo más