Como buscar un dato en varias columnas
TE 6S TE 60 CH TE 60 ATC CH TE 7C CH TE 70 CH TE 70 ATC CH
354764 365460 365460 327315 74473 74473
343785 365463 365463 240912 74479 74476
354624 366151 366151 207960 330909 330909
344362 365572 393991 327953 74498 74483
76561 330180 330180 240437 74808 74499
70716 345371 345371 328852 366930 366760
72417 366277 389968 279515 366870 366870
343179 330166 330166 240906 366289 366289
343169 366270 366189 76460 366163 366163
207960 76438 366280 76487 268094 268094
240438 268094 76438 328679 366292 366292
343105 364660 268094 240915 391658 366280
76437 366279 392611 240908 366588 391658
201240 72320 366279 240916 366879 366588
26352 330083 72320 328752 207960 366879
Hola, quiero saber como hacer para buscar un valor en todo el rango y que me devuelva el titulo de cada columna que lo contenga. Ej. Buscar el 76437 y que me diga que máquinas lo utilizan.
354764 365460 365460 327315 74473 74473
343785 365463 365463 240912 74479 74476
354624 366151 366151 207960 330909 330909
344362 365572 393991 327953 74498 74483
76561 330180 330180 240437 74808 74499
70716 345371 345371 328852 366930 366760
72417 366277 389968 279515 366870 366870
343179 330166 330166 240906 366289 366289
343169 366270 366189 76460 366163 366163
207960 76438 366280 76487 268094 268094
240438 268094 76438 328679 366292 366292
343105 364660 268094 240915 391658 366280
76437 366279 392611 240908 366588 391658
201240 72320 366279 240916 366879 366588
26352 330083 72320 328752 207960 366879
Hola, quiero saber como hacer para buscar un valor en todo el rango y que me devuelva el titulo de cada columna que lo contenga. Ej. Buscar el 76437 y que me diga que máquinas lo utilizan.
1 Respuesta
Respuesta
1
sub macro1()
Dim dato As String
dato = Worksheets("hoja1").Range("a1").Value
Sheets("hoja2").Select
Range("a1").Select
Cells.Find(what = dato, After:=ActiveCell).Activate
Worksheets("hoja1").Range("a2").Value = ActiveCell.Address
Cells.Find(what = dato, After:=ActiveCell).Activate
Worksheets("hoja1").Range("a3").Value = ActiveCell.Address
Cells.Find(what = dato, After:=ActiveCell).Activate
Worksheets("hoja1").Range("a4").Value = ActiveCell.Address
Sheets("hoja1").Select
Range("a1").Select
end sub
BEsta macro te buscara el valor que escribas en la celda "a1" de la hoja1 en los datos de la hoja2 y te pondrá la dirección de celda del primer dato que encuentre en la celda "a2" de la hoja 1
después te lo volverá a buscar y el resultado te lo pondrá en la celda "a3" de la hoja1
el código esta para que te lo busque 3 veces lo puedes modificar para lo busque más veces según tus necesidades.
Dim dato As String
dato = Worksheets("hoja1").Range("a1").Value
Sheets("hoja2").Select
Range("a1").Select
Cells.Find(what = dato, After:=ActiveCell).Activate
Worksheets("hoja1").Range("a2").Value = ActiveCell.Address
Cells.Find(what = dato, After:=ActiveCell).Activate
Worksheets("hoja1").Range("a3").Value = ActiveCell.Address
Cells.Find(what = dato, After:=ActiveCell).Activate
Worksheets("hoja1").Range("a4").Value = ActiveCell.Address
Sheets("hoja1").Select
Range("a1").Select
end sub
BEsta macro te buscara el valor que escribas en la celda "a1" de la hoja1 en los datos de la hoja2 y te pondrá la dirección de celda del primer dato que encuentre en la celda "a2" de la hoja 1
después te lo volverá a buscar y el resultado te lo pondrá en la celda "a3" de la hoja1
el código esta para que te lo busque 3 veces lo puedes modificar para lo busque más veces según tus necesidades.