Userform Veri Kaydetme Sorunu/Yardımı hakkında

[theredcloud]

Değerli arkadaşlar,

Ekte hazırlamış olduğum bir belge mevcut. Bu belgeye useform yaptım. Verileri kaydediyor. Fakat sorun şu ki üst satırda eğer değer girilmemiş bir hücre varsa bir sonraki kayıtta üst kayıttaki boş hücreye kayıt yapıyor. Ekteki dosyada durumu açıkladım.

Bir başka sorum daha önce forumda da yardım eden arkadaşlar oldu sağ olsunlar ama bir türlü başaramadım. Soru şöyle ekteki dosyadaki useform'un tarih bölmünü tıklayınca açılır tarih olmasını istiyorum. Aslında gerekli modül ve takvim tasarımı mevcut ama kodu bir türlü çalıştıramadım.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Tarih bölümüne giriş zorunlu olacağını düşünerek son satırı A sütunundan alarak ilerledim.
Kaydet kodlarını aşağıdakilerle değiştirerek deneyin.

Private Sub CommandButton1_Click()
 
    Dim i As Long, son As Long
 
    son = Cells(Rows.Count, "A").End(xlUp).Row + 1
 
    Cells(son, "A") = TextBox2.Value
    Cells(son, "B") = TextBox5.Value
    Cells(son, "C") = TextBox4.Value
    Cells(son, "D") = ComboBox2.Value
    Cells(son, "E") = ComboBox4.Value
    Cells(son, "F") = ComboBox3.Value
    Cells(son, "G") = ComboBox8.Value
    Cells(son, "H") = TextBox7.Value
    Cells(son, "I") = TextBox3.Value
    Cells(son, "J") = ComboBox5.Value
    Cells(son, "K") = ComboBox11.Value
    Cells(son, "L") = ComboBox10.Value
    Cells(son, "M") = TextBox6.Value
 
    For i = 0 To Controls.Count - 1
        If TypeName(Controls(i)) = "ComboBox" _
            Or TypeName(Controls(i)) = "TextBox" Then
            Controls(i) = ""
        End If
    Next i
 
End Sub

.

 

[theredcloud]

Sayın Ömer,

Hızlı yanıtınız ve yardımınız için teşekkür ederim. Sanırım istediğim gibi oldu.
Tek sıkıntım takvim kısmını bir türlü çalıştıramadım.

Emeğiniz için teşekkür ederim.