No ejecutar macro si una celda está en blanco

Quiero hacer que no ejecute la macro 2 si la celda D3 está en blanco.

Una macro filtra los según el dato que he ingresado en la celda D3:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "D3" Then Call Macro1 End If End Sub

La otra macro hace un filtro según el valor que tiene la celda A12, pero la celda A12 tiene una fórmula condicional que muestra un valor dependiendo del dato ingresado en la celda D3. Esta es la macro :

Sub Macro1() With Worksheets("aa_lendinf").Range("A12") Sheets("AA_LENDING").Range("A1:J7000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range( _ "A11:A12"), CopyToRange:=Range("C11:K11"), Unique:=True End With: End Sub

Lo que necesito es que si en la celda D3 no hay un valor ingresado entonces no se ejecute la macro 2. Lo que está pasando es que al dejar la celda D3 en blanco la celda A12 queda en blanco también y en lugar de no hacer el filtro está mostrando todos los datos.

1 respuesta

Respuesta
2

Prueba con lo siguiente

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(False, False) = "D3" And Target <> "" Then
        Call macro1
    End If
End Sub

Saludos.Dam
Si es lo que necesitas.

Gracias Dam,

Me ha servido para la primera parte y al tratar de combinarla con la Macro 1 macro me manda error.

¿Podrías ayudarme?

Sub Macro1() If Target.Address(False, False) = "A12" And Target <> "" Then With Worksheets("aa_lendinf").Range("A12") Sheets("AA_LENDING").Range("A1:J7000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range( _ "A11:A12"), CopyToRange:=Range("C11:K11"), Unique:=True End With: End Sub

El error es:

"Error en compilación:

Bloqu

Puedes copiar la macro primero a word y luego copiarla de word y pegarla aquí, es que así como la pones no se entiende, están todas las filas pegadas.

Saludos. DAM

Aquí está

Sub Macro1()
If Target.Address(False, False) = "A12" And Target <> "" Then
With Worksheets("aa_lendinf").Range("A12")
Sheets("AA_LENDING").Range("A1:J7000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range( _
"A11:A12"), CopyToRange:=Range("C11:K11"), Unique:=True
End With: End Sub
End If

Al ejecutarla me sale error

"Error de compilación:

Bloque If sin End If"

Saludos,

Debería ser así, el problema está en esta línea End With: End Sub

Sub Macro1()
If Target.Address(False, False) = "A12" And Target <> "" Then
    With Worksheets("aa_lendinf").Range("A12")
        Sheets("AA_LENDING").Range("A1:J7000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range( _
        "A11:A12"), CopyToRange:=Range("C11:K11"), Unique:=True
    End With
End If
End Sub

Por otra parte, también tienes este detalle en esta línea

Target.Address(False, False) = "A12"

El elemento Target es un objeto que se activa cuando estás en el evento de worksheet, dicho de otra forma, no te va a funcionar si lo pones en un módulo, a lo mejor te sirve así:

Sub Macro1()
If Range("A12") <> "" Then
    With Worksheets("aa_lendinf").Range("A12")
        Sheets("AA_LENDING").Range("A1:J7000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range( _
        "A11:A12"), CopyToRange:=Range("C11:K11"), Unique:=True
    End With
End If
End Sub

Prueba y me comentas.

Saludos. Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cómo ejecutar macro al abrir el archivo

Tengo un archivo excel que contiene 8 hojas por usuario y cada hoja muestra información de un reporte. En total son 160 hojas ya que tengo 20 usuarios. Cada hoja tiene un botón que ejecuta una macro para actualizar los datos. ¿Cómo puedo hacer para...
1 respuesta

Filtro avanzado

¿Me podrías ayudar con filtros avanzados por medio de macro? Tengo la sig. Rutina pero no me respeta el valor del filto que le pongo. Gracias de antemano Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Call filtrar...
1 respuesta

Ejecutar macro desde lista desplegable

Necesito tomar los datos de un filtro avanzado y aser que aparezcan los resultados en una lista desplegable. La idea esta. En la hoja3 de mi planilla selecciono la celda b1 que contiene una lista con los nombres de distintos clientes. Por otro lado...
1 respuesta

Macro para eliminar filas con 3 condiciones

Del programa que usa la empresa se puede exportar un archivo en excel son 19 variables (es decir 19 columnas) pero varía la cantidad de filas, en un archivo me pueden salir 16.000 filas, o 11.000 o 1.000. Soy nuevo en macros... Y lo que sé hacer es...
1 respuesta

Según el valor de una celda, buscar todos los registros coincidentes y mostrarlos en forma alfabética en otra hoja

Estimado tengo un excel que tiene 2 hojas una con los datos y otra donde quiero que me muestre sólo los datos según el valor dado en una celda con lista de validación. Por ejemplo que me muestre a todos registros que tienen por apellido "LORCA", con...
2 respuestas

Pasar información a diferentes hojas de excel

Quisiera saber como puedo hacer el siguiente trabajo en excel. Tengo una base de datos con diferente información, esta información la tengo que organizar según la categoría que corresponde a la columna B. ¿Qué fórmula puedo utilizar para que las...
1 respuesta

Macro de Filtro Avanzado

Tengo una lista de datos y una macro que funciona como un filtro avanzado con las siguientes características: En la Hoja1 tengo la lista de datos: A B C D 1 FECHA FACTURA IMPORTE NOMBRE (Rango A1:D9 = Datos) 2 1-sep-12 120456 90,00€ Manuel 3 2-sep-12...
1 respuesta

¿Cómo puedo agilizar un código de filtrado de datos?

Todoexpertos", tengo un gran problema con una rutina para filtrar registros. El problema es que dicha rutina me dura mucho en terminar y arrojar resultados, me preguntaba si alguien me pudiera orientar para que me corra más rápido. Describiendo un...
1 respuesta

Buscar condicionado y copiar en otra hoja excel.

Estoy trabajando con un libro de excel de plan de acción o tareas. Tengo columnas con tareas, responsable, departamento involucrado, fecha límite, prioridad, y status (empezado, no empezado y completado). Quiero en otra hoja crearme una especie de...
1 respuesta

Arrojar varios datos desde un criterio de búsqueda

Lo que necesito es: Yo tengo una columna (A1) con varios nombres de "Clientes", estos en algunos casos están repetidos y al frente en B1 tienen un # que es la factura de un producto "X", lo que quiero es buscar cualquier cliente en una celda de otra...
3 respuestas