Jump to content

Macro para eliminar filas con texto específico


Go to solution Solved by CSI1981,

Recommended Posts

Buenas tardes, tengo una planilla en donde voy trayendo datos de otras planillas (copio y pego) una vez que ya tengo toda la información, necesito que mediante una macro/formula se eliminen todas las filas en donde el primer dato (ubicado en la columna A) tiene el siguiente texto: QHP Standard 1,QHP Standard 2, QHP Standard 3, QHP Standard 4 y QHP Standard 5.

He aplicado la siguiente Macro, pero no se como unificar que evalúe las 5 variables, por lo que he tenido que hacer 5 macros, y después hacer una para unirlas a todas. Quisiera saber si existe la posibilidad de hacer solo una y que tome las 5 variables de texto posible

 

Sub Eliminar_Filas_1()

Sheets("Resultados exportados").Select
col = "A"
texto = "QHP Standard 1"

'
valor = texto
If IsNumeric(texto) Then valor = Val(texto)
If IsDate(texto) Then valor = CDate(texto)
'
Application.ScreenUpdating = False
For i = Range(col & Rows.Count).End(xlUp).Row To 1 Step -1
If LCase(Cells(i, "A")) = LCase(valor) Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "Filas eliminadas", vbInformation, "DAM"

End Sub

 

Desde ya muchas gracias

Link to post
Share on other sites
Sub Eliminar_Filas_1()
Dim Filas As Integer
Application.ScreenUpdating = False
Sheets("Resultados exportados").Select
col = "A"
texto = Array( _
            "QHP Standard 1", _
            "QHP Standard 2", _
            "QHP Standard 3", _
            "QHP Standard 4", _
            "QHP Standard 5")
Application.ScreenUpdating = False
For i = Range(col & Rows.Count).End(xlUp).Row To 1 Step -1
   For t = 0 To UBound(texto)
      If LCase(Cells(i, col)) = LCase(texto(t)) Then
         Filas = Filas + 1
         Rows(i).Delete
         Exit For
      End If
   Next
Next
Application.ScreenUpdating = True
MsgBox Filas & " Filas eliminadas", vbInformation, "DAM"
End Sub

 

Link to post
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
  • Crear macros Excel

  • Posts

    • nosotros usamos este link descargamos de SAT los xml y guardamos en una ruta y el programa tiene para importar los xml a excel, teda la opción de elegir la ruta, pero ese es de paga tiene de prueba de 10 días, ese que te pase es gratis checalo tambien @DiegoLG. a ver si le funciona saludos 
    • descarga este programa: descargarcfdi.zip y instalalo, ese programa tiene para importar xml a excel checalo, y me dices yo no puedo instalara programa en mi maquina no tengo permiso es maquina de mi trabajo, nosotros a qui en la empresa usamos uno de paga y ese es gratuito y la pagina dice Convertir tus archivos XML a Excel Podrás convertir la información de tus comprobantes fiscales (XML) exportándolos a MS Excel. Tendrás todos los datos de tus XML, incluidos los conceptos. Se genera un archivo de Excel con más de 120 columnas con los datos de los XML. Se desglosan los impuestos retenidos y trasladados por tipo y tasa.
    • Prueba y comenta... en el video veras que solo pone un si pero es que me he equivocado al subirlo el que he subido es de una prueba anterior, en realidad pasa todos los marcados. EEDD2020-3.xlsm
    • @DiegoLG En los ejemplos se extraen datos de nodos normales de xml, eso lo puedo hacer, lo que no he podido es extraer información de los nodos dentro de la seccion CDATA.   Gracias
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy