- Samsung Galaxy S24 - nos, Exynos
- Android szakmai topik
- Visszatérhet a Nokia 800 Tough
- Samsung Galaxy S23 Ultra - non plus ultra
- Innovatív hűtési megoldással állt elő a Red Magic
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- Apple iPhone Air - almacsutka
- Redmi Buds 5 és Buds 5 Pro - feláron vagy féláron?
- One mobilszolgáltatások
- Google Pixel topik
Ú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
- Wanbo DaVinchi 1 Pro
- Samsung Galaxy S23 Plus 5G, Dual SIM, Onyx Black, 8GB/256GB Üzletből, garanciával
- Apple Watch SE GPS 40 mm, 80%, 12 hónap garancia + ajándék!
- Apple iPad A16 128GB,Újszerű,Dobozával,12 hónap garanciával
- MACBOOK PRO M1 8G/256G KIFOGÁSTALAN, KARCMENTES, 91% AKKU, ÜZLETBŐL, GARANCIÁVAL
- BESZÁMÍTÁS! Gigabyte B550M R7 5700X 32GB DDR4 1TB SSD RTX 4060 TI 16GB Gamemax Brufen C3 BG 650W
- ÚJ OMEN Transcend 14 - 14"2.8K OLED 120Hz - Ultra 7 155H - 16GB - 1TB - RTX 4060 - Win11 - 3 év gari
- Telefon felvásárlás!! Samsung Galaxy A14/Samsung Galaxy A34/Samsung Galaxy A54
- BESZÁMÍTÁS! Asus ROG B450 R7 5800X 32GB DDR4 1TB SSD RX 6800XT 16GB ZALMAN S2 TG A-Data 750W
- 13-14" Új és használt laptopok , üzletitől a gamerig , kedvező áron. Garanciával !
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest