Macro para extraer numero de fila de un dato encontrado
Mediante Macro y con esta instrucción : "Set Valor = Worksheets("Datos").Range("A7:A999999").Find(What:=Worksheets("Captura").Range("R7").Value, LookAt:=xlWhole)" busco y encuentro el dato sin problema. Ahora necesito saber el numero de fila de la celda donde se encuentra ese dato encontrado, pero no se como hacerlo.
2 Respuestas
Respuesta de Adriel Ortiz Mangia
1
H o l a
prueba esto y me comentas
Private Sub Worksheet_Change(ByVal Target As Range)
Set h1 = Sheets("Datos")
Set h2 = Sheets("Captura")
Set b = h1.Range("A7:A999999").Find(What:=h2.Range("R7").Value, LookAt:=xlWhole)
If Not b Is Nothing Then
MsgBox b.Address
End If
End Subvalora la respuesta para finalizar saludos!
Respuesta de fejoal
1
.15.12.16
Buenas, David
Estás más cerca de lo que crees.
Puedes cargar el número de fila en una variable o usar la instrucción directamente:
LaFila = Worksheets("Datos").Range("A7:A999999").Find(What:=Worksheets("Captura").Range("R7").Value, LookAt:=xlWhole).Row
Pruébalo y dime si es lo que necesitabas.
Saludos
Fernando
.
Y como haría si por ejemplo, ¿tengo datos en ese rango y modifico uno de ellos como haría para que me muestre que dato fue modificado? Es decir fila A1: D1 en la F1 me muestre el dato C1 fue modificado y así sucesivamente con todos los registros que hayan hasta el final. - Juan Fer
Ya que se modificaron, sobrescribo todos los datos de esa fila, para que después puedan imprimirWith ThisWorkbook.Worksheets("Datos") .Cells(Ren, 2).Value = ThisWorkbook.Sheets(1).Range("R11") .Cells(Ren, 3).Value = ThisWorkbook.Sheets(1).Range("R12") .Cells(Ren, 4).Value = ThisWorkbook.Sheets(1).Range("R13") - David Maldonado
la reglas de todoexpertos no permite preguntas crea una y aportamos saludos! - Adriel Ortiz Mangia
JEJEJ, si lo se, quería aprovechar el momento, muchas gracias, abriré mi consulta. - Juan Fer