combobox seçimi???

[udentr2002]

Öncelikle herkese iyi geceler bu forum sayesinde bir şeyler öğrenmeye başladım burdaki tüm hocalarıma ve arkadaşalrıma teşekkür ederim.

Bir forum yaptım forumda combo boxtan seçim yapıp textboxlara bilgi girdiğimde kaydet butonuna bastığımda kayıtları istediğim gibi yapıyor ama benim sorunum şu comboboxtan A' adlı firmayı seçip textboxlara verileri yazdıktan sonra kayıdet butonuna nastığımda A adlı sheet'e gidip yazıyor fakat bu kadarını yapabildim benim istediğim ise Combobox tan B adlı frmayı seçtiğimde B sheetine gidip text boxlardaki bilgiyi oraya yazması comboboxtan C adlı frmayı seçtiğimde C sheetine gidip oraya yazması ve D, E, F.. gibi diğer firmaları seçtiğimde ise yine onlara ait sheet e gidip verileri oraya kaydetmesi ekli dosyada da anlatmaya çalıştım eğer yardımcı olursanız çok sevinirim şimdiden tüm arkadaşlara teşekkür ederim hepinizden ALLAH razı olsun

 

[udentr2002]

yardım edecek bi hocam yokmu?

İlgilenirseniz sevinirim arkadaşlar

 

[alpi]

Dosyanız ekte.
Yanlız bundan sonraki ekleyeceğiniz örnek dosyaları sıkıştırırsanız çok iyi olur.

 

[Korhan Ayhan]

Selamlar,

Formunuzda bulunan "Kaydet" butonunuzdaki aşağıdaki kısmı bir sonraki ile değiştirip deneyiniz.

Not: Bu şekilde kullandığınızda eğer ilgili sayfa yoksa hata verecektir. Bunu önlemek için hata kontrolü ekleyebilirsiniz.

Sheets("A").Select

Sheets("" & ComboBox1).Select

 

[Levent Menteşoğlu]

Kaydet butonundaki kodu aşağıdaki ile değiştirerek deneyin.

Private Sub CommandButton1_Click()
If ComboBox1 = "" Then
MsgBox "Firma Adı Seçmelisiniz!!!"
Exit Sub
End If
Set s1 = Sheets(ComboBox1.Text)
If TextBox1.Text = "" Then
MsgBox "Ürününü Adını Giriniz!!!"
Exit Sub
ElseIf TextBox2.Text = "" Then
MsgBox "Etken Maddenin Adını ve Dozunu Giriniz!!!"
Exit Sub
ElseIf TextBox3.Text = "" Then
MsgBox "Bakanlık Numarasını Giriniz!!!"
Exit Sub
ElseIf TextBox8.Text = "" Then
MsgBox "Bakanlık Tarihini Giriniz!!!"
Exit Sub
End If
e = s1.[e65536].End(3).Row
s1.Cells(e + 2, "a") = TextBox1.Text
s1.Cells(e + 2, "b") = TextBox2.Text
s1.Cells(e + 2, "c") = TextBox3.Text
s1.Cells(e + 2, "d") = TextBox4.Text
s1.Cells(e + 2, "e") = TextBox8.Text
s1.Cells(e + 3, "e") = TextBox5.Text
s1.Cells(e + 4, "e") = TextBox6.Text
s1.Cells(e + 5, "e") = TextBox7.Text
s1.Cells(e + 6, "e") = TextBox9.Text
s1.Cells(e + 7, "e") = TextBox10.Text
s1.Cells(e + 8, "e") = TextBox11.Text
s1.Cells(e + 9, "e") = TextBox12.Text
s1.Cells(e + 10, "e") = TextBox13.Text
For a = 1 To 13
Controls("textbox" & a) = ""
Next
End Sub

 

[udentr2002]

teşekkürler

Leventm, costcontrol ve alpi arkadaşlar hepinize ayrı ayrı çok teşekkür ederim Allah razı olsun