- Google Pixel topik
- Android szakmai topik
- Telekom mobilszolgáltatások
- Hamarosan robottelefon figyelheti minden mozdulatod
- Apple iPhone 17 - alap
- A Vivo bemutatta az OriginOS 6-ot, ezekre a telefonokra lesz telepíthető
- AI-ra cserélte a concierge szolgáltatást a Vertu
- Okosóra és okoskiegészítő topik
- Határtalan erő - szabadjára engedve
- Yettel topik
-
Mobilarena
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 #12360 üzenetére
Bocs nem voltam egyértelmű, és összekeverted a két dolgot.
Tehát ha jól értem van (legalább) két munkalapod. Az egyik amin az adatokat akarod ellenőrizni a másik amin beállítod, hogy mely oszlopokra van szükséged.
Van még a következő kód (most csak erre lesz szükséged semmi másra):
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 60
If Cells(2, i).Value <> "igen" Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True Else Sheets("Munka1").Columns(i).EntireColumn.Hidden = False
Next
End SubEzt a kódot a beállító munkalapodhoz rendeled úgy, hogy a lapfülön jobbkatt majd Kód megjelenítése opciót választod. Az így kapott VBA mezőbe bemásolod a kódot úgy, hogy a Munka1 munkalapneveket átírod a saját munkalapod nevére. Nem amelyik fülén kattintottál az előbb, hanem azéra amin az adatokat fogod ellenőrizni.
Ebbe a munkafüzetbe semmi más kód nem kell!
Új hozzászólás Aktív témák
- Battlefield 6
- Sorozatok
- Emelkedik a korábbi generációs Intel CPU-k ára
- Terminator 2D: NO FATE - Nincs végzet...
- Linux kezdőknek
- TCL LCD és LED TV-k
- Futás, futópályák
- Milyen TV-t vegyek?
- Kamionok, fuvarozás, logisztika topik
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- További aktív témák...
- Xiaomi 15 256GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPad A16 128GB,Újszerű,Dobozával,12 hónap garanciával
- Apple iPhone 14 Pro Max / Kártyafüggetlen / 256GB / 12Hó Garancia / 87% akku
- 24 GB-os RTX6000 HP - garanciával
- Lenovo X13 Yoga 2in1 Thinkpad WUXGA Touch i5-1145G7 vPro 16GB 256GB 4G LTE GPS Win11 Pro Garancia
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest