Urge una Macro en excel para buscar y eliminar usando contenido de una celda

Perdonen necesito su ayuda para hacer una macro vba en excel, en la cual use el contenido de una celda y busque en otra hoja en una columna el contenido y a la vez la borre.

Ejemplo (Hoja 1 Columna A (A1 "Casas", A2 "Mesas", A3 "Sillas", ..., A10 "Camas") y en la Hoja 2 celda B5 "Sillas", que la macro use el valor de la celda B5 en la Hoja 2 y que busque y elimine en la Hoja 1 Columna A

1 respuesta

Respuesta

¿Qué elimine el contenido de la celda o que elimine toda la fila?

Te anexo la macro para eliminar el contenido de la celda

Sub Macro1()
'
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    If h1.AutoFilterMode Then h1.AutoFilterMode = False
    u = h1.Range("A" & Rows.Count).End(xlUp).Row
    h1.Range("A1:A" & u).AutoFilter Field:=1, Criteria1:="=" & h2.Range("B5")
    h1.Range("A2:A" & u).ClearContents
End Sub

Para eliminar toda la fila

Sub Macro2()
'elimina toda la fila
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    If h1.AutoFilterMode Then h1.AutoFilterMode = False
    u = h1.Range("A" & Rows.Count).End(xlUp).Row
    h1.Range("A1:A" & u).AutoFilter Field:=1, Criteria1:="=" & h2.Range("B5")
    h1.Range("A2:A" & u).EntireRow.Delete
    If h1.AutoFilterMode Then h1.AutoFilterMode = False
End Sub

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tengo una base de datos escrita en columnas

Necesito que quede escrita de la siguiente forma ¿Cómo lo puedo hacer?
3 respuestas

Macro para cortar un texto en 25 caracteres

Me ayudan a generar una macro que corte un texto que está en la celda A2 en 2 textos, el primer texto que lo ponga en la celda B2, no deberá cortar ninguna palabra deberá cortar el texto en máximo 25 caracteres y cortarlo en donde haya un blanco, el...
4 respuestas

Seleccionar datos mediante un Combobox en formulario

Tengo un listado de números en una columna y me gustaría seleccionar cada número mediante un Combobox de un formulario, su parte inicial sería la siguiente prívate sub combobox_change() Range (“ex”)
2 respuestas

How do you perform Change Data Capture when replicating Salesforce data?

A challenge that comes with using these cloud-based CRMs is in integrating them with the internal data systems and reporting modules that rely upon getting up to date data from the CRM.
12 respuestas

Ubicación de las columnas de enmarcado

Quisiera saber a dónde se observa la las mencionadas columnas esto es referente a los proyectos de construcción.
1 respuesta

Detectar si hay caracteres raros o acentos en texto excel

Tengo una base de datos que me da error cuando intento encontrar un texto en un campo, independientemente de si está acentuado o no y me da la sensación de que hay algún carácter raro en algún texto. ¿Hay alguna fórmula que me encuentre todos los...
2 respuestas

Error en código para columna de una consulta

Un gusto saludarlos. Quería solicitar su ayuda, porque necesito crear una columna calculada dentro de una consulta access y para eso uso el siguiente código. Saldofinal: IIf(([Nivel]=1 Or [Nivel]=5), ([Sumadesaldoinicial]+[Sumadebe]-[Sumahaber]),...
3 respuestas

Access: doble clic en listbox (multiselect) para la apertura de un formulario con el registro seleccionado

Nuevamente necesito de su ayuda. Como dice el texto de arriba, tengo un listbox (multiselect) que utilizó para elegir registros filtrados para imprimir. El problema es que son varios campos y hay uno que es algo extenso, por lo que he intentado que...
2 respuestas

Código VBA para importar datos desde una tabla excel

Quisiera automatizar al pulsar un botón la importación de datos de una tabla excel a Access. Necesitaría me facilitaran el código.
2 respuestas

Tengo un subformulario en el que en un textbox aparece el campo mes en número y me gustaría se mostrase como texto

Como decía en el enunciado tengo un formulario con un subformulario en el que se muestran los datos de la selección del formulario pero cuando en periodicidad marco mensual aparecen los datos correctamente pero no consigo que se muestre el textBox...
2 respuestas