a sütununda dolu olan satıra kadar V stünuna veri yazdırmak

[udentr2002]

Merhaba arkadaşlar;
Combobox un change yordamının altına aşağıdaki gibi çalışan bir kodu nasıl yazabilirim?

A5 satırından aşağı doğru dolan olan satıra kadar, v5 den aşağı combobox8 deki veriyi yazacak.

Yani A5 den A10 kadar olan satır dolu ise gelip V5 den V10 kadar olan yere combobox8 deki veriyi yazacak.

Konu hakkında yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Saygı ve Sevgilerimle

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub CommandButton1_Click()
    Dim Son As Long
    
    Son = Cells(Rows.Count, "A").End(3).Row
    
    Range("V5:V" & Son) = ComboBox8.Value
End Sub

 

[Korhan Ayhan]

Döngüyle alternatif;

Option Explicit

Private Sub CommandButton1_Click()
    Dim X As Long
    
    For X = 5 To Cells(Rows.Count, "A").End(3).Row
        Cells(X, "V") = ComboBox8.Value
    Next
End Sub

 

[udentr2002]

Döngüyle alternatif;

Option Explicit

Private Sub CommandButton1_Click()
    Dim X As Long
   
    For X = 5 To Cells(Rows.Count, "A").End(3).Row
        Cells(X, "V") = ComboBox8.Value
    Next
End Sub

Hocam çok teşekkür ederim.
Elinize sağlık.
Hakkınızı helal edin.

Saygılarımla