- Bemutatkozott a HHKB legújabb, Topre kapcsolókkal szerelt billentyűzete
- Intel Raptor Lake-U Refresh architektúrás mini PC érkezett az MSI színeiben
- A Chrome egyeduralmára tör a ChatGPT böngészője
- Kompakt AIO-val használható rackmount ház jött a Chieftec fémjelzésével
- Már nagyon közel van az AI szerverekbe szánt SOCAMM2 szabvány véglegesítése
Ú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
- GYÖNYÖRŰ iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3074, 100% Akkumulátor
- REFURBISHED - DELL Thunderbolt Dock WD19TBS (210-AZBV)
- ÁRGARANCIA! Épített KomPhone Ultra 9 285K 64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3050, 96% Akkumulátor
- Fujitsu LIFEBOOK E449 i3-8130U 8GB 256GB 14" FHD 1 év garancia
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő