Atajo para rellenar el contenido de celdas adyacentes en Excel

En Excel podemos rellenar los contenidos adyacentes a una celda mediante el controlador de relleno, o bien mediante el cuadro de diálogo series. En esta entrada veremos este segundo modo usando atajos, ilustrado en la siguiente imagen:

Duplicar celdas

En español:

Ctrl+J: duplica el contenido de la celda superior en el rango seleccionado .
Ctrl+D: duplica el contenido de la celda a la izquierda en el rango seleccionado.
Ctrl+D y Ctrl+J: duplica el contenido de la celda superior izquierda en el rango seleccionado.

En inglés:

Ctrl+D: duplica el contenido de la celda superior del rango seleccionado.
Ctrl+R: duplica el contenido de la celda a la izquierda del rango seleccionado.
Ctrl+D y Ctrl+R: duplica el contenido de la celda superior izquierda en el rango seleccionado.

No existen atajos para rellenar hacia arriba o hacia la izquierda.

Cuadro de diálogo series

En español:

Alt+O seguido de FL y S.

En inglés:

Alt+H seguido de FI y S.

Sin métodos abreviados de teclado

Para duplicar, rellenar, en las diferentes direcciones:

• En la ficha Inicio, en el grupo Modificar, clic en Rellenar y en la opción Hacia abajo, Hacia la derecha, Hacia arriba o Hacia la izquierda deseada.

Para acceder al cuadro de diálogo series y seleccionar las diferentes opciones:

• En la ficha Inicio, en el grupo Modificar, clic en Rellenar y luego en Series.

Referencias

• Crear una lista alfabética automáticamente

Duplicar forma en Excel

Problema

Cuando copiamos una forma (Ctrl+C) y la volvemos a pegar (Ctrl+V), Excel la presenta desplazada (abajo a la derecha de la original).

Solución

1. Seleccionamos la forma.
2. Ctrl+J para duplicar la forma. Ctrl+D si nuestro Excel está en inglés.
3. Arrastramos la forma a la posición deseada.
4. Ctrl+J de nuevo. La forma se pegará duplicando también la posición relativa respecto del objeto original.

Solución en imágenes

Referencias:

• Duplicar forma en PorwerPoint

Duplicar forma en PowerPoint

Problema

Cuando copiamos una forma (Ctrl+C) y la volvemos a pegar (Ctrl+V), PowerPoint la presenta desplazada (abajo a la derecha de la original).

Solución

1. Seleccionamos la forma.
2. Ctrl+Alt+D para duplicar la forma. Ctrl+D si nuestro PowerPoint está en inglés.
3. Arrastramos la forma a la posición deseada.
4. Ctrl+Alt+D de nuevo. La forma se pegará duplicando también la posición relativa respecto del objeto original.

Solución en imágenes

Referencias:

• Duplicar forma en Excel

Duplicar y cerrar libro de Excel mediante VBA

En otra entrada vimos como duplicar el fichero de Excel y cómo capturar la respuesta del usuario con mensajes emergentes (msgbox). En esta ocasión combinamos ambas para tras duplicar el fichero preguntar al usuario si quiere cerrar el fichero actual (sin guardar los cambios) y abrir el nuevo fichero duplicado.

Option Explicit
Sub DuplicarLibroCerrar()
    Dim wb As Workbook, sRuta As String
    sRuta = ThisWorkbook.Path & "\" & _
    Format(Now, "yyyymmdd") & Chr(32) & ThisWorkbook.Name
    ThisWorkbook.SaveCopyAs Filename:=sRuta
    
    Dim resp As String
    resp = MsgBox("¿Quieres abrir el duplicado y cerrar éste?", vbYesNo)
        If resp = vbYes Then
        Set wb = Workbooks.Open(sRuta)
        ThisWorkbook.Close
        Else
        End If
End Sub

Guardará una copia del libro activo en la misma ruta del libro, con el nombre precedido de la fecha y un espacio. P. ej.: Libro1.xlsm se guardará como 20140519 Libro1.xlsm.Si también queremos la hora reemplazamos por "yyyymmdd" por "yyyymmdd-hh.mm.ss" u otro formato deseado.

Aparecerá esta ventana emergente al finalizar:

En el caso de que el fichero ya cuente con una fecha y espacio delante del nombre del fichero, empleamos este macro:

Option Explicit
Sub DuplicarLibroCerrar2()
    Dim sNomb As String, sNombSinFecha As String ' Nombre con y sin fecha
    sNomb = ThisWorkbook.Name ' Nombre entero
    sNombSinFecha = Right(sNomb, Len(sNomb) - InStr(1, sNomb, " ")) 
    
    Dim wb As Workbook, sRuta As String
    sRuta = ThisWorkbook.Path & "\" & _
    Format(Now, "yyyymmdd") & Chr(32) & sNombSinFecha
    ThisWorkbook.SaveCopyAs Filename:=sRuta
    
    Dim resp As String
    resp = MsgBox("¿Quieres abrir el duplicado y cerrar éste?", vbYesNo)
        If resp = vbYes Then
        Set wb = Workbooks.Open(sRuta)
        ThisWorkbook.Close
        Else
        End If
End Sub

Extrae el nombre del fichero sin fecha y le añade la fecha actualizada.

Entradas relacionadas:
Duplicar libro de Excel mediante VBA

Duplicar libro de Excel mediante VBA

Para duplicar el fichero de Excel activo usamos la siguiente macro:

Option Explicit
Sub DuplicaLibro()
    ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & _
    Format(Now, "yyyymmdd") & Chr(32) & ThisWorkbook.Name
    MsgBox "Fichero duplicado", vbInformation
End Sub

Guardará una copia del libro activo en la misma ruta del libro, con el nombre precedido de la fecha y un espacio. P. ej.: Libro1.xlsm se guardará como 20140519 Libro1.xlsm.Si también queremos la hora reemplazamos por "yyyymmdd" por "yyyymmdd-hhmmss" u otro formato deseado.

Aparecerá esta ventana emergente al finalizar:

En el caso de que el fichero ya cuente con una fecha y espacio delante del nombre del fichero, empleamos este macro:

Option Explicit
Sub DuplicaLibro2()
    Dim sNomb As String, sNombSinFecha As String ' Nombres con y sin fecha
    sNomb = ThisWorkbook.Name 
    sNombSinFecha = Right(sNomb, Len(sNomb) - InStr(1, sNomb, " ")) 
    ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & _
    Format(Now, "yyyymmdd-hh.mm.ss") & Chr(32) & sNombSinFecha
    MsgBox "Fichero duplicado", vbInformation
End Sub

Extrae el nombre del fichero sin fecha y le añade la fecha actualizada.