döngü yardım

[emir_komutan]

merhabalar arkadaşlar...
değerli arkadaşlar A kolonunda dolu hüçrelerin 2 sağına textbox1 ın değerini atayacak döngü kurmak istiyorum (((yani a1 den başlayarak aşağıdoru boş hüçreyi bulanakadar dolu hüçrelerin karşısına textbox un değerini yazdırmak))bu konuda yardımcı olacak arkadaşlara şimdiden teşekürler...

 

[Orion1]

Aşağıdaki kodlar c sütununa textboxtaki değeri atar.

Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To Cells(65536, 1).End(xlUp).Row
    Cells(i, "C").Value = TextBox1.Value
Next
MsgBox "İşlem Tamam"
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki şekildede kullanabilirsiniz.

Private Sub CommandButton1_Click()
    Range("C1:C" & [A65536].End(3).Row) = TextBox1.Value
End Sub

 

[emir_komutan]

üstad ilgi ve alakanızdan dolayı teşekürler. Burada a1 boş olsada "c" değer yazıyor ben istiyorum ki (eğer a1 boşsa işlem yapma doluysa textbox değerini
aktif hüçrenin 2 sağına yaz ve sonraki satıra bak yani a2 ye aynı işlemleri tekrar etsin istiyorum....

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub CommandButton1_Click()
i = 1
Do While Cells(i, "A") <> ""
Cells(i, "C") = TextBox1.Value
i = i + 1
Loop
End Sub

 

[Orion1]

üstad ilgi ve alakanızdan dolayı teşekürler. Burada a1 boş olsada "c" değer yazıyor ben istiyorum ki (eğer a1 boşsa işlem yapma doluysa textbox değerini
aktif hüçrenin 2 sağına yaz ve sonraki satıra bak yani a2 ye aynı işlemleri tekrar etsin istiyorum....

Ama 1nci mesajdaki sorunuzda böyle bir koşul olduğunu belirtmemişsiniz.
Lütfen sorularımızı dağa net ve açıklayıcı soralım.