- Katılım
- 18 Kasım 2012
- Mesajlar
- 423
- Excel Vers. ve Dili
- Microsoft Office 365
- Altın Üyelik Bitiş Tarihi
- 04-07-2024
Merhaba,
Aşağıda paylaşmış olduğum kod bir veri kayıt formuna ait. Normalde başlıklar A1 sütununda idi. Ancak Başlıkları 6 cı sütuna çekince kayıt problemi yaşıyorum. Normalde girdiğim her veri bir list box da görünüyor. Hangi yolu denediysem farklı bir yer hata veriyor. Aşağıdaki kod konusunda yardımcı olabilecek birileri var mıdır ?
Syg,
Şimdiden çok teşekkürler.
Syg,
Aşağıda paylaşmış olduğum kod bir veri kayıt formuna ait. Normalde başlıklar A1 sütununda idi. Ancak Başlıkları 6 cı sütuna çekince kayıt problemi yaşıyorum. Normalde girdiğim her veri bir list box da görünüyor. Hangi yolu denediysem farklı bir yer hata veriyor. Aşağıdaki kod konusunda yardımcı olabilecek birileri var mıdır ?
Syg,
Kod:
rivate Sub CommandButton1Save_Click()
Sonsatır = WorksheetFunction.CountA(Worksheets("DATA").Range("A:A")) + 1
If Sonsatır = 2 Then
Worksheets("DATA").Cells(Sonsatır, 1) = 1
Worksheets("DATA").Cells(Sonsatır, 2) = ComboBox1ACREG.Value
Worksheets("DATA").Cells(Sonsatır, 4) = TextBox1FLIGHTN.Value
Worksheets("DATA").Cells(Sonsatır, 5) = TextBox2FLIGHTDATE.Value
Worksheets("DATA").Cells(Sonsatır, 6) = TextBox3FLIGHTROUTE.Value
Worksheets("DATA").Cells(Sonsatır, 7) = TextBox4ICAO.Value
Worksheets("DATA").Cells(Sonsatır, 9) = TextBox5COMPANY.Value
Worksheets("DATA").Cells(Sonsatır, 10) = TextBox6INVOICENO.Value
Worksheets("DATA").Cells(Sonsatır, 11) = TextBox7INVOICEDATE.Value
Worksheets("DATA").Cells(Sonsatır, 12) = ComboBox2SERVICE.Value
Worksheets("DATA").Cells(Sonsatır, 13) = ComboBox3SERVICETYPE.Value
Worksheets("DATA").Cells(Sonsatır, 14) = TextBox8DESCRIPTION.Value
Worksheets("DATA").Cells(Sonsatır, 15) = TextBox9QUANTITY.Value
Worksheets("DATA").Cells(Sonsatır, 16) = TextBox10UNITPRICE.Value
Worksheets("DATA").Cells(Sonsatır, 18) = TextBox12DISBURSEMENT.Value
Worksheets("DATA").Cells(Sonsatır, 19) = TextBox13DISBURSEMENTTAX.Value
Worksheets("DATA").Cells(Sonsatır, 20) = TextBox14INVOICETAX.Value
Worksheets("DATA").Cells(Sonsatır, 22) = ComboBox4CURRENCY.Value
Worksheets("DATA").Cells(Sonsatır, 23) = TextBox15DESCRIPTIONS.Value
Else
Worksheets("DATA").Cells(Sonsatır, 1) = Worksheets("DATA").Cells(Sonsatır - 1, 1) + 1
Worksheets("DATA").Cells(Sonsatır, 2) = ComboBox1ACREG.Value
Worksheets("DATA").Cells(Sonsatır, 4) = TextBox1FLIGHTN.Value
Worksheets("DATA").Cells(Sonsatır, 5) = TextBox2FLIGHTDATE.Value
Worksheets("DATA").Cells(Sonsatır, 6) = TextBox3FLIGHTROUTE.Value
Worksheets("DATA").Cells(Sonsatır, 7) = TextBox4ICAO.Value
Worksheets("DATA").Cells(Sonsatır, 9) = TextBox5COMPANY.Value
Worksheets("DATA").Cells(Sonsatır, 10) = TextBox6INVOICENO.Value
Worksheets("DATA").Cells(Sonsatır, 11) = TextBox7INVOICEDATE.Value
Worksheets("DATA").Cells(Sonsatır, 12) = ComboBox2SERVICE.Value
Worksheets("DATA").Cells(Sonsatır, 13) = ComboBox3SERVICETYPE.Value
Worksheets("DATA").Cells(Sonsatır, 14) = TextBox8DESCRIPTION.Value
Worksheets("DATA").Cells(Sonsatır, 15) = TextBox9QUANTITY.Value
Worksheets("DATA").Cells(Sonsatır, 16) = TextBox10UNITPRICE.Value
Worksheets("DATA").Cells(Sonsatır, 18) = TextBox12DISBURSEMENT.Value
Worksheets("DATA").Cells(Sonsatır, 19) = TextBox13DISBURSEMENTTAX.Value
Worksheets("DATA").Cells(Sonsatır, 20) = TextBox14INVOICETAX.Value
Worksheets("DATA").Cells(Sonsatır, 23) = TextBox15DESCRIPTIONS.Value
End If
temizle
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 22
ListBox1.RowSource = "DATA!KAYITSAYFASI"
ListBox1.ColumnWidths = "13;35;70;50;55;60;50;50;50;40;40;40;40;40;40;40;40;40;40;40;40;40;40"
Module2.MaxMinButton (Me.Caption)
End Sub
Şimdiden çok teşekkürler.
Syg,