Encontrar registro en un rango según valor inputbox

Hola a todos, necesitaría saber el código para encontrar un columna en un rango concreto determinando en valor a encontrar  de una de las columnas a través de un inputbox y copiar esos valores de esa columna  a otra hoja.

Ej: rango a buscar es ("A2:U80000") está en la hoja1 y la celdas donde se pegarán serán ("AJ5:BD5") en hoja 2, la columna en donde se debe buscar el valor del inputbox en la hoja1 es "T".

Gracias de antemano

1 respuesta

Respuesta
1

Te anexo la macro

Sub EncontrarRegistro()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    dato = InputBox("Introduce el dato")
    If dato = "" Then Exit Sub
    '
    Set b = h1.Columns("T").Find(dato, lookat:=xlWhole)
    If Not b Is Nothing Then
        h1.Range("A" & b.Row & ":U" & b.Row).Copy
        h2.[AJ5].PasteSpecial Paste:=xlPasteValues
    Else
        MsgBox "Dato no existe"
    End If
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Valor de una celda de Excel

Tengo tres hojas de calculo, una seria el real otra el presupuesto y otra que seria a que tendría que poner el dato mi pregunta es como podría hacer sil a de real tiene valor cogiera ese valor, en caso de no existir ese dato cogiera de la tabla de...
1 respuesta

Crear Macro, con condiciones y editar celda

¿Cómo crear una macro que Busque en toda la hoja, (bucle con condiciones), introduciendo texto y se pueda editar celda?
1 respuesta

Extraer datos de celdas descontinuas de una hoja de excel.

Extraer datos de celdas descontinuas de una hoja de excel y enviarlos a otra hoja donde hay una tabla donde se van a ir agregando los datos por cada día en la parte de abajo. Ejemplo datos de: HOJA1 J11, H12, E18, O19,020, O21, O22, F23, J23...
1 respuesta

Al agregar columnas en una hoja de Excel, se desconfiguraron unas fórmulas.

Tengo un archivo de Excel con 4 hojas en una tengo RENTAS y en la segunda NOTAS en donde al ponerle el número de pedido me jala la información de la hoja RENTAS. Pero tengo la necesidad de agregar más columnas con más productos, y al agregar esas...
2 respuestas

Agregue un tercer combobox de búsqueda y dar problema

Sigo aprendiendo a través de su ayuda. Resulta que sigo con mi data y en un formulario utilizo dos combobox para filtrar registros por Año y por Mes, gracias a la ayuda de Don Eduardo y Julián que me orientaron a la perfección funcionan a la pinta ya...
2 respuestas

Uso de filtros avanzados y listbox en userfotm

Tengo una tabla, con nombre, productos y mes, ¿Cómo filtrar por mes y aparezca en un listbox de un userform?
3 respuestas

Cómo asignar una letra para el año de una fecha

Tengo una celda (J22) que contiene una fecha (12/03/2024), y otra celda que lee esa fecha y segun el año le asigna una letra, con esta formula =SI(TEXTO(C5;"aaaa")="2024";"A/";""), en este caso A/. El valor de la celda J22, puede cambiar dependiendo...
2 respuestas

¿Macro en excel que sombree las celdas con condiciones?

Macro en excel que sombree las celdas de la columna "G" que suman el valor de cada celda de la columna "D" si como condición la celda "E" dice "campeon"
1 respuesta

¿Cómo coloreo los resultados: de amarillo a los valores menores al rango, y de color rosa a los valores mayores, en excel?

Tengo la siguiente lista: A B C 1 NUM1 NUM2 RESULTADO 2 10 20 5 3 30 40 35 4 50 60 70 Por ejemplo, me gustaría que el resultado fuera así: -> Que la celda "C2" se pinte de amarillo, porque "5" es menor al rango 10 a 20. -> Que la celda C3 no cambie...
2 respuestas

Problema al sumar varios textbox independientes a uno en Access

Mi problema se presenta en un formulario independiente en donde tengo varios textbox independientes enumerados del 1 al 5, donde les agrego registros numéricos de una consulta en listbox, cada vez que agrego un dato a estos textbox, necesito que en...
3 respuestas