Makroyu Tüm Sütuna Uygulatmak

[GaziPasa]

Merhaba Arkadaşlar,

Ek te ki örnek dosya da E sütununda ki rakamların A ve B sütunlarında hangi aralığa denk geldiğini bulup ilgili aralığın C sütununda ki değerini D sütununa yazdırmak istiyorum.

Ben sadece E1 sütununa yazdığım değeri getirebiliyorum, diğer E2,3,4,5. hücrelerde ki verileri A-B aralığında aratamıyorum. İlgilenip basit bir çözüm önerecek olan dostlara şimdiden teşekkür ederim. Yazabildiğim makroyu buraya yapıştırıyorum.

Sub Deneme()

For Ing = 1 To 11

If [e1] >= Cells(Ing, 1) And [e1] <= Cells(Ing, 2) Then
[d1] = Cells(Ing, 3)

End If
Next Ing

End Sub

 

[Ferhat Pazarçevirdi]

Kodunuzu aşağıdaki gibi revize ediniz.

Sub Deneme()
    Dim i As Integer
    Dim Ing As Integer
    
    For i = 1 To 11
        
        For Ing = 1 To 11
            
            If Cells(i, "E") >= Cells(Ing, 1) And Cells(i, "E") <= Cells(Ing, 2) Then
                Cells(i, "D") = Cells(Ing, 3)
            End If
        
        Next Ing
    
    Next i
End Sub

 

[GaziPasa]

Ferhat Bey ,

Çok teşekkür ederim, döngü içinde döngü olması gerektiğini tahmin etmiştim ama bir türlü yapamamıştım. Ellerinize sağlık. Hem çok sevindim hem de cevaba bu kadar yaklaşmışken kendim yapamadım diye amatörce bir üzüntü duydum

Emeğinize sağlık.

 

[Ferhat Pazarçevirdi]

Esta&#287;furullah... Tabi, biz devaml&#305; bu kod meretinin i&#231;inde oldu&#287;umuzdan biraz idmanl&#305;y&#305;z Ondand&#305;r ... Kondisyon y&#252;ksek yani .... Siz de biraz form tutun, gerisini rahatl&#305;kla halledersiniz.

Selamlar ...