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.
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!
1 respuesta más de otro experto
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