Jump to content
  • 34 ¿Te resultaría interesante una carpeta sobre Python para Excelen el foro?

    1. 1. ¿Te resultaría interesante una carpeta sobre Python para Excel en el foro?


      • Sí! Me interesa
      • No me interesa.
      • Otros (Escribe tu respuesta en el tema)

ELIMINAR COLUMNAS CON CRITERIO


Go to solution Solved by Antoni,

Recommended Posts

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

 

 

Link to comment
Share on other sites

  • Solution
Sub EliminarColumnasNoChiclayo()
Application.ScreenUpdating = False
For y = Cells(2, Columns.Count).End(xlToLeft).Column To 3 Step -1
   If Not Cells(2, y) Like "*Chiclayo*" Then Columns(y).Delete
Next
End Sub

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy