İlk boş satıra yazma olayı

[nbayulken]

Arkadaşlar merhaba ,

Bir dosyada userform kulllandım .

Form Düzgün çalışıyor ama bir eksiği var . Form da seçtiğim lokasyonu D kolonunda ilk boş satıra yazmasını istiyorum . Yardımcı olur musunuz lütfen .

Dosya ekledim .

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Onayla_Click()
    Dim Satır As Long, WS As Worksheet
    
    Set WS = Worksheets("FORM")
    Satır = WS.Range("C65536").End(3).Row + 1
    
    With WS.Range("D3")
    .Offset(Satır - 3, 0).Value = Me.ComboBox1.Value
    End With
End Sub

 

[nbayulken]

Beyninize sağlık . Çok işimi görecek

 

[nbayulken]

Sevgili Korhan Ayhan ,

denemeler yaparken başıma birşey geldi . B kolonuna birşey yazarsam eğer . Onu da D kolonundaymış gibi sayıp D kolonunda bir satır daha atlıyor .

Yani isim soyad bölümüne birşey yazarsam . karşılığndaki D hücresinide atlıyor .

lütfen yardımcı olur musunuz ?

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.