Dante Amor

Revisa lo siguiente para que veas el formato de horas Tabla de exel para contar horas

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Esa instrucción es para hacer una pausa en la ejecución de la macro. Por ejemplo, la siguiente instrucción hace una pausa de 1 segundo. Sleep (1000) ' Espera 1 segundo En tu...

¿El archivo que compartiste es como tienes la estructura de tus hojas? ¿Lo quieres con fórmulas o con macro?

Prueba la siguiente: Function contar_unicos(rngSeleccion As Range) Dim collUnicos As New Collection Dim rngCell As Range On Error Resume Next For Each rngCell In rngSeleccion If rngCell.EntireRow.Hidden = False Then collUnicos.Add rngCell,...

[Ho la y bienvenido a TodoExpertos! Revisa si alguna de las siguientes opciones es lo que necesitas Sub arrastredos() With Range("K" & Rows.Count).End(3) .Copy Range(.Cells(1), Range("K" & Range("B" & Rows.Count).End(3).Row)) End With End Sub Sub...

Si los números de celular los tienes como valores numéricos en las celdas, entonces utiliza la siguiente macro. También funciona con valores tipo texto. Pero con los valores numéricos debo convertirlos a tipo texto, para eso utilizo la columna Z, si...

Cambia estas líneas Fecha = DateSerial(2016, Mes, dia) Set b = h2.Columns("A").Find(Fecha, lookat:=xlWhole) Por estas Fecha = DateSerial(Año, Mes, dia) Set b = h2.Columns("A").Find(Fecha, ,xlvalues, xlWhole) Si todavía no funciona, prueba con estas...

[H o l a y bienvenida a TodoExpertos. ¿En cuál celda tienes la fórmula? Puedes poner aquí la fórmula. También pon aquí una imagen para ver cómo se ve una etiqueta con datos y una etiqueta vacía. Procura que en la imagen se vean las filas y las...

¿Entonces el libro es xlsx? Tienes la instrucción On error resume next? Quita la instrucción, si es que la tienes y prueba nuevamente. ¿Qué mensaje de error te envía? ¿El archivo era xls pero ya lo guardaste como xlsx? Si ya es un archivo xlsx y lo...

Responde en el siguiente orden: 1. Tu macro copia un rango de celdas de la hoja2 y lo pega en la hoja3. Tienes 2 ciclos For, si pongo los ciclos For y = 0 to 1 For k = 0 to 1 Me genera 4 copias, 2 copias hacia la derecha y 2 copias hacia abajo. Si...