Actividad pública reciente
Ha valorado "Buena" la respuesta
Macro que al abrir la celda activa este en la hora del día
Prueba el siguiente código que deberías poner en el objeto "ThisWorkbook" Private Sub Workbook_Open() Dim hora As Date, filaActual As Long, columna As Long columna = 4 'D hora = Now - Date If (Hour(hora) < 6) Then 'La hora está entre las 0 y las 6h...
Ha valorado "Buena" la respuesta
Macro que Copie, busque la ultima fila vacia y desde ahi pegue las formulas hasta la fila 1000
Usa esta macro es más corta Sub Copia2() Set h1 = Worksheets("hoja1") Set h2 = Worksheets("hoja2") h2.Range("h1:f1").Copy With h1 .Select With Range("f8") r = .CurrentRegion.Rows.Count c = .CurrentRegion.Columns.Count If r = 1 And c = 1 Then...