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

    • las columnas que mencionas fueron solo para tener una "visión" de las consideraciones necesarias para distinguir días y horas entre laborables o fin de semana y festivos y la separación de fecha-hora es solo trabajar en dos columnas: una la parte entera (días) y la otra la parte fraccionada (horas), funciones (obviamente) entero(... y residuo(... 1) y finalmente se convierte a valores y se elimina "la fuente" pero una vez que ha quedado visto (y comprendido), podemos regresar a tu modelo de base (menos columnas auxiliares para su comprensión) y resulta el nuevo adjunto horas x turno v2 (ayudaExcel).xlsx
    • Hola Hector Miguel, mil gracias por ese gran trabajo. Tengo las siguientes consultas relacionadas con la nueva versión del file. Lo descrito es lo que puedo interpretar de la revisión:  Columna J: Días. Indica la cantidad de días, más el primero y último día de la semana de la actividad. Columna K: Turno. Columna L: s/d/F. Cantidad de Sábados, Domingos y Feriados involucrados en la actividad. Columna M: Período. N° total de días en los que se desarrolló la actividad. Columna N: 6-s, 7-d, 8-f. Finalmente, quisiera preguntarte que método utilizaste para separar la celda que contiene la fecha y la hora, en 2 celdas separadas. Muchas gracias por la atención prestada a mi caso!!! Jeani    
    • No se si ya pudiste resolver el problema pero ¿Será que el formato de celda te ayude? En celda cuando quieres ver mas de 24:00 lo que se hace es darle el formato a la celda [hh]:mm:ss si fuera hh:mm:ss no verias en  la celda un dato mayor a a 24:00. Quiizas con eso presente puedas tener los resultados que esperas con tu codigo.   Saludos Valentino
    • Expertos buenas tardes, tengo un archivo de excel que funciona bastante bien lo unico es que en la hoja REPORTE hay grafico dinamicos se pierden los datos por la cantidad de informacion que existe no se hay una forma para poder arreglarlo, estare agradecido eternamente por favor. Adjunto el archvio. https://drive.google.com/file/d/1olczNQkvlp9gWiGGev2S3GtcItJtab3F/view?usp=sharing
    • Muchas gracias por el aporte! Y gracias a todos por participar
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy