Skip to main content
se añadieron 382 caracteres en el cuerpo
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

Tengo una macro para eliminar con la condición de un Nombre un numero de Filas en A ejemplo PEPE en A50 que tiene unos datos en A51:A55 y elimina todos los PEPE A.50:A55,Pero necesitaría todo lo contrario….. una Macro que en Columna A Eliminase todo los datos menos PEPE con sus datos ejemplo A50:A51 que esta repetido X veces en A en diferentes posiciones en A.

introducirSub elEliminarFilas_segun_texto código()
 aquí   Dim Texto As String, Celda As Range, Hoja As Worksheet
    Set Hoja = ThisWorkbook.Sheets("HOJA")
    Texto = InputBox("Texto a buscar")
    If Not Texto = "" Then
        For cont = Hoja.Range("A" & Rows.count).End(xlUp).Row To 3 Step -1
           Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole)
           If Not Celda Is Nothing Then
              Hoja.Range(Celda, Celda.Offset(24, 0)).EntireRow.Delete
           End If
        Next cont
    End If
End Sub

Sub EliminarFilas_segun_texto () Dim Texto As String, Celda As Range, Hoja As Worksheet Set Hoja = ThisWorkbook.Sheets("HOJA") Texto = InputBox("Texto a buscar") If Not Texto = "" Then For cont = Hoja.Range("A" & Rows.count).End(xlUp).Row To 3 Step -1 Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole) If Not Celda Is Nothing Then Hoja.Range(Celda, Celda.Offset(24, 0)).EntireRow.Delete End If Next cont End If End Sub

introducir el código aquí

Sub EliminarFilas_segun_texto () Dim Texto As String, Celda As Range, Hoja As Worksheet Set Hoja = ThisWorkbook.Sheets("HOJA") Texto = InputBox("Texto a buscar") If Not Texto = "" Then For cont = Hoja.Range("A" & Rows.count).End(xlUp).Row To 3 Step -1 Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole) If Not Celda Is Nothing Then Hoja.Range(Celda, Celda.Offset(24, 0)).EntireRow.Delete End If Next cont End If End Sub

Tengo una macro para eliminar con la condición de un Nombre un numero de Filas en A ejemplo PEPE en A50 que tiene unos datos en A51:A55 y elimina todos los PEPE A.50:A55,Pero necesitaría todo lo contrario….. una Macro que en Columna A Eliminase todo los datos menos PEPE con sus datos ejemplo A50:A51 que esta repetido X veces en A en diferentes posiciones en A.

Sub EliminarFilas_segun_texto ()
    Dim Texto As String, Celda As Range, Hoja As Worksheet
    Set Hoja = ThisWorkbook.Sheets("HOJA")
    Texto = InputBox("Texto a buscar")
    If Not Texto = "" Then
        For cont = Hoja.Range("A" & Rows.count).End(xlUp).Row To 3 Step -1
           Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole)
           If Not Celda Is Nothing Then
              Hoja.Range(Celda, Celda.Offset(24, 0)).EntireRow.Delete
           End If
        Next cont
    End If
End Sub
eliminar datos de A menos un criterio
Origen Enlace
Yimy
  • 1
  • 1
introducir el código aquí

Tengo una macro para eliminar con la condición de un Nombre un numero de Filas en A ejemplo PEPE en A50 que tiene unos datos en A51:A55 y elimina todos los PEPE A.50:A55, SubSub EliminarFilas_segun_texto () Dim Texto As String, Celda As Range, Hoja As Worksheet Set Hoja = ThisWorkbook.Sheets("HOJA") Texto = InputBox("Texto a buscar") If Not Texto = "" Then For cont = Hoja.Range("A" & Rows.count).End(xlUp).Row To 3 Step -1 Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole) If Not Celda Is Nothing Then Hoja.Range(Celda, Celda.Offset(24, 0)).EntireRow.Delete End If Next cont End If End Sub Pero necesitaría todo lo contrario….. una Macro que en Columna A Eliminase todo los datos menos PEPE con sus datos ejemplo A50:A51 que esta repetido X veces en A en diferentes posiciones en A. Saludos….

introducir el código aquí

Tengo una macro para eliminar con la condición de un Nombre un numero de Filas en A ejemplo PEPE en A50 que tiene unos datos en A51:A55 y elimina todos los PEPE A.50:A55, Sub EliminarFilas_segun_texto () Dim Texto As String, Celda As Range, Hoja As Worksheet Set Hoja = ThisWorkbook.Sheets("HOJA") Texto = InputBox("Texto a buscar") If Not Texto = "" Then For cont = Hoja.Range("A" & Rows.count).End(xlUp).Row To 3 Step -1 Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole) If Not Celda Is Nothing Then Hoja.Range(Celda, Celda.Offset(24, 0)).EntireRow.Delete End If Next cont End If End Sub Pero necesitaría todo lo contrario….. una Macro que en Columna A Eliminase todo los datos menos PEPE con sus datos ejemplo A50:A51 que esta repetido X veces en A en diferentes posiciones en A. Saludos….

introducir el código aquí
introducir el código aquí

Sub EliminarFilas_segun_texto () Dim Texto As String, Celda As Range, Hoja As Worksheet Set Hoja = ThisWorkbook.Sheets("HOJA") Texto = InputBox("Texto a buscar") If Not Texto = "" Then For cont = Hoja.Range("A" & Rows.count).End(xlUp).Row To 3 Step -1 Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole) If Not Celda Is Nothing Then Hoja.Range(Celda, Celda.Offset(24, 0)).EntireRow.Delete End If Next cont End If End Sub

Origen Enlace
Yimy
  • 1
  • 1

Macro para eliminar datos de Columna?

Tengo una macro para eliminar con la condición de un Nombre un numero de Filas en A ejemplo PEPE en A50 que tiene unos datos en A51:A55 y elimina todos los PEPE A.50:A55, Sub EliminarFilas_segun_texto () Dim Texto As String, Celda As Range, Hoja As Worksheet Set Hoja = ThisWorkbook.Sheets("HOJA") Texto = InputBox("Texto a buscar") If Not Texto = "" Then For cont = Hoja.Range("A" & Rows.count).End(xlUp).Row To 3 Step -1 Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole) If Not Celda Is Nothing Then Hoja.Range(Celda, Celda.Offset(24, 0)).EntireRow.Delete End If Next cont End If End Sub Pero necesitaría todo lo contrario….. una Macro que en Columna A Eliminase todo los datos menos PEPE con sus datos ejemplo A50:A51 que esta repetido X veces en A en diferentes posiciones en A. Saludos….

introducir el código aquí