- sh4d0w: Csak a profit - emberélet nem számít
- gban: Ingyen kellene, de tegnapra
- Klaus Duran: 2025 dude
- Mr Dini: Mindent a StreamSharkról!
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- laskr99: Újrakezdem a processzor és videókártya szilícium magok fotózását
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Magga: PLEX: multimédia az egész lakásban
Új hozzászólás Aktív témák
-
shiz
csendes tag
Üdv!
A következő kód javításában kérnék segítséget.
A hiba a végén van. Ha jól gondolom akkor a with blokk-hoz nem jól deklarálok de nem tudom hol a hiba.
Sub Gomb2_Kattintás()
Dim sor As Integer
Dim oszlop
Dim ml As Worksheet
Set ml = Worksheets("Munka1")
With ml
For sor = 9 To 1500 Step 8
oszlop = Application.Match(1, .Range("C" & sor & ":BJ" & sor), 0)
If VarType(oszlop) = vbError Then
felhet = "nincs"
keszlet = "nincs"
Else
felhet = .Cells(sor, oszlop).Offset(-6, 2).Value
keszlet = .Cells(sor, oszlop).Offset(2, 2).Value
End If
Next
End With
[B]Dim eredmeny As Variant
Set erdmeny = keszlet - felhet / 2)[/B]
With eredmeny
If eredmeny > 0 Then
.Range("BK" & sor).Value = 0
Else
.Range("BK" & sor).Value = eredmeny
End If
End With
End Sub
Új hozzászólás Aktív témák
- Asztali PC , i7 6700K , 1080 Ti 11GB , 32GB DDR4 , 500GB NVME , 500GB HDD
- Asztali PC , R5 8400F , RTX 3070 , 32GB DDR5 , 500GB NVME , 2TB HDD
- Legion Go 1TB
- Lenovo LOQ 15IRX9 - i5 13450HX, 16GB, RTX 4060 8G, 1TB M.2 (Gari: 2027.03.11.)
- LG 34WR55QK-B - 34" Ívelt VA - 3440x1440 - 100Hz 5ms - FreeSync Premium - HDR 10 - USB Type-C 65W
- Nvidia Quadro P400/ P600/ P620/ P1000/ T400/ T600/ T1000 - Low profile (LP) + RTX A2000 6/12Gb
- Bomba ár! Dell Latitude 5490 - i5-8GEN I 8GB I 256GB SSD I 14" HD I HDMI I Cam I W10 I Gari!
- ÁRGARANCIA! Épített KomPhone i5 14600KF 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASUS H610M I5 12400F 32GB DDR5 512GB SSD RTX 4060 8GB SOF CLONE 3 Chieftec 600W
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest