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

• #10655 perfag aktív tag fess #10645

  Új Válasz 2011-06-29 22:12:59 #10655

  Ú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

  

  perfag

  aktív tag

  válasz fess #10645 üzenetére

  Dolgom volt du., közben látom Delila már adott rá megoldást, de ha már kész, ide teszem.
  Sub copy_data()
  Dim rng As Range
  Dim tcell As Range
  Dim w, i, j, k As Integer
  
  'előkészítés
  j = 1 'célcella számláló
  k = 2 'dátum oszlop távolsága jobbról
  
  'a gyűjtőlapon C4-be kezd adatot áthozni
  Set tcell = Worksheets(1).Range("C4")
  'de előbb lefelé 100 cellának törli a tartalmát
  Range(tcell(1), tcell(100)).ClearContents
  
  'munkalapok
  For w = 2 To 6
  'az adatok D3:D8-ban
  Set rng = Worksheets(w).Range("D3:D8")
  'vizsgáódás, másolás
  For i = 1 To 5
  If Not rng(i) = Empty Then
  'a mai naphoz képest mi régebbi, mint 3 hónap,
  'ám én inkább 90 napot használnék:
  'If DateDiff("d", rng(i, k), Now) >= 90 Then
  If DateDiff("m", rng(i, k), Now) >= 3 Then
  tcell(j) = rng(i)
  j = j + 1
  End If
  End If
  Next
  Next

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