Ú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
![;]](//cdn.rios.hu/dl/s/v1.gif)
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
- ÖNERŐ NÉLKÜL, 12 RÉSZLETRE ELITRO PC BANKMENTES KAMATMENTES RÉSZLETFIZETÉS
- Apple Macbook Air 15,3" M3 8C CPU/10C GPU/16GB/256GB (MC9E4MG/A) Ezüst - MAGYAR - 77 Ciklus - Gari
- Honor 200 Lite 256GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felváráslás!! Xiaomi Redmi Note 11, Xiaomi Redmi Note 11 Pro, Xiaomi 11 Lite
- GYÖNYÖRŰ iPhone 12 Pro 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3438
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest

![;]](http://cdn.rios.hu/dl/s/v1.gif)


