Hacer un bucle de busqueda en una columna

Dante:

Disculpa la molestia, hice un codigo para que busque en una columna "A" desde el rango 9 al 50 las filas que tienen información y la copie en otra hoja, pero solo me funciona una vez, podrias por favor ayudarme??

El codigo es:

For i = 9 To 50
Do While Cells(i, "A").Value <> ""
If Cells(i, "A") <> "" Then
celda = i
MsgBox "Celda a copiar" & celda
Cells(i, "A").Select
ActiveCell.EntireRow.Copy
Sheets("pedidos").Range("a2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("pedidos").Rows("2:2").EntireRow.Insert
'Sheets("pedidos").Select
Exit For
End If
Set i = i + 1
Loop
Next
If celda = "" Then MsgBox "Procedso terminado"

Gracias

1 respuesta

Respuesta
1

Te anexo el código

    Application.ScreenUpdating = False
    For i = 9 To 50
        If Cells(i, "A") <> "" Then
            Rows(i).Copy
            Sheets("pedidos").Range("a2").PasteSpecial Paste:=xlValues
            Sheets("pedidos").Rows(2).EntireRow.Insert
        End If
    Next
    MsgBox "Procedso terminado"

Saludos.Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas