2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

  • 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

  • #14148 Fire/SOUL/CD félisten bozsozso #14147
    Új Válasz #14148
    Ú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

    Fire/SOUL/CD

    félisten

    válasz bozsozso #14147 üzenetére

    Public Sub FSCD_Summary_Bozsozso()

    Dim MyCurDate As Range
    Dim MySrcStartCell As Range, MyDestStarCell As Range
    Dim MySrcWS As Worksheet, MyDestWS As Worksheet
    Dim MyFXs As WorksheetFunction

    Set MyFXs = Application.WorksheetFunction
    'MUNKALAP neve, amely a jelenléti ívet tartalmazza
    Set MySrcWS = Worksheets("Jelenléti")
    'MUNKALAP neve, amelyen az összesítés található
    Set MyDestWS = Worksheets("Összesítő")
    'A jelenléti munkalapon találhat IDŐCELLA címe
    Set MyCurDate = MySrcWS.Range("$A$2")
    'Jelenléti munkalapon ettől a cellától kezdődnek az adatok
    Set MySrcStartCell = MySrcWS.Range("A9")
    'Összesítő munkalapon ettől a cellától kell bemásolni az adatokat
    Set MyDestStarCell = MyDestWS.Range("A1")

    j = 0
    For i = 0 To Day(MyFXs.EoMonth(MyCurDate, 0)) - 1
    If Not IsEmpty(MySrcStartCell.Offset(i, 13)) Then
    MyDestStarCell.Offset(j, 0).NumberFormat = "yyyy-mm-dd"
    MyDestStarCell.Offset(j, 0) = Format(MyCurDate, "yyyy-mm-") & Format(i + 1, "00")
    MyDestStarCell.Offset(j, 1) = MySrcStartCell.Offset(i, 13)
    MyDestStarCell.Offset(j, 4).NumberFormat = "[h]:mm"
    MyDestStarCell.Offset(j, 4) = Format(MySrcStartCell.Offset(i, 2), "0:") & Format(MySrcStartCell.Offset(i, 3), "00")
    MyDestStarCell.Offset(j, 5).NumberFormat = "[h]:mm"
    MyDestStarCell.Offset(j, 5) = Format(MySrcStartCell.Offset(i, 4), "0:") & Format(MySrcStartCell.Offset(i, 5), "00")
    MyDestStarCell.Offset(j, 6) = MySrcStartCell.Offset(i, 11)
    j = j + 1
    End If
    Next i

    End Sub

    Az összesítő munkalap tartalmát nem törli a makró, mert a korábbi kép alapján nem tudhattam, hogy az összesítő munkalapon vannak-e még más adatok is, ezért a makró futtatása előtt manuálisan töröld az összesítő munkalapon lévő adatokat.

    Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

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