- Mr Dini: Mindent a StreamSharkról!
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sh4d0w: Csak a profit - emberélet nem számít
- Klaus Duran: 2025 dude
- 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
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
Ú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
- CASIO órák kedvelők topicja!
- Futás, futópályák
- Milyen okostelefont vegyek?
- exHWSW - Értünk mindenhez IS
- PlayStation 5
- OLED TV topic
- Milyen billentyűzetet vegyek?
- A HMD visszalép az USA piacáról
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- További aktív témák...
- OHH! Dell Precision 7560 Tervező Vágó Laptop -70% 15,6" i7-11850H 32/1TB NVIDIA A3000 6GB FHD
- 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.)
- Garanciális gamer notebook RÉSZLETRE bank és kamat nélkül, gyors szerződéssel! ASUS TUF Gaming F16
- BESZÁMÍTÁS! LG UltraGear 27GL850-B 144Hz QHD 1ms monitor garanciával hibátlan működéssel
- Telefon felvásárlás!! Apple Watch Series 6/Apple Watch Series 7/Apple Watch Series 8
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i9 14900KF 32/64GB RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest