CommanButton ile Veri girişi Ancak aşağıya doğru!

[teknadir]

CommandButton nesnesi ile kayıt ekleme yapıyorum. Yeni kayıt yaptığımda en son boş satıra (mesela a5:g5) veri girişi yapıyorum. Ancak listemi aşağıya doğru değilde sağa dğru oluşturmam gerekiyor. Bu durumda yeni kayıtları en son boş sütüna yapmam lazım. Bunu nasıl yapabilirim)

 

[İhsan Tank]

CommandButton nesnesi ile kayıt ekleme yapıyorum. Yeni kayıt yaptığımda en son boş satıra (mesela a5:g5) veri girişi yapıyorum. Ancak listemi aşağıya doğru değilde sağa dğru oluşturmam gerekiyor. Bu durumda yeni kayıtları en son boş sütüna yapmam lazım. Bunu nasıl yapabilirim)

Dosya yok mu_?

 

[teknadir]

Dosya çok büyük, kodları gönderiyorum.

Private Sub cmdAmbarKyt_Click()

sat = WorksheetFunction.CountA(Worksheets("liste").Range("B2:B65000")) + 2
If TextMalzAd.Text = "" Then
MsgBox "Malzeme Adı Girmelisiniz!"
Exit Sub
End If

If TextMalzBr.Text = "" Then
MsgBox "Malzeme Birimi Girmelisiniz!"
Exit Sub
End If

If IsNumeric(TextMalzMkt.Text) <> True Then
MsgBox "Malzeme Miktarı Girmelisiniz!"
Exit Sub
End If

If IsNumeric(TextMalzKDV.Text) <> True Then
MsgBox "Malzemenin Fiyatını Girmelisiniz!"
Exit Sub
End If

If IsNumeric(TextDefNo.Text) <> True Then
MsgBox "Malzemenin Esas Ambar Defteri Bölüm Numarasını Girmelisiniz!"
Exit Sub
End If

Dim TA As Range
For Each TA In Sheets("liste").Range("B2:B500").Cells
If TA.Value = TextMalzAd.Text Then
MsgBox TextMalzAd.Text & " " & TA.Address & " Hücresinde bu kayıt var"
Exit Sub
End If
Next TA

a = MsgBox(TextMalzAd.Text & " " & TextMalzBr.Text & " " & TextMalzMkt.Text & " " & TextMalzKDV.Text & " " & TextDefNo.Text & Chr(10) & Chr(10) & _
"Yeni kayıt işlemini yapmak İstiyormusunuz..?", vbYesNo + vbInformation, c & " yeni kayıt penceresi")
If a = vbNo Then
Exit Sub
End If


Sheets("liste").Cells(sat, 2).Value = TextMalzAd.Text
Sheets("liste").Cells(sat, 3).Value = TextMalzBr.Text
Sheets("liste").Cells(sat, 4).Value = TextMalzMkt.Text
Sheets("liste").Cells(sat, 5).Value = TextMalzKDV.Text
Sheets("liste").Cells(sat, 6).Value = TextDefNo.Text

End Sub

 

[teknadir]

Dosya yok mu_?

Sayın İhsan Tank, cevap yok mu?

 

[İhsan Tank]

Sayın İhsan Tank, cevap yok mu?

Nasıl olsun kodu eklemişsin ben o kodu okuyana kadar kaç kişiye yardım ederim sizin haberiniz var mı_?