Testbox'a Girilen Değerin A2 sütundan başlayı boş satıra kadar devam etmesi.

[ottoman71]

Merhaba Arkadaşlar,
Ekteki dosyadaki Textbox'a girdiğim değeri A2 hücresinden başlayıp A sütunu boyunca, B sütunun boş satırına kadar gitmesini makro ile nasıl yapabilirim.

Yardımcı olurmusunuz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    If Me.TextBox1 <> "" Then
        Range("A2:A" & Range("B65536").End(3).Row).Value = Me.TextBox1.Value
    End If
End Sub

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sat As Long
sat = Sheets("Sheet1").Cells(65536, "B").End(xlUp).Row
If sat < 2 Then Exit Sub
Sheets("Sheet1").Range("A2" & ":A" & sat).Value = TextBox1.Text

End Sub

 

[ottoman71]

Korhan ve Evren Hocam;
İkinizede teşekkur ederim.
Ellerinize sağlık.
İyi çalışmalar.