makro ile texboxa yazıp kaydetmek

[puslukurt]

Merhaba ;
arkadaşlar ekdeki xls dosyasında bir userform üzerinde bulunan 3 adet textbox'a tarih ve rakam yazıp kaydettirmek istiyorum detaylı açıklamayı dosyanın içinde görebilirsiniz ilgi va alakanıza şimdiden teşekkürler.

 

[hamitcan]

Bu kodları ekleyin, var olanları yenisi ile değiştirin.

Dim SiraNO As Long 'Bu satırı tüm kodların başına ekleyin.

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox6 = 3
End Sub
Private Sub CommandButton3_Click()
Cells(SiraNO, "d") = TextBox4
Cells(SiraNO, "e") = TextBox5
Cells(SiraNO, "f") = TextBox6
End Sub
Private Sub CommandButton1_Click()
Sheets("sayfa1").Select
Dim bak As Range
    For Each bak In Range("a2:a" & WorksheetFunction.CountA(Range("a2:a1248")) + 1)
        If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then
            bak.Select
            SiraNO = Selection.Row
            TextBox2.Value = ActiveCell.Offset(0, 1).Value
            TextBox3.Value = ActiveCell.Offset(0, 2).Value
            TextBox4.Value = Format(ActiveCell.Offset(0, 3).Value, "dd/mm/yyyy")
            TextBox5.Value = Format(ActiveCell.Offset(0, 4).Value, "dd/mm/yyyy")
            TextBox6.Value = ActiveCell.Offset(0, 5).Value
            TextBox7.Value = ActiveCell.Offset(0, 6).Value
            TextBox8.Value = ActiveCell.Offset(0, 7).Value
            TextBox9.Value = ActiveCell.Offset(0, 8).Value
            Exit Sub
        End If
    Next bak
    MsgBox "ARADIĞINIZ KAYIT BULUNAMADI DİKKAT ET BURASI 3 TONLUK KÖMÜR KAĞITLARININ BULUNDUĞU YER, ELİNDEKİ KAĞIT 6 TONLUK OLMASIN KOÇUM!!!"
End Sub

Aşağıdaki kısmı anlamadım.

textbox5'e kayıtlı olan tarihi yazıp kaydettikten sonra bir daha düzeltemeyeyim.

 

[puslukurt]

kaydet makrosu

bir iki detay haricinde hocam olmuş; anlamadığınız kısım olmasa da olur. textbox5 tarih girip kaydete bastıktan sonra o girdiğim tarihi textboxtan ne silebileyim nede düzeltebileyim demek istemiştim yani textbox5 dolu ise pasif olsun yazılmasın demiştim. diğer detay ise hocam birinci tarihi girdikten sonra mesaj gelsin demştim mesaj gelmiyor. Yani hocam gidiş tarihi kısmına (textbox4) tarih yazıp, kaydet dediğimde uyarı mesajı istiyorum. Mesajda gidiş tarihi kaydedildi desin. dönüş tarihi kısmına (textbox5) tarih yazıp, kaydet dediğimde ise dönüş tarihi kaydedildi desin. zaten diğer taraflarını tam istediğim gibi yapmışsınız hocam elinize ve bilginize sağlık bu iki detayıda hallederseniz çok memnun kalacağım

 

[hamitcan]

İki kutucuktan birinin boş olması durumuna göre kod çalışıyor.

Private Sub CommandButton3_Click()
If TextBox4 <> Empty And TextBox5 = Empty Then
Cells(SiraNO, "d") = TextBox4
MsgBox "gidiş tarihi kaydedildi"
ElseIf TextBox5 <> Empty And TextBox4 = Empty Then
Cells(SiraNO, "e") = TextBox5
MsgBox "dönüş tarihi kaydedildi"
Else
MsgBox "gidiş ve dönüş tarihi kaydedildi"
End If
Cells(SiraNO, "f") = TextBox6
End Sub