Çözüldü IF Kodunu Alt Hücrelere Uygulamak

[officer08]

Herkese iyi çalışmalar.
A1 hücresinde 1 varsa B1 hücresine 2 yazsın değilse B1 boş kalsın şeklinde buton ile çalışan kodum var aşağıda belirttiğim gibi. Başaramadığım nokta şurası; bunu onuncu satıra kadar A2-B2, A3-B3, A4-B4 şeklinde alt hücrelere bu kodu uygulatmak. Araştırdım For döngüsü ile olacak sanırım ama denedim başaramadım. Yardımcı olursanız sevinirim. Şimdiden teşekkürler.

Private Sub CommandButton2_Click()
If Range("A1").Value = 1 Then
Range("B1").Value = 2
Else
Range("B1").Value = ""
End If
End Sub

 

[dEdE]

Sorunuzda bunu anladım.

Private Sub CommandButton2_Click()
For i = 1 To 10
    If Cells(i, 1) = 1 Then
        Cells(i, 2) = 2
    Else
        Cells(i, 2) = ""
    End If
Next
End Sub

 

[officer08]

dEdE teşekkür ederim istediğim buydu.