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
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