kaydet makrosu

[puslukurt]

arkadaşlar ekte gönderdiğim dosyada da görüldüğü gibi forma girdiğim bilgileri boş satırlara kaydetmek istiyorum. dosyayı görünce daha iyi anlayacaksınız bi türlü beceremedim. yardımlarınız için şimdiden teşekkür ederim.

 

[mnz]

KAYIT BUTONUNA

Private Sub CommandButton1_Click()
Set aa = Sheets("VERİ")
mnz = aa.[A65536].End(3).Row + 1
aa.Cells(mnz, 1) = ComboBox1
aa.Cells(mnz, 3) = TextBox1
aa.Cells(mnz, 4) = Date
aa.Cells(mnz, 5) = ComboBox2
aa.Cells(mnz, 6) = ComboBox3
aa.Cells(mnz, 7) = TextBox2
aa.Cells(mnz, 8) = TextBox3
MsgBox = "KAYIT TAMAM"


End Sub

TARİH İÇİN

UserForm Initalize olayına

TextBox4 = Format(Date, "dd.mm.yyyy")

 

[GUERRA]

Ekteki dosya belki işinize yarar.

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[puslukurt]

kısmen

aslında kısen olmuş fakat tarih kısmını veri safasına yazdıramadım

 

[Seyit Tiken]

TextBox4'ün yanına bir button konularak, tarih ile ilgili yere kayıt işlemini yapıyor. Birde, olmamış bir nokta varsa, belirtilirse daha sağlıklı yanıtlar gelir. Genel olarak, "kısmen oldu" gibi sonuç beyanatlarla, konu dahada uzar ve doğru yanıt alma noktasında geçikmelere yol açar diye düşünüyorum.

 

[GUERRA]

Ek buton koymana gerek yok