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

• #12631 Delila_1 veterán motinka #12627

  Új Válasz 2012-01-13 09:04:08 #12631

  Ú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

  

  Delila_1

  veterán

  válasz motinka #12627 üzenetére

  Valószínű, hogy a két lapodon nem egyformák a dátumokat tartalmazó oszlopok. Elképzelhető, hogy az egyiken szövegként adtad meg az értékeket, nem dátumként.

  A "kigyűjtős" laphoz kell rendelned a makrót. Az elején értékadások vannak.

  If Target.Address = "$A$1" Then 'ha az A1 cella változik...
  If Target = "" Then 'és ez üres (törölted a tartalmát)
  Rows("1:5000").Delete 'akkor törli a sorok előző tartalmát
  Else 'ha értéket vittél az A1-be...
  Rows("2:5000").Delete 'akkor a 2. sortól törli a régi adatokat
  For sorH = 2 To usorH 'végig megy a Hónap lap A oszlopán
  If WS2.Cells(sorH, "A") = Target Then 'ha ez azonos az 1. lapra bevitt értékkel ...
  Cells(sor, "B") = WS2.Cells(sorH, "E") 'az 1. lap akt. sorába másol
  Cells(sor, "C") = WS2.Cells(sorH, "J")
  Cells(sor, "D") = WS2.Cells(sorH, "AI")
  sor = sor + 1
  f = True 'ez egy figyelő, ha volt egyezés, True-ra vált
  End If
  Next
  If f = False Then 'ha nem volt egyezés,
  Range("B1") = "Nincs adat erre a napra" 'ezt írja az 1. lap B1-be
  Range("C1:IV1").Delete 'törli az előző C1:IV1 tartomány tartalmát
  End If
  End If
  End If

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