- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- eBay-es kütyük kis pénzért
- gban: Ingyen kellene, de tegnapra
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Rap, Hip-hop 90'
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- Meggyi001: Nyilvános wc-k.....még mindig hiánypótló...
Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
Új hozzászólás Aktív témák
-
lapa
veterán
válasz
MartinIsti #395 üzenetére
küzdöttem egy kört mire megtaláltam de emlékeztem, hogy nem kell ciklusozni...
ActiveCell.CurrentRegion.Rows.Count
ActiveCell.CurrentRegion.columns.Count
vagy fixen cells(1,1).CurrentRegion.Rows.Count -
Jester01
veterán
válasz
MartinIsti #397 üzenetére
Itt a link ha esetleg még mindig nem találnád: Excel makró készítése [link]
-
Jester01
veterán
válasz
MartinIsti #395 üzenetére
Szerintem ilyen kérdésekkel ballagj át az excel makró topikba ott vannak hozzáértõk.
Amúgy én ezt találtam: [link] -
[HUN]Zolee
őstag
válasz
MartinIsti #392 üzenetére
az első kérdésre, mingyárt megírom a macrot
a második engem is érdekelne
Hány cella van egy oszlopba :
Sub mennyi_van_kitoltve()
Worksheets(''Munka1'').Select
Db = 0
If [A1].Value = '''' Then
Db = 0
Else
If [A2].Value = '''' Then
Db = 1
Else
For Each cella In Range([A1], [A1].End(xlDown))
Db = Db + 1
Next
End If
End If
ActiveCell.Value = Db
End Sub
[Szerkesztve] -
szasza_1
senior tag
válasz
MartinIsti #387 üzenetére
Visual Basic kék könyv kezdetnek jó. Csak hallkan jegyzem meg, itt jó sok minden van: http://ebookz.hu/ebook.php?alkat=Visual%20Basic
Új hozzászólás Aktív témák
- Autós topik
- Formula-1
- S.T.A.L.K.E.R. 2: Heart of Chornobyl
- Fejhallgató erősítő és DAC topik
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Hivatalosan is bemutatta a Google a Pixel 6a-t
- Gyúrósok ide!
- Könyvajánló
- Kínai és egyéb olcsó órák topikja
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- További aktív témák...
- Playstation 5 Drive Edition 825GB (CFI-1116A), 6 hónap garanciával, Bp-i üzletből eladó!
- Apple Watch Series 7 41mm NIKE GPS
- Acer Nitro XV340CKP WQHD 144HZ IPS KALIBRÁLT
- Playstation 5 Slim Disc Edition 1TB , 6 hó teljeskörű garanciával, Bp-i üzletből eladó!
- Realme GT Neo 3T Dragon Ball Limited Edition
- HIBÁTLAN iPhone 11 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS3027
- DELL Precision 5540 Workstation i7-9850H Nvidia Quadro T1000 16GB 512GB 15.6 új akksi 1év garancia
- MacBook Pro 16 i7-9750H 16GB RAM 512GB SSD RX 5300M 1 év garancia
- Microsoft Surface Laptop 5 13.5" i5-1245U 16GB 256GB 1év garancia
- Extra olcsó! HP 230 Vezetéknélküli USB-s Billentyűzet
Állásajánlatok
Cég: FOTC
Város: Budapest