Tor Cheer

Pruebe con esta macro Sub llenar() ufA = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row ufB = Sheets("Hoja1").Range("B" & Rows.Count).End(xlUp).Row ufC = Sheets("Hoja1").Range("C" & Rows.Count).End(xlUp).Row For CONT = 1 To ufA valor1 =...

Puede compartir su fórmula buscarv que tiene para adaptarla y comparta una imagen de sus datos donde se buscan los datos. El punto 2 rutina, no me queda claro lo que necesita.

Comparta una copia de su archivo con datos ficticios y si puede explicar que datos no pasa correctamente para poder ayudarle.

Si entendí bien, con este código muestra un formulario al posicionarse en la celda B4.

Tiene que darle formato al campo del resultado para que le de el numero de horas correcto. clic derecho al campo y selecciona propiedades, elige Personalizada y escribe en Tipo: [hh]:mm

Private Sub CODIGO_Click() dato = CODIGO.Value 'ver * Set BUSCO = Sheets("proveedores").Range("b2:c15000").Find(dato, LookIn:=xlValues, LookAt:=xlWhole) 'ver ** 'si encontró el dato lo mostrará en los demás textbox If Not BUSCO Is Nothing Then...

Entendiendo que el valor de la Celda J3 es la que cambia de valor, tiene que ponerlo como una variable por ejemplo: valor = Range("J3).value Selection.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows,...

Supongo que al momento de capturar en cierta celda el dato se vuelve "CERRADO" y en ese momento mostrar el mensaje me corrige si no es así. Además de si puede compartir un archivo como ejemplo para intentar ayudarle.

Puede subir una imagen de su archivo y pone un ejemplo manualmente de como desea obtener los resultados.

Esta fórmula puede abarcar toda la columna hasta donde tenga datos y contarlos. =CONTAR.SI.CONJUNTO(A:A,"A1") En el ejemplo supone contar los datos de la columna A cuyo dato sea igual a "FL" Si comparte su macro para tratar de adaptar el conteo...