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

  • #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.

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