Új hozzászólás Aktív témák

• #42158 Pakliman tag pero19910606 #42157

  Új Válasz 2019-11-11 20:32:39 #42158

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pakliman

  tag

  válasz pero19910606 #42157 üzenetére

  Public Sub Kitölt()
Dim us As Long
Dim i As Long
Dim sNév As String

'Feltételezzük, hogy az adatok az "Adatok" munkalapon vannak...
With Worksheets("Adatok")
'Megkeressük az utolsó beírandó adat sorát
us = .Cells(.Rows.Count, "A").End(xlUp).Row
'feltételezzük, hogy az adatok a 2. sorban kezdődnek (1. a fejléc)
For i = 2 To us
If True Then 'Ha van valamilyen feltétele a kitöltésnek (pl.: csak a Lekvárzsibbasztó Gépgyár érdekel), akkor a True helyére azt írd be
'kitöltjük a "KÖRLEVELET" a megfelelő adatokkal... pl.:
Worksheets("KÖRLEVÉL").Cells(3, 5) = .Cells(i, 1)
'...stb

'...mentés...(cégnév_azonosító -> megfelelő helyekről összeállítva...)
sNév = "D:\cégnév_azonosító."
'PDF-ként...
Worksheets("KÖRLEVÉL").ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNév & "pdf", OpenAfterPublish:=False
'...majd xlsm-ként...
Worksheets("KÖRLEVÉL").Copy
ActiveWorkbook.SaveAs Filename:=sNév & "xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
End If
Next i
End With

End Sub

Új hozzászólás Aktív témák