-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Építő/felújító topik
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- Mindent megtudtunk az új Nokia 3210-ről
- sziku69: Fűzzük össze a szavakat :)
- Sony MILC fényképezőgépcsalád
- Luck Dragon: MárkaLánc
- Xbox Series X|S
- Kerékpárosok, bringások ide!
- További aktív témák...
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest