Elsa Matilde

Aquí te presento otra opción también sencilla siempre y cuando no haya datos 'duplicados' en tu columna (así se observa en tu imagen). Selecciona la col de datos y desde menú Datos, Quitar duplicados.

La instrucción que te abre el cuadro de diálogo para seleccionar un hipervínculo es: Application.Dialogs(xlDialogInsertHyperlink).Show Si esto resuelve tu consulta no olvides valorarla, sino comenta un poco más tu proceso.

No queda claro qué información hay que devolver... '... Y darle buscar, me arroje pero toda la información de tal nombre que se encuentra en toda esa fila, ya sea hasta A100...' A100 da idea de columna no de filas... por favor aclara si es posible...

Hay varias maneras de resolverlo. Aquí un ejemplo: ' Obtener fila de destino Filx = hoja2.range ("A" & rows.count).end (xlup).row + 1 ' cortar la fila y pasarla a otra hoja Dato.entirerow.cut destination:= hoja2.range ("A"& Filx) Debes reemplazar...

Si se puede. Solo debes indicar la hoja destino de algún modo (quizás desde un combobox con el nombre de todas tus hojas) y luego todo lo envías allí. Por ej. Destino=combobox1.value Sheets (Destino).[A5]=Textbox3 Y así con cada pase. O se puede...

Como no comprendí del todo cuáles son los controles que necesitas inhabilitar, te dejo una macro que te servirá para reconocer los nros y nombres y así poder disponer de ellos: Sub identificaControl() 'x Elsamatilde 'para conocer los nros y nombres...

Acabo de responder consulta similar... veo que aquí ya tenemos el nombre de la hoja. En ese caso en lugar de '2016' debiera ser 'Reporte'. Otra solución a la planteada en respuesta anterior, es que filtres la hoja Reporte (en lugar de seleccionar un...

Si estás tratando de imprimir el rango seleccionado desde el botón de imprimir no podrás agregarle algo como un total. Para esto necesitarás volcarlo previamente a una hoja auxiliar y luego imprimirla. En un módulo coloca esta macro que realiza esos...

No índicas en que línea te salta el error, quizás sea en la de copia, mejor dejarla así: h1.Rows(i).EntireRow.Copy destination:=h2.Range("B" & h2.Range("B" & Rows. Count).End(xlUp).Row + 1) Si esto resuelve tu consulta no olvides valorarla, sino...

Intenta con esta macro, recorre un rango de la hoja activa, podrás ajustar los detalles sino comentame. Sub autoajuste() 'x Elsamatilde 'autoajusta desde fila 2 a 20 For i = 2 To 20 Range("A" & i).EntireRow.AutoFit 'establece alto no menor a 20 If...