Buscar en una matriz de Excel
Tengo un documento de Excel que contiene tres columnas con datos. La B y C son numéricas y la A contiene texto. Lo que pretendo es me busque qué datos de la columna A tienen exactamente iguales las columnas B y C, y me los escriba en una columna DE, y si hubiese en A más de un dato que cumpliese la condición, me los escriba todos en D
Ejemplo.
A B C D
Andrés 10 7 Baltasar
Antonio 15 11
Baltasar 10 7 Andrés
Juan 11 11
Gracias
Ejemplo.
A B C D
Andrés 10 7 Baltasar
Antonio 15 11
Baltasar 10 7 Andrés
Juan 11 11
Gracias
1 Respuesta
Respuesta de parmijo
1
Sub verificar_datos()
Range("a1").Select
Dim nombre As String, valor1 As Long, valor2 As Long, valorA As Long, valorb As Long
Hola prueba con esta macro saludos:
Dim rango As String
For x = 1 To 4
rango = ActiveCell.Row + 1
nombre = ActiveCell.Value
valor1 = ActiveCell.Offset(0, 1).Value
valor2 = ActiveCell.Offset(0, 2).Value
Range("b1").Select
For z = 1 To 4
If ActiveCell.Row = rango - 1 Then
GoTo salida:
End If
valorA = ActiveCell.Value
valorb = ActiveCell.Offset(0, 1).Value
If valorA = valor1 And valorb = valor2 Then
ActiveCell.Offset(0, 2).Value = nombre
End If
salida:
ActiveCell.Offset(1, 0).Select
Next z
Range("A" & rango).Select
Next x
Range("a1").Select
Dim nombre As String, valor1 As Long, valor2 As Long, valorA As Long, valorb As Long
Hola prueba con esta macro saludos:
Dim rango As String
For x = 1 To 4
rango = ActiveCell.Row + 1
nombre = ActiveCell.Value
valor1 = ActiveCell.Offset(0, 1).Value
valor2 = ActiveCell.Offset(0, 2).Value
Range("b1").Select
For z = 1 To 4
If ActiveCell.Row = rango - 1 Then
GoTo salida:
End If
valorA = ActiveCell.Value
valorb = ActiveCell.Offset(0, 1).Value
If valorA = valor1 And valorb = valor2 Then
ActiveCell.Offset(0, 2).Value = nombre
End If
salida:
ActiveCell.Offset(1, 0).Select
Next z
Range("A" & rango).Select
Next x
