Texboxları Hesaplatıp Kaydetmek

[omeryılmaz]

Kurumumuza bağlı Aile Hekimlerinin aylık Laboratuvar kayıtlarını Faturalandırmak üzere oluşturduğum Formda, Veri girip Kaydet dediğimde işlem takılıp kalmakta, Kaydet butonundaki bu hatayı bir türlü çözemedim.

Kod

Private Sub EKLE_Click()
'On Error Resume Next
If Aile1.Text = "" Then
MsgBox "Aile Hekimini Seçiniz."
Exit Sub
End If

If Aile2.Text = "" Then
MsgBox "Aile Hekiminin Adını Seçiniz."
Exit Sub
End If

If Ay.Text = "" Then
MsgBox "Kayıt Ayını Seçiniz."
Exit Sub
End If

If Yıl.Text = "" Then
MsgBox "Kayıt Yılını Seçiniz."
Exit Sub
End If

If TOPLAMTUTAR.Text = "" Then
MsgBox "Hesapla----> Butonu Faturayı Düzenleyiniz."
Exit Sub
End If

'If IsNumeric(ComboBox3.Text) <> True Then
'MsgBox "Tc Kimlik veya Barkod numarası sayı giriniz."
'Exit Sub
'End If

'If Len(ComboBox3.Text) < 11 Then
'MsgBox "Tc Kimlik veya Barkod numarası 11 karekter olması gerekir."
'Exit Sub
'End If
sat = WorksheetFunction.CountA(Worksheets("KAYIT").Range("A2:A65000")) + 2
Sheets("KAYIT").Cells(sat, 1).Value = ""
Sheets("KAYIT").Cells(sat, 2).Value = ComboBox1.Text
Sheets("KAYIT").Cells(sat, 3).Value = ComboBox2.Text
Sheets("KAYIT").Cells(sat, 4).Value = "" 'Gün
Sheets("KAYIT").Cells(sat, 5).Value = Ay.Text
Sheets("KAYIT").Cells(sat, 6).Value = Yıl.Text
Sheets("KAYIT").Cells(sat, 7).Value = ComboBox3.Text ' Barkod
Sheets("KAYIT").Cells(sat, 8).Value = Aile1.Text
Sheets("KAYIT").Cells(sat, 9).Value = Aile2.Text
Sheets("KAYIT").Cells(sat, 10).Value = Aile3.Text 'aile Hek No

Sheets("KAYIT").Cells(sat, 11).Value = KOD1.Text
Sheets("KAYIT").Cells(sat, 12).Value = ADET1.Text
Sheets("KAYIT").Cells(sat, 13).Value = FİAT1.Text
Sheets("KAYIT").Cells(sat, 14).Value = TUTAR1.Text
Sheets("KAYIT").Cells(sat, 15).Value = PUAN1.Text

Sheets("KAYIT").Cells(sat, 16).Value = KOD2.Text
Sheets("KAYIT").Cells(sat, 17).Value = ADET2.Text
Sheets("KAYIT").Cells(sat, 18).Value = FİAT2.Text
Sheets("KAYIT").Cells(sat, 19).Value = TUTAR2.Text
Sheets("KAYIT").Cells(sat, 20).Value = PUAN2.Text

Sheets("KAYIT").Cells(sat, 21).Value = KOD3.Text
Sheets("KAYIT").Cells(sat, 22).Value = ADET3.Text
Sheets("KAYIT").Cells(sat, 23).Value = FİAT3.Text
Sheets("KAYIT").Cells(sat, 24).Value = TUTAR3.Text
Sheets("KAYIT").Cells(sat, 25).Value = PUAN3.Text

Sheets("KAYIT").Cells(sat, 26).Value = KOD4.Text
Sheets("KAYIT").Cells(sat, 27).Value = ADET4.Text
Sheets("KAYIT").Cells(sat, 28).Value = FİAT4.Text
Sheets("KAYIT").Cells(sat, 29).Value = TUTAR4.Text
Sheets("KAYIT").Cells(sat, 30).Value = PUAN4.Text

Sheets("KAYIT").Cells(sat, 31).Value = KOD5.Text
Sheets("KAYIT").Cells(sat, 32).Value = ADET5.Text
Sheets("KAYIT").Cells(sat, 33).Value = FİAT5.Text
Sheets("KAYIT").Cells(sat, 34).Value = TUTAR5.Text
Sheets("KAYIT").Cells(sat, 35).Value = PUAN5.Text

Sheets("KAYIT").Cells(sat, 36).Value = KOD6.Text
Sheets("KAYIT").Cells(sat, 37).Value = ADET6.Text
Sheets("KAYIT").Cells(sat, 38).Value = FİAT6.Text
Sheets("KAYIT").Cells(sat, 39).Value = TUTAR6.Text
Sheets("KAYIT").Cells(sat, 40).Value = PUAN6.Text

End Sub


Forum İlişikte sunulmuş olup şimdiden yardımlarınız için şükranlarımı sunuyorum

 

[Huseyinkis]

Dosya uzerinde kaydet dediğimde herhangi bir takılma olmadı sadece aynı satıra kayıt yapıyor oda sıra numarası vermediğiniz için.

Sheets("KAYIT").Cells(sat, 1).Value = ""

Sheets("KAYIT").Cells(sat, 1).Value = sat

yukarıdaki işlemi yaparsanız satır numarasınıda kaydetmiş olursunuz.

 

[ulutanas]

ben dosyayı inceledim fakat kayıt sonucunda hiç bir hata vermiyor bence başka bir sorun var.

 

[omeryılmaz]

Dosya uzerinde kaydet dediğimde herhangi bir takılma olmadı sadece aynı satıra kayıt yapıyor oda sıra numarası vermediğiniz için.

Sheets("KAYIT").Cells(sat, 1).Value = ""

Sheets("KAYIT").Cells(sat, 1).Value = sat

yukarıdaki işlemi yaparsanız satır numarasınıda kaydetmiş olursunuz.

Sheets("KAYIT").Cells(sat, 1).Value = sat kodunu yerine ekledim ama yine aynı, Kaydet butonu UserForm üzerindeki işlem sona ermiyor..

İşlem saatlerce sürüyor.

 

[omeryılmaz]

ben dosyayı inceledim fakat kayıt sonucunda hiç bir hata vermiyor bence başka bir sorun var.

İşlenen Veriler Sayfaya aynen aktarılıyor. Ancak UserForm Üzerindeki Kaydet Butonu işlem yaparmış gibiş işlem sürüyor.

Kod Sonuna MsgBox "İşlem Tamam" komutu ekledim bir türlü işlem tamam komutu alamadım..