Hirdetés
- talmida: Változások 2. rész
- gban: Ingyen kellene, de tegnapra
- Brogyi: CTEK akkumulátor töltő és másolatai
- sziku69: Fűzzük össze a szavakat :)
- MasterDeeJay: Comet lake (10gen) és DDR3 - mert ilyet is lehet!
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- mefistofeles: Az elhízás nem akaratgyengeség!
- MasterDeeJay: Mi ez a pici videókártya? AMD E9173 teszt
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
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
-
dudu_14
újonc
Sziasztok!
Kezdő excel vb-s vagyok, tudnátok kicsit segíteni? 2010-es magyar excelben dolgozom.
Van egy munkafüzet aminek a D6-os cellájában legördülő választólistából 3 fix értéket lehet választani. Attól függően, hogy az ember mit választ ki, az excel elrejti pl a 28-55. sort, vagy egyéb sorokat.
Sikerült írnom rá egy makrót, ami úgy tűnik működik is, viszont kizárólag akkor, ha rákkatintok a makró futtatására. Azt szeretném, ha ezt a bizonyos választó cellát figyelné a program alapból és ha megváltozik, akkor automatikusan fusson le az általam írt makró.

Sub proba()
'
' proba Makró
Dim sor%, sorok%, D, DT, TS
D = "Dermedés"
DT = "Dermedés tápfejekkel"
TS = "Teljes szimuláció"
sorok% = ActiveSheet.UsedRange.Rows.Count
For sor% = 1 To sorok%
Rows(sor%).Hidden = False
Next
For i = 28 To 55
If Cells(6, 4).Value = D Then
Rows(i).Hidden = True
End If
Next
For j = 28 To 55
If Cells(6, 4).Value = DT Then
Rows(j).Hidden = True
End If
Next
For k = 19 To 27
If Cells(6, 4).Value = TS Then
Rows(k).Hidden = True
End If
Next
End SubKöszi előre is

Új hozzászólás Aktív témák
- Meghozta a régóta várt asztali Ryzen APU-kat az AMD
- Debrecen és környéke adok-veszek-beszélgetek
- Ilyen olcsó sem volt még egy Apple notebook
- talmida: Változások 2. rész
- Megérkezett az Apple 5K-s, 120 Hz-et biztosító monitora
- gban: Ingyen kellene, de tegnapra
- Fejhallgató erősítő és DAC topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Kormányok / autós szimulátorok topikja
- Autós topik
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- PC Game Pass előfizetés
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 9600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- AKCIÓ! Lenovo Legion Go 512GB SSD kézikonzol garanciával, hibátlan működéssel
- BESZÁMÍTÁS! Asus PRIME H510M i5 11400 16GB DDR4 512GB SSD RX 6600 8GB Rampage SHIVA Adata 600W
- ÁRGARANCIA!Épített KomPhone i5 14400F 16/32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- Samsung Galaxy S25 FE 8/256GB - ÚJSZERŰ, Kártyafüggetlen - 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50