Hirdetés
- ASUS Maximus VIII Ranger Z170 6-7-8-9-10 gen támogatás (Coffeetime mod)
- DFI és DFI Lanparty gyűjteményem
- Möbelix Milan íróasztal - a tapasztalatok összeszerelés után
- Keychron V6 Max (HU) Mechanikus vezetéknélküli billentyűzet (Bluetooth, RF, USB)
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- Doky586: Torrent beállítás kezdőknek
- Luck Dragon: Asszociációs játék. :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- sellerbuyer: Az RGB LED TV leváltja az OLED-et?
- gerner1
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Real Racing 3 - Freemium csoda
- MasterDeeJay: ASUS Maximus VIII Ranger Z170 6-7-8-9-10 gen támogatás (Coffeetime mod)
-
LOGOUT
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
veterán
Két külön makróba írtam az alsó, és a felső táblázat kitöltését, de veheted egybe.
Sub Also()
Dim sor%, oszlop%, sorB%
sorB% = 15
For sor% = 10 To 13
For oszlop% = 2 To 4
If Cells(sor%, oszlop%) > 0 Then
Cells(sorB%, "A") = Date
Cells(sorB%, "B") = Cells(sor%, "A")
Cells(sorB%, "C") = Cells(9, oszlop%)
Cells(sorB%, "D") = Cells(sor%, oszlop%)
sorB% = sorB% + 1
End If
Next
Next
End SubSub Felso()
Dim sor%, usor%, sorB%, oszlopB%, WF As WorksheetFunction
Dim nev$, uzlet$
Set WF = Application.WorksheetFunction
usor% = Cells(Rows.Count, "A").End(xlUp).Row
If Range("A15") >= Range("A1") And Range("A15") <= Range("C1") Then
For sor% = 15 To usor%
nev$ = Cells(sor%, "B")
uzlet$ = Cells(sor%, "C")
sorB% = WF.Match(nev$, Columns(1), 0)
oszlopB% = WF.Match(uzlet$, Rows(3), 0)
Cells(sorB%, oszlopB%) = Cells(sorB%, oszlopB%) + Cells(sor%, "D")
Cells(sorB%, oszlopB% + 1) = Date
Next
End If
End SubA képen szereplő cellák helyéhez igazítottam a makrót. Bár nem látszanak a sor- és oszlopazonosítók, úgy vettem, hogy a kezdő dátum az A1-es cellában van.
Új hozzászólás Aktív témák
- Kecskemét és környéke adok-veszek-beszélgetek
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER! lapcsalád
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- Samsung Galaxy S23 Ultra - non plus ultra
- Győr és környéke adok-veszek-beszélgetek
- DUNE médialejátszók topicja
- Automobilista 2
- Interactive Brokers társalgó
- Kerékpárosok, bringások ide!
- További aktív témák...
- HIBÁTLAN iPhone 15 Pro Max 256GB Natural Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3662
- Lenovo ThinkPad P14s Gen 1 i7-10510U 32GB 512GB Nvidia Quadro P520 14" FHD Gar.: 1 év
- Konzol felvásárlás!! Xbox Series S, Xbox Serries X
- HIBÁTLAN iPhone 14 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3528, 93% Akkumulátor
- Telefon felvásárlás!! Samsung Galaxy A12/Samsung Galaxy A22/Samsung Galaxy A32/Samsung Galaxy A52
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő