Değer atama

[çözüm.xls]

A1 A59 aralığındaki değeri 1 olan hücrelerin B1 B59 aralığındaki, B sütunundaki karşılığına denk gelen hücreye 2 yazması için makro oluşturmak istiyorum yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub test()
    Dim c As Range
    Range("B1:B59").ClearContents
    For Each c In Range("A1:A59")
        If c = 1 Then
            c.Offset(, 1) = 2
        End If
    Next c
End Sub

 

[çözüm.xls]

Yardımınız için çok teşekkür ederim Ömer Bey