for-next döngüsü kurmak

[suha]

Ek te bulunan macro kodunu yazmaya çalıştım ama 65000 satır nasıl çalıştırabilirim yardım edermisiniz.
Saygılar....

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub asd()
Dim a As Integer
ss = Range("a65536").End(3).Row
For i = 2 To ss
If Cells(i, "a").Value > 10 And Cells(i, "a").Value <= 99 Then
Cells(i, "b") = "sebze"
Else
If Cells(i, "a").Value > 100 And Cells(i, "a").Value <= 199 Then
Cells(i, "b") = "tatlı"
Else
If Cells(i, "a").Value > 200 And Cells(i, "a").Value <= 299 Then
Cells(i, "b") = "yemiş"
 End If
 End If
 End If
 Next
End Sub

not:
konu başlığını seçerken sorunuzla ilgili olmasına özen gösteriniz!

 

[suha]

çok teşekkürler

Haklısınız konu baslıklarında dıkkat etmem gerekıyor. Bırde bu konularla ılgılı olarak elımın altında kaynak olmasını ıstıyorum tavsıyenız veya sızlerın hazırlamıs olduğu bır kaynak nasıl satın alabılırım . Sız bana yardımcı oldunuz ben sızlere nasıl yardımcı olabılırım.

Sevgıler
saygılar

 

[suha]

Haklısınız konu baslıklarında dıkkat etmem gerekıyor. Bırde bu konularla ılgılı olarak elımın altında kaynak olmasını ıstıyorum tavsıyenız veya sızlerın hazırlamıs olduğu bır kaynak nasıl satın alabılırım . Sız bana yardımcı oldunuz ben sızlere nasıl yardımcı olabılırım.

Sevgıler
saygılar