angelcrisnor

Creo que la siguiente macro hace lo que quieres: Sub ACNCopiarHojaValores() Cells.Select Selection.Copy Range("A1").Select Sheets.Add Cells.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...

Puedes crear una macro que haga la copia incorporando en el nombre la fecha del sistema. Eso no es complicado. Lo que no es posible es que la macro se ejecute automáticamente a las 5:30 pm, ni a ninguna hora. Para hacer una copia automática a una...

Fernando, Espero que no te moleste, pero voy a descartar tu pregunta. He estado estudiando con más detenimiento tu hoja de cálculo y la verdad es que creo que me va a ser difícil ayudarte. Con respecto al formulario, no me dedico a ello, así que no...

Solo tienes que añadir la línea en negrita que te indico a continuación, sustituyendo "A1" por la celda que quieras. Sub TestGetFolderName() Dim FolderName As String FolderName = GetFolderName("Selecciona una carpeta") If FolderName = "" Then MsgBox...

Creo que buscas esto: Sub BorraSiToca() If Range("B25").Value = "NO" Then Range("B27:C27").Select Selection.ClearContents End If End Sub

1º ¿Dónde quieres que se haga el salto de la página? ¿Antes o después de esa fila? 2º No entiendo lo de las líneas en blanco por medio. ¿Puedes explicarlo mediante un ejemplo?

Creo que lo que necesitas es esto: - Para AM: =CONTAR.SI(M26:M34;"<=12:00") - Para PM: =CONTAR.SI(M26:M34;">12:00") Siendo la parte en negrita el rango con las celdas.

¿No te vale esta fórmula? =SI(B1=G1;SI(C1=H1;SI(D1=I1;A1;"");"");"")

Créate una nueva columna (p. Ej. F) Con una fórmula que compare si C y DE son iguales. P.ej. F1 --> =si(C1=D1;"iguales";"distintas") Y filtras por la nueva columna F.

Sub extraerpalabras() Columna = 2 'osea B,donde se pondrá la primera palabra extraida 'recorriendo columna A para extraer palabras: [A1].Select While ActiveCell <> "" For i = 1 To Len(ActiveCell) temp = Mid(ActiveCell, i, 1) 'extrae carácteres...