Hirdetés
- Milyen TV-t vegyek?
- Milyen CPU léghűtést vegyek?
- Nyáron jön az AOC új, legfeljebb 720 Hz-re képes monitora
- Bambu Lab 3D nyomtatók
- Eljött a CPU-k kora az AI-piacon
- Milyen notebookot vegyek?
- Azonnali informatikai kérdések órája
- Fejhallgató erősítő és DAC topik
- Tovább tarthat a memóriakrízis, mint gondolnánk
- Blu ray írás és írási hiba
- Lalikiraly: Mercis kalandok - Huszonnyolcadik rész - Az újrakezdés
- Lalikiraly: Kinek milyen setupja van?
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- Luck Dragon: Asszociációs játék. :)
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
-
PROHARDVER!
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
csendes tag
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
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- HP. Laptop. i5. Model: 15-da1002nq
- ÁRGARANCIA!Épített KomPhone i5 10400F 16/32/64GB RAM RX 7600 8GB GAMER PC termékbeszámítással
- LG UltraWide 34WQ75C-B IPS Monitor! 3440x1440 / 60Hz / sRGB 99% / Type-C
- Lenovo ThinkStation P330 Gen 2 Tower i7 / Xeon workstation /számla- garancia
- AKCIÓ! Apple iPhone 12 Mini 64GB mobiltelefon garanciával hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB DDR5 RAM RTX 5070 12GB GAMER termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
