Hücre ismini döngü ile artırmak.

[stratejist]

If ComboBox2.Value = Worksheets("veriler").[A2].Value And TextBox3 <> "" Then
Fiyat = Worksheets("veriler").[B2].Value

End If


Bunu döngüsel olarak nasıl artıracağım A2 B2 deki 2 yerine değişken atamak istiyorum döngüye sokup mesela 50 ye kadar denemesini itiyorum yulardaki örneğin olduğu yere koyunca hata veriyor.

 

[Orion1]

If ComboBox2.Value = Worksheets("veriler").[A2].Value And TextBox3 <> "" Then
Fiyat = Worksheets("veriler").[B2].Value

End If


Bunu döngüsel olarak nasıl artıracağım A2 B2 deki 2 yerine değişken atamak istiyorum döngüye sokup mesela 50 ye kadar denemesini itiyorum yulardaki örneğin olduğu yere koyunca hata veriyor.

aşağıdaki kod işinizi görür.

for i = 1 to 50
   If ComboBox2.Value = Worksheets("veriler").cells(i,"A").Value And TextBox3 <> ""  Then
   Fiyat = Worksheets("veriler").cells(i,"B").value

End If

next i

 

[stratejist]

Teşekkürler faydalı oldu bayağı