Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #42158 Pakliman tag pero19910606 #42157
    Új Válasz #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