necesito de su apoyo incondicional para este caso.
resulta que tengo una hoja con 900 columnas aprox. De esa hoja quiero eliminar todas las columnas (a partir de la columna 3) que en la fila 2 no contenga el texto "Chiclayo"
lo intento hacer de esta manera: pero no resulta
Dim COL As Integer
COL = 2
Do While Cells(3, COL) <> ""
If Cells(2, COL).Value <> "*" & Chiclayo & "*" Then
Cells(3, COL).EntireRow.Delete
COL = COL - 1
End If
COL = COL + 1
Loop
Espero me puedan ayudar
Muchas gracias de Antemano
* No puedo subir archivo de prueba
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenos días estimados amigos
necesito de su apoyo incondicional para este caso.
resulta que tengo una hoja con 900 columnas aprox. De esa hoja quiero eliminar todas las columnas (a partir de la columna 3) que en la fila 2 no contenga el texto "Chiclayo"
lo intento hacer de esta manera: pero no resulta
Dim COL As Integer
COL = 2
Do While Cells(3, COL) <> ""
If Cells(2, COL).Value <> "*" & Chiclayo & "*" Then
Cells(3, COL).EntireRow.Delete
COL = COL - 1
End If
COL = COL + 1
Loop
Espero me puedan ayudar
Muchas gracias de Antemano
* No puedo subir archivo de prueba