excel-vba - que - seleccionar hasta la ultima celda con datos vba

Macro de Excel para imprimir hojas basadas en múltiples valores

Question

Tengo una hoja con una macro que cuando cambio un valor en la celda E5, llena automáticamente ciertos campos en la hoja 1 , busca y devuelve los valores de una tabla en otra hoja - sheetTable ).

Mi objetivo ahora es seleccionar un rango de valores en una columna en sheetTable y asignar cada uno de ellos a la celda E5 en la hoja 1 , e imprimir cada uno.

Entonces digamos que selecciono 3 celdas con valores: 45, 50 y 66. Cuando ejecuto la macro, asignará 45 a la celda E5 e imprimirá la hoja1 , luego asignará 50 a la celda E5 e imprimirá la hoja1 y finalmente asignará 66 a la celda E5 y hoja de impresión1.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim shape As Excel.shape
'' The variable KeyCells contains the cells that will
'' cause an alert when they are changed.
Set KeyCells = Range("e5")


If Not Application.Intersect(KeyCells, Range(Target.Address)) _
       Is Nothing Then


For Each shape In ActiveSheet.Shapes
    shape.Delete
Next

InsertPictureInRange Range("f2").Value & Range("e5").Value & ".jpg", _
    Range("c9")
InsertPictureInRange Range("f2").Value & Range("e5").Value & "_1.jpg", _
    Range("i9")

If Range("e5").Value = "" Then Exit Sub

End If

End Sub

Answer 1

Lo siguiente se ejecutará a través de una selección y pegará los valores en su celda E5, en Sheet1, y luego abrirá el cuadro de diálogo "PrintToFile". A partir de ahí, deberá ingresar manualmente la ubicación y el nombre del archivo.

Dim Rng As Range
Set Rng = Selection

Dim Sheet1 As Worksheet
Set Sheet1 = Sheets("Sheet1")

    For Each Cell In Rng
        Sheet1.Range("e5").Value = Cell.Value
        Sheet1.PrintOut Copies:=1, printtofile:=True, collate:=True, ignoreprintareas:=False
    Next Cell

Esto te lleva a la mitad, al menos. Quizás alguien con más experiencia que yo pueda agregar cómo se puede ingresar la ubicación y el nombre del archivo usando VBA.