ComboBox'tan seçtiğim çalışma sayfasının ismini hücreye yazma?

[My_Dog]

ComboBox2'de şu kodla beraber çalışma sayfalarını görüyorum;

Private Sub UserForm_initialize()
For b = 3 To Sheets.Count - 0
ComboBox2.AddItem Sheets(b).Name
Next
End Sub


Fakat ComboBox'lu formu kaydederken ComboBox2'de seçtiğim çalışma sayfasını kayıt ettiğim çalışma sayfasına ismini yazmıyor?
Yardımcı olursanız çok sevinirim.

 

[Recep İpek]

Sayfaya kaydetmek için kullandığınız kodları ekleyebilirmisiniz?

 

[My_Dog]

Private Sub Kaydet_Click()
If ComboBox1 = "" Then
MsgBox "Lütfen Birimi Seçiniz."
Else
Sheets(ComboBox1.Value).Select
son = [a65536].End(3).Row + 1
Range("a2").Value = TextBox1.Value
Range("b2").Value = TextBox2.Value
Range("e2").Value = TextBox3.Value
Range("f2").Value = TextBox4.Value
Range("g2").Value = TextBox5.Value
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
ComboBox1 = ""
MsgBox "BAŞARILI BİR ŞEKİLDE EKLENMİŞTİR."
Sheets("Stoklar").Select
End If
End Sub

 

[Recep İpek]

Sayfa isimleri Combobox1'de mi?Yoksa Combobox2'de mi olması gerekiyor?

Kaydetme kodlarında Combobox2 hiçbir yerde geçmiyor.

 

[My_Dog]

işte ComboBox2 bunun içinde olması gerekiyor ama benim yazdığım kodlar hata veriyor.

 

[Recep İpek]

Açıkcası yapmak istediğinizi tam olarak anlayamadım.

Userformdaki Textbox'lara girdiğiniz verileri Combobox2'den seçtiğiniz sayfaya kaydetilmesini mi istiyorsunuz?

 

[My_Dog]

1-öncelikle şöyle anlatayım bu bir form ve formun içindede iki tane Combobox var. Ben ikinci Combobox'un içinden Y çalışma sayfası seçiyorum. daha sonra kaydet tuşuna bastığımda S çalışma sayfasına kaydediyor. kaydettiğimde S çalışma sayfasındaki ComboBox2 satırına Y yazmasını istiyorum.

2-Bundan ayrı olarak Y çalışma sayfasınada aynı kaydı geçerse benim için daha iyi olur.