Hirdetés
Legfrissebb anyagok
- Izmos kis "2 az 1-ben" MoDT alaplapot villantott a Minisforum
- Az Enermax tényleg nem viccel, ha az új tápjának garanciaidejéről van szó
- Egybegép lesz vagy ház? A Corsair sem tudja eldönteni.
- A Qwertykeys új klaviatúrái szépek, igényesek és sokrétűek
- Összement a mosásban az ASUS új VGA-inak PCI Express 5.0 csatlakozója
PROHARDVER! témák
- AMD Navi Radeon™ RX 9xxx sorozat
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Házimozi belépő szinten
- Egybegép lesz vagy ház? A Corsair sem tudja eldönteni.
- OLED TV topic
- DUNE médialejátszók topicja
- Mesébe illő csodakábelt tervezett a GeForce-ok leégése ellen a Segotep?
- E-book olvasók
- Izmos kis "2 az 1-ben" MoDT alaplapot villantott a Minisforum
- Kormányok / autós szimulátorok topikja
Mobilarena témák
IT café témák
Új hozzászólás Aktív témák
-
Syntax
csendes tag
Sziasztok
(excel VBA makro)
A következővel kapcsolatban lenne egy olyan kérdésem hogy miért van az hogy csak az első cellát érzi úgy mintha ki lenne a töltve a többit pedig autó matikusan üresnek vesz hiába van kitöltve.

(egyébként nem csinálna mást minthogy a "H" oszlop 2. sorától kezdődően a kitöltött cellák mennyiségének megfelelő új lapot hoz létre és elnevezi azokat aszerint ami az adott cellába van érték. [sor,"H"])
Dim sor As Integer
Dim QH_part As Variantsor = 2
Do While Worksheets("Open").Cells(sor, "h").Value <> ""
QH_part = Cells(sor, "H")
Sheets.Add
ActiveSheet.Name = QH_part
sor = sor + 1
Loop
Új hozzászólás Aktív témák
Aktív témák
- Elektromos cigaretta 🔞
- Okos Otthon / Smart Home
- Chieftec-Prohardver nyereményjáték
- AMD Navi Radeon™ RX 9xxx sorozat
- The Elder Scrolls V: Skyrim
- Mikor pukkad ki a robotlufi?
- Vivo X300 - kicsiben jobban megéri
- iPhone topik
- Meggyi001: Kórházi ellátás: kuka vagy finom?
- Mibe tegyem a megtakarításaimat?
- További aktív témák...
Új fizetett hirdetések
- Canon EF & EF-S objektívek + K&F szűrők
- Canon 90D + 2 akku + portré grip
- Samsung S25 Ultra, 256GB, Titán Black, fóliás, gyári független, ajándék gyári bőr tok+biztosítás
- Microsoft Surface Prémium minőségi Érintős Laptop Ultrabook 13,5" -65% i5-7300 8/256 Tűéles Retina
- Samsung Galaxy S24 Ultra - független, garanciás, hibátlan
Üzleti előfizetők hirdetései
- Beszámítás! Acer Predator Helios Neo 16 notebook-i9 14900HX 16GB DDR5 1TB SSD RTX 4060 8GB W11
- Xiaomi 14T Pro 5G 512GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Apple iPhone 13 Pro 1TB,Újszerű,Dobozával,12 hónap garanciával
- Bomba ár! Lenovo X1 Yoga 3rd - i5-8GEN I 8GB I 256GB SSD I 14" FHD Touch I W11 I CAM I Garancia!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: ATW Internet Kft.
Város: Budapest



