Hirdetés
- MasterDeeJay: Egy nem átlagos Asus videókártya (GTX950M 2GB GDDR3)
- Meggyi001: Áram nélkül....méltóság nélkül.....
- Luck Dragon: Asszociációs játék. :)
- hcl: Olympus E-PL1 nyomozás
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Pengeélen
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
- sziku69: Fűzzük össze a szavakat :)
- Lalikiraly: Macbook NEO 2
- sziku69: Szólánc.
-
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
-
m.zmrzlina
senior tag
válasz
jani-wan
#12365
üzenetére
azt jelenti hogy
Ha a cellák értéke a második sorban minden oszlopban 1-től 60-ig nem egyenlő Igen-nel akkorAzt jelenti, hogy ha az első hatvan oszlop második cellájának értéke nem egyenlő "igen"-nel akkor az ahhoz tartozó oszlopot a másik munkalapon elrejti. Ez a rész felelős ezért:
Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True
Másképpen: amelyik oszlop második cellájában "igen" van az annak megfelelő oszlop látszani fog a másik munkalapon.
Programozni én sem tudok, aki viszont velem ellentétben tud azok számára ez nyilvánvaló.

-
válasz
jani-wan
#12365
üzenetére
"azt jelenti hogy Ha a cellák értéke a második sorban minden oszlopban 1-től 60-ig nem egyenlő Igen-nel akkor vagy tévedek?"
Nem tévedsz, ez így működik."én biztos úgy írtam volna hogy If Cells(2, i).Value <> "" Then"
Ez a feltétel azt jelenti ha az adott cella nem üres, akkor...RAiN91
Nem vészes megírni, csak most nincs hozzá kedve, hogy őszinte legyek...
A txt fájlt meg nem kell manuálisan importálnod, hisz pont azért lett megírva az időzítő, hogy az majd x időközönként beolvassa az adatokat a txt fájlból.
Új hozzászólás Aktív témák
- Kormányok / autós szimulátorok topikja
- Androidos tablet topic
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Napelem
- Casco és kötelező gépjármű felelősségbiztosítás
- Samsung Galaxy Felhasználók OFF topicja
- iPhone topik
- Kerékpárosok, bringások ide!
- Azonnali alaplapos kérdések órája
- A szuperintelligencia még odébb, a szuperapp már közel
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Keresünk iPhone 13/13 Mini/13 Pro/13 Pro Max
- GAMER PC! i7-14700 / RTX 5080 / 32GB DDR5 / 1TB NVMe / 1000w Gold / BeszámítOK !
- 8 GB-os GeForce RTX 2060 SUPER (OEM HP) - garanciával
- Intel Core i3-8100/ i5-9500 / i7-8700 / i7-9700 /i5-10500T /i7-10700 processzorok- számla, garancia
- TELJES KÖRŰ IT BESZERZÉS
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50