Userformla yapılan kayıttaki sorun.

[İsmail Küçükşengün]

Merhaba;

Ekteki dosyada; Userforma girilen veriler M sütunundan itibaren ilk boş satıra kayıt yapılması gerekirken, çalışmada 6.satırdan itibaren yapmakta.

Sorunu çözmek için kodlarda ne gibi değişiklik gerekir.

Teşekkürler...

 

[Recep İpek]

say = WorksheetFunction.CountA(Range("N1:R1"))

kodunu

say = WorksheetFunction.CountA(Range("m2:m14"))

olarak düzeltiniz.

 

[Orion1]

Kırmızı ile renkli olan satırda değişiklik yapıldı.
Ekli dosyayı inceleyiniz.

Private Sub CommandButton12_Click()
On Error Resume Next
Sheets("verigir").Select
 
    Dim say As Integer
    
   
        [COLOR="Red"]say = WorksheetFunction.CountA(Range("M2:M14")) + 1[/COLOR]
    TextBox7.Value = say
     Cells(say + 1, 13).Value = TextBox7.Value
    Cells(say + 1, 14).Value = TextBox1.Value
    Cells(say + 1, 15).Value = ComboBox1.Value
    Cells(say + 1, 16).Value = DTPicker1.Value
    Cells(say + 1, 17).Value = DTPicker2.Value
    Cells(say + 1, 18).Value = TextBox2.Value
    
    
    TextBox1.SetFocus
    Unload Me
End Sub

 

[İsmail Küçükşengün]

say = WorksheetFunction.CountA(Range("N1:R1"))

kodunu

say = WorksheetFunction.CountA(Range("m2:m14"))

olarak düzeltiniz.

Sayın ripek;

+1 yazmayınca sütun başlıkları olan 1. satıra yazıyor. +1 yazınca oldu.
Teşekkürler.İyi Akşamlar.

 

[İsmail Küçükşengün]

Sayın Orion2;

Her zaman ve herkesin yardımına yetiştiğiniziçin gibi yine imdada yetiştiniz.
Ben de bu yaştan sonra birşeyler yapmaya çalışıyorum. Ama işte böyle basit şeylerde bile takılıyorum.

Teşekkür ve iyi akşamlar...

 

[Recep İpek]

Sayın ripek;

+1 yazmayınca sütun başlıkları olan 1. satıra yazıyor. +1 yazınca oldu.
Teşekkürler.İyi Akşamlar.

Evet bu noktayı atlamışım.Sn.Orion2 sağolsun düzeltmiş.

 

[Orion1]

Sayın Orion2;

Her zaman ve herkesin yardımına yetiştiğiniziçin gibi yine imdada yetiştiniz.
Ben de bu yaştan sonra birşeyler yapmaya çalışıyorum. Ama işte böyle basit şeylerde bile takılıyorum.

Teşekkür ve iyi akşamlar...

Rica ederim.
İyi çalışmalar.