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 de Dante Amor
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.
