Hirdetés
- Vivo X300 Pro – messzebbre lát, mint ameddig bírja
- Fotók, videók mobillal
- Magisk
- Az év utolsó napján előbújt pár Galaxy S26 dummy
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Mit várunk 2026-ban a mobilpiacon?
- One mobilszolgáltatások
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Sony Xperia 1 V - kizárólag igényeseknek
-
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
-
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
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Humble szökevények 500-2500Ft
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Honor 200 Lite / 8/256GB / Kártyafüggetlen / 12HÓ Garancia
- í kilenc! AKCIÓS PRECÍZIÓS KÉSZÜLÉK! 7670 i9-12950HX 64GB RAM 1TB SSD Nvidia RTX A3000 12GB 1 év gar
- BESZÁMÍTÁS! ASROCK H510M i5 11400F 16GB DDR4 512GB SSD RX 9060 XT 16GB Rampage SHIVA ADATA 650W
- Csere-Beszámítás! Acer Nitro 5 AN515-57! I7 11800H / RTX 3050Ti / 16GB DDR4 / 512GB Nvme SSD!
- ThinkPad T14s Gen 2 i5-1135G7 16GB 512GB FHD 1 év garancia
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50

