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

• #17878 Delila_1 veterán MarKoo #17876

  Új Válasz 2013-04-22 13:13:42 #17878

  Ú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 MarKoo #17876 üzenetére

  Arra az esetre írtam a makrót, mikor a 12 lapon az A oszlopban van a dátum, B-ben az adatok. A hónapok után szerepel az Összesítő nevű lap, annak az A1:A3 tartományába írja be a lapnevet, a dátumot, és a legnagyobb értéket.

  Sub Legnagyobb()
  Dim sor%, lap%, nagy!, lapnev$, kelt As Date
  Dim WF As WorksheetFunction
  Set WF = Application.WorksheetFunction
  
  For lap% = 1 To 12
  If WF.Max(Sheets(lap%).Range("B:B")) > nagy! Then
  nagy! = WF.Max(Sheets(lap%).Range("B:B"))
  sor% = WF.Match(nagy!, Sheets(lap%).Range("B:B"), 0)
  kelt = Cells(sor%, "A")
  lapnev$ = Sheets(lap%).Name
  End If
  Next
  
  With Sheets("Összesítő")
  .Range("A1") = lapnev$
  .Range("A2") = kelt
  .Range("A3") = nagy!
  End With
  End Sub

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