Hirdetés
- Prezentálta sokadik AI útitervét az Intel
- Bírsággal karöltve kötelezi az Intelt a garancia betartására India
- Szabadalmi vita után bukta a német piacot az ASUS és az Acer
- Elképesztő sebességre képesek a Micron közelgő, PCI Express 6.0-os SSD-i
- Még ezüst is van a Pulsar és Vaxee közös egerének receptjében
- AMD vs Intel… hol a Harmadik?! – Elfeledett CPU-k
- Egérpad topik
- Bambu Lab 3D nyomtatók
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Prezentálta sokadik AI útitervét az Intel
- A Sony szerint a PlayStation 5 konzolokat még nem érinti a memóriahiány
- Fejhallgató erősítő és DAC topik
- Pendrive irás-olvasás sebesség
- Stabilan induló BIOS-t kaptak a nem induló Socket AM5-ös ASRock alaplapok
- Apple MacBook
-
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
ú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
- Magisk
- Megvan a Xiaomi 17 és 17 Ultra európai ára
- Anglia - élmények, tapasztalatok
- AMD vs Intel… hol a Harmadik?! – Elfeledett CPU-k
- Egérpad topik
- Tőzsde és gazdaság
- Bambu Lab 3D nyomtatók
- mefistofeles: Az elhízás nem akaratgyengeség! 2 Ahogy én csinálom.......
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Metal topik
- További aktív témák...
- AKCIÓ! Microsoft XBOX Series X 1TB SSD fekete játékkonzol garanciával hibátlan működéssel
- Apple iPhone 16 256GB, Kártyafüggetlen, 1 Év Garanciával
- szinteÚJ Lenovo ThinkPad L14 Gen5 i7 155U 16GB 1TB FHD+
- Dell Latitude 5430 14" Touchscreen i5-1235U 16GB 256GB 1 év garancia
- iPhone 14 Pro Max 256GB Space Black -1 ÉV GARANCIA -Kártyafüggetlen
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50

