Llamar datos de otra hoja del mismo libro
Hola Experto
Estoy probando la Macro que autocompleta datos de otra hoja del mismo libro en excel y funciona correctamente, lo que necesito saber es como llamar los demás datos. Ejemplo:
hoja2 tengo:
(A2)nombre (B2) R.F.C (C2) Concepto
Con la macro En la Hoja3:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fila, Columna, Longi As Integer
Dim Valor As String
Dim Celda As Variant
Fila = Target.Row
Columna = Target.Column
Valor = UCase(Cells(Fila, Columna))
If (Valor <> "") And (Columna = 2) Then
Longi = Len(Valor)
For Each Celda In Sheets(2).Range("A2", Sheets(2).Range("A2").End(xlDown))
If Valor = Left(UCase(Celda.Value), Longi) Then
Cells(Fila, Columna) = Celda.Value
Exit For
End If
Next Celda
End If
End Sub
Llamo El Nombre,
Que hago para que al llamar el nombre, llame también el RFC y CONCEPTO que corresponden a es NOMBRE.
Irma
1 Respuesta
La macro del libro que me has mandado es ligeramente distinta de esta por ser columnas distintas, pero has hecho un cambio en
For Each Celda In Sheets(2).Range("B2", Sheets(2).Range("B10").End(xlDown))
Que no sé porque has puesto el B10, lo lógico es que sea B2.
Y la macro quedará así:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fila, Columna, Longi As Integer
Dim Valor As String
Dim Celda As Variant
Fila = Target.Row
Columna = Target.Column
Valor = UCase(Cells(Fila, Columna))
If (Valor <> "") And (Columna = 4) Then
Longi = Len(Valor)
For Each Celda In Sheets(2).Range("B2", Sheets(2).Range("B2").End(xlDown))
If Valor = Left(UCase(Celda.Value), Longi) Then
Cells(Fila, Columna) = Celda.Value
Cells(Fila, Columna + 1) = Celda.Offset(0, 1)
Cells(Fila, Columna + 2) = Celda.Offset(0, 2)
Exit For
End If
Next Celda
End If
End Sub
Simplemente he puesto B2 donde ponías B10 y he añadido estas dos líneas
Cells(Fila, Columna + 1) = Celda.Offset(0, 1)
Cells(Fila, Columna + 2) = Celda.Offset(0, 2)
Y eso es todo, espero que te sirva. Si no dímelo. Y si ya está bien, no olvides puntuar.
