Yeni Kayıt Makro Kod Sorunu...

[manly]

Ekte gönderdiğim dosyada, Menüye git butonuna tıkladıktan sonra Yeni Kayıt butonu var. Ona tıklayıp açılan Userformda kayıtları girdikten sonra Kaydet butonuna bastığımda, yazdığım verileri yeni satırda eklemesini istiyorum...

 

[İhsan Tank]

Ekte gönderdiğim dosyada, Menüye git butonuna tıkladıktan sonra Yeni Kayıt butonu var. Ona tıklayıp açılan Userformda kayıtları girdikten sonra Kaydet butonuna bastığımda, yazdığım verileri yeni satırda eklemesini istiyorum...

merhaba
yeni kayıt userform'un kod bölümüne

Private Sub CommandButton9_Click()
Dim ts, kaplan, trabzonspor
If TextBox80 = Empty Then MsgBox "Sipraiş No Giriniz", _
vbCritical: TextBox80.SetFocus: Exit Sub
If TextBox81 = Empty Then MsgBox "Sıra No Giriniz", _
vbCritical: TextBox81.SetFocus: Exit Sub
If TextBox82 = Empty Then MsgBox "Stok No Giriniz", _
vbCritical: TextBox82.SetFocus: Exit Sub
If TextBox83 = Empty Then MsgBox "Firma Giriniz", _
vbCritical: TextBox83.SetFocus: Exit Sub
If TextBox84 = Empty Then MsgBox "Sipraiş No Giriniz", _
vbCritical: TextBox84.SetFocus: Exit Sub
If TextBox85 = Empty Then MsgBox "Malzeme Cinsi Giriniz", _
vbCritical: TextBox85.SetFocus: Exit Sub
If TextBox86 = Empty Then MsgBox "Miktar Giriniz", _
vbCritical: TextBox86.SetFocus: Exit Sub
If TextBox87 = Empty Then MsgBox "Seri Giriniz", _
vbCritical: TextBox87.SetFocus: Exit Sub
If TextBox88 = Empty Then MsgBox "Sipraiş Açılış Tarihi Giriniz", _
vbCritical: TextBox88.SetFocus: Exit Sub
kaplan = MsgBox("Verileri Kaydediyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
trabzonspor = Sheets("2011 SİPARİŞLER").Range("A65536").End(xlUp).Row
ts = trabzonspor + 1
Sheets("2011 SİPARİŞLER").Range("A" & ts) = TextBox80.Text
Sheets("2011 SİPARİŞLER").Range("B" & ts) = TextBox81.Text
Sheets("2011 SİPARİŞLER").Range("C" & ts) = TextBox82.Text
Sheets("2011 SİPARİŞLER").Range("D" & ts) = TextBox83.Text
Sheets("2011 SİPARİŞLER").Range("E" & ts) = TextBox84.Text
Sheets("2011 SİPARİŞLER").Range("F" & ts) = TextBox85.Text
Sheets("2011 SİPARİŞLER").Range("G" & ts) = TextBox86.Text
Sheets("2011 SİPARİŞLER").Range("H" & ts) = TextBox87.Text
Sheets("2011 SİPARİŞLER").Range("I" & ts) = Format(TextBox88. _
Text, "dd.mm.yyyy")
MsgBox "Verileri Kaydettim", vbInformation, "Bitiş"
TextBox80 = ""
TextBox81 = ""
TextBox82 = ""
TextBox83 = ""
TextBox84 = ""
TextBox85 = ""
TextBox86 = ""
TextBox87 = ""
TextBox88 = ""
End Sub

 

[manly]

Hocam çok teşekkürler, B sütununa otomatik sayı atayabilirmiyiz...

 

[İhsan Tank]

Hocam çok teşekkürler, B sütununa otomatik sayı atayabilirmiyiz...

sıra no textbox'u iptal mi olacak_?

 

[manly]

TextBox81 buraya bir üst satırdan sonra gelen sayı otomatik gelsin istiyorum..

 

[İhsan Tank]

TextBox81 buraya bir üst satırdan sonra gelen sayı otomatik gelsin istiyorum..

merhaba
userform'un kod bölümüne bunu da ekleyin

Private Sub UserForm_Initialize()
TextBox81 = WorksheetFunction.Max(Sheets("2011 SİPARİŞLER").Range("B:B")) + 1
End Sub

 

[manly]

merhaba
userform'un kod bölümüne bunu da ekleyin

Private Sub UserForm_Initialize()
TextBox81 = WorksheetFunction.Max(Sheets("2011 SİPARİŞLER").Range("B:B")) + 1
End Sub

İhsan hocam çok teşekkür ederim..ellerinize sağlık...

 

[İhsan Tank]

İhsan hocam çok teşekkür ederim..ellerinize sağlık...

rica ederim
:yazici:

 

[veygun]

Teşekkürler.

 

[İhsan Tank]

Teşekkürler.

rica ederim
:yazici: