- Google Pixel topik
- Nincs Nothing AI szemüveg? Fogd meg a söröm!
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Samsung Galaxy S26 - szeret, nem szeret
- Samsung Galaxy S20 és S20+ duplateszt
- Mától Huawei okosórákkal is lehet érintésmentesen fizetni
- Xiaomi 17 Ultra - jó az optikája
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Google Pixel Watch 4 – Hé, Google, mennyi az idő?
- OnePlus 15 - van plusz energia
Ú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
Hirdetés
- Gyúrósok ide!
- Xbox Series X|S
- A Föld teraformálásával építene galaktikus birodalmat Elon Musk
- sziku69: Fűzzük össze a szavakat :)
- Google Pixel topik
- A fényes siker is lehet szög a koporsóban: gondban a MacBook Neo gyártása
- Autós topik
- Genshin Impact (PC, PS4, Android, iOS)
- Kertészet, mezőgazdaság topik
- Samsung kuponkunyeráló
- További aktív témák...
- P16s Gen1 16" FHD+ IPS i7-1260P NVIDIA T550 16GB 512GB NVMe magyarított (lézerezett) bill ujjolv gar
- Xiaomi 14T 5G 256Gb Dual, kártya független, újszerű
- ÚJ Bontatlan Apple Macbook AIR M2 , M3 , M4 Legújabb magyar billentyűzet 1 év Garancia Deák Térnél.
- AKCIÓ ÚJ Bontatlan Macbook Pro 16 M4 Pro 14CPU/20GPU 24GB/512GB SSD Magyar billent Azonnal átvehető.
- Apple iPad Pro 11 4th Gen 256Gb Cellular , uj aktiválatlan!
- GYÖNYÖRŰ iPhone 12 Mini 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4167, 94% Akksi
- AKCIÓ! Gigabyte B450M R5 2600X 16GB DDR4 512GB SSD GTX 1650 4GB ZALMAN T3 Plus Deepcool 400W
- iPhone 15 Pro 256GB 88% (1év Garancia)- ÚJ EREDETI AKKUMULÁTOR - AKCIÓ
- AKCIÓ! Gigabyte Gaming RTX 3060Ti 8GB videokártya garanciával hibátlan működéssel
- Apple iPad Air 5.Gen 64GB 100% (1év Garancia) - AKCIÓ
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

