
Macro que se activa al cumplir una condición
Publicado por CEsc (5 intervenciones) el 21/02/2017 20:56:54
Buenos días
Quería ver si sabríais qué le falta a mi código ya que creé un código que :
1- Detecta el dato en la hoja2 en la celda activa
2- Busca el dato de la celda activa en la hoja1 columna A y lo compara
3- Si el dato es igual me saca los datos de la columna 1 de la hoja1 en la columna 2 de la hoja2
pero no hace nada, no se activa, algo debe pasar y no logro detectar qué es, podéis echarme un cable ?
pego el código :
Private Sub celda(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Dim Dato As Boolean
Dato= Sheets("Hoja2").Cells(Target.Cells.Row, Target.Cells.Column)
Dim fila As String
fila = 2
Dim Encuentra As Boolean
Encuentra = False
While Sheets("Hoja1").Cells(fila, 1) <> Empty And Encuentra = False
If Sheets("Hoja1").Cells(fila, 1) = Centro Then
Encuentra = True
End If
fila = fila + 1
Wend
If Encuentra = True Then
Sheets("Hoja2").Cells(fila, 2) = Sheets("Hoja1").Cells(fila, 1)
End If
End If
End Sub
Muchas gracias.
Quería ver si sabríais qué le falta a mi código ya que creé un código que :
1- Detecta el dato en la hoja2 en la celda activa
2- Busca el dato de la celda activa en la hoja1 columna A y lo compara
3- Si el dato es igual me saca los datos de la columna 1 de la hoja1 en la columna 2 de la hoja2
pero no hace nada, no se activa, algo debe pasar y no logro detectar qué es, podéis echarme un cable ?
pego el código :
Private Sub celda(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Dim Dato As Boolean
Dato= Sheets("Hoja2").Cells(Target.Cells.Row, Target.Cells.Column)
Dim fila As String
fila = 2
Dim Encuentra As Boolean
Encuentra = False
While Sheets("Hoja1").Cells(fila, 1) <> Empty And Encuentra = False
If Sheets("Hoja1").Cells(fila, 1) = Centro Then
Encuentra = True
End If
fila = fila + 1
Wend
If Encuentra = True Then
Sheets("Hoja2").Cells(fila, 2) = Sheets("Hoja1").Cells(fila, 1)
End If
End If
End Sub
Muchas gracias.
Valora esta pregunta


0