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

• #10755 Delila_1 veterán fess #10744

  Új Válasz 2011-07-06 16:38:33 #10755

  Ú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 fess #10744 üzenetére

  A működéshez tedd meg az alábbi lépéseket:
  Office gomb, Az Excel beállításai, Bővítmények. Balra lent a Kezelések közül Excel bővítmények, Ugrás, a kapott felsorolás első két bővítménye elé tegyél pipát, OK.

  Az első (gyűjtő) lapodhoz rendelve marad a

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then karbantart
  End Sub

  makró, ami figyeli az A1 cella változását.A modulba kerül a másik makró,

  Sub karbantart()
  Dim sorGy%, lap%, sorLap%, usorLap%
  sorGy% = 2
  Sheets(1).Select
  
  Rows("2:10000").ClearContents
  For lap% = 2 To Worksheets.Count
  Sheets(lap%).Select
  usorLap% = Sheets(lap%).Range("A50000").End(xlUp).Row
  For sorLap% = 2 To usorLap%
  If Cells(sorLap%, 5) + Cells(sorLap%, 6) <= Sheets(1).Cells(1) Then
  Range(Cells(sorLap%, 1), Cells(sorLap%, 6)).Copy Sheets(1).Cells(sorGy%, 1)
  sorGy% = sorGy% + 1
  End If
  Next
  Next
  Sheets(1).Select
  End Sub

  ami a kigyűjtést végzi. A számítás alapja, hogy az egyes lapokon az utolsó karbantartás idejéhez hozzáadja a következő karbantartáshoz szükséges napokat (E+F), és ha ez a nap kisebb, vagy egyenlő, mint a gyűjtő lap A1 cellájába írt dátum, akkor bemásolja az egyes alkatrészek adatait a lapokról az A:F oszlopokból.

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