hücreleri karşılaştırıp karşılığını bularak yazma

[durhan]

Arkadaşlar ekli dosyayı inceleyebilirmisiniz?

İlginize şimdiden teşekkürler

 

[Murat OSMA]

Deneyiniz lütfen...

Sub Murat()
    Dim i As Byte
    For i = 1 To 11
    If Cells(i, "G").Value = 0 Then Cells(i, "H").Value = 0
    If Cells(i, "G").Value >= 1 And Cells(i, "G").Value <= 100 Then Cells(i, "H").Value = 1
    If Cells(i, "G").Value >= 101 And Cells(i, "G").Value <= 200 Then Cells(i, "H").Value = 2
    If Cells(i, "G").Value >= 201 And Cells(i, "G").Value <= 300 Then Cells(i, "H").Value = 3
    If Cells(i, "G").Value >= 301 And Cells(i, "G").Value <= 500 Then Cells(i, "H").Value = 4
    If Cells(i, "G").Value >= 501 And Cells(i, "G").Value <= 1000 Then Cells(i, "H").Value = 5
    If Cells(i, "G").Value >= 1001 And Cells(i, "G").Value <= 2000 Then Cells(i, "H").Value = 6
    If Cells(i, "G").Value >= 2001 And Cells(i, "G").Value <= 100000 Then Cells(i, "H").Value = 7
    Next i: i = Empty
End Sub

 

[durhan]

Deneyiniz lütfen...

Murat Bey, çok teşekkür ederim. mükemmel oldu

 

[Murat OSMA]

Rica ederim, iyi günler...