Luis Mondelo

Lo que solicitas se puede hacer con una tabla dinámica sin necesidad de programar. ¿Lo has probado? Dime si necesitas ayuda

Te mando la solución. Solo tienes que dibujar un botón en tu hoja y adjudicarle esta macro y todo listo! Sub copiado() 'por luismondelo Range("a1:m31").Copy Destination:=Sheets("hoja2").Range("a65000").End(xlUp).Offset(1, 0) End Sub La ejecutamos...

Te mando mi solución: Por un lado programamos el evento del doble click en la hoja en cuestión de esta manera: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$F$1" Then Application.OnTime Now +...

Te mando mi solución. Con esta sentencia te hará una replica exacta de la hoja1 y la copiará al filas de todas las hojas que tengas. Además la pondrá el nombre de la fecha del día para que la tengas controlada por fecha: Sub copiahoja() 'por...

Te mando mi solución, en mi ejemplo tengo los datos en hoja1 desde A2 hacia abajo (en la fila 1 está el encabezado). Los vamos a copiar en hoja2 repetidos 15 veces cada fila: Sub repetirfilas() 'por luismondelo Range("a2").Select Do While...

Con esta sentencia adjudicamos a la variable ultima el número de la última columna con datos para que puedas usarla con sentencias tipo Cell. En este ejemplo he utilizado la fila 1 para conseguirlo. ultima = range("iv1").end(xltoleft).column Recuerda...

Con el formato personalizado de la celda lo puedes conseguir, sigue mis pasos: Marca todas las celdas que tengas las horas. Vete al formato de celdas----->categoría personalizada y en el renglón donde dice tipo: Tienes que modificarlo a esto: hhmm...

Para poder ayudarte necesito un ejemplo de los datos. [email protected] Mándamelo con un ejemplo hecho a mano.

¿Y bajo que criterio será el último?: -Por la última fecha de modificación -Por orden alfabético del nombre del archivo. -...

Te mando un ejemplo. Con esta macro justo al arrancar el formulario se cargará el combobox1 con el rango A1:A25 de la hoja1 Private Sub UserForm_Initialize() ComboBox1.RowSource = "hoja1!a2:a25" End Sub recuerda finalizar la consulta