Új hozzászólás Aktív témák
-
martonx
veterán
Sub Count()
Dim var As Variant
For i = 9 To 1500 Step 13
var = Application.Match(1, Rows(i).Cells, 0)
If Not IsError(var) Then
'ilyenkor az i mutatja, hogy melyik sorban találtunk, var mutatja, hogy melyik oszlopban
'azaz e két info ismeretében bármit meg tudsz csinálni
MsgBox ("találtam")
End If
Next
End Sub -
martonx
veterán
node minek ide with egyáltalán?
Ez is feleslegesenek tűnik:
Dim ml As Worksheet
Set ml = Worksheets("Munka1")Ez egyértelműen zárójel hibás:
Set erdmeny = keszlet - felhet / 2) Debugolás a barátod
Ez így működésképtelen. Ismétlem, minek ide with?
With eredmeny
If eredmeny > 0 Then
.Range("BK" & sor).Value = 0
Else
.Range("BK" & sor).Value = eredmeny
End If
End WithEhelyett simán csak valami ilyesmi kellene neked:
If eredmeny > 0 Then
Range("BK" & sor).Value = 0
Else
Range("BK" & sor).Value = eredmeny
End If
Új hozzászólás Aktív témák
- 4 év gari - magyar bill. - Lenovo ThinkPad Z13 G1 - AMD Ryzen R7 Pro 6850U, 13.3" 2.8K OGS érintő
- ÚJ Apple Macbook Air 15,3 M4 10C CPU/10C GPU/16GB/256GB - Ezüst -(2025) - 3 év gari - MAGYAR
- Intel Core i7-8700, i7-9700 CPU, processzor - Számla, garancia
- BESZÁMÍTÁS! 1TB Corsair MP700 NVMe SSD meghajtó garanciával hibátlan működéssel
- Asus E510M 128GB SSD, 4GB RAM, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest