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

• #14148 Fire/SOUL/CD félisten bozsozso #14147

  Új Válasz 2012-06-27 11:11:23 #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