verileri comboboxta seçtiğim sayfaya atabilirmiyim ?

[sanja2]

Merhaba arkadaşlar

Ekte gönderdiğim dosyada userformu açıp girdiğim verileri comboboxta seçtiğim sayfanın içindeki ilgili bölümlere aktarmak istiyorum.Hangi sayfa ismini seçersem verileri o sayfadaki ilgili sütuna sırayla atsın ben attıkça sayfada liste aşşaya doğru uzasın mümkünmü acaba ??? Olursa çok yardımcı olacaksınız şimdiden teşekkürler...

 

[halit3]

bu kodu denermisiniz.


Private Sub CommandButton1_Click()
Dosya = ActiveSheet.Name
ad = ComboBox1.Text
If ad = "" Then
MsgBox "Masraf cinsi seçmediniz ", vbInformation, " Uyarı!"
Exit Sub
End If
If ComboBox2.Text = "" Then
MsgBox "Tarih seçiniz"
Exit Sub
End If
If TextBox1.Text = "" Then
MsgBox "Tutarı yazınız."
Exit Sub
End If
If TextBox2.Text = "" Then
MsgBox "Açıklamayı yazınız."
Exit Sub
End If
Sheets(ad).Select
yer = WorksheetFunction.CountA(Worksheets(ad).Range("A1: A65000")) + 1
Worksheets(ad).Cells(yer, 1).Value = ComboBox2.Text
Worksheets(ad).Cells(yer, 2).Value = TextBox1.Text
Worksheets(ad).Cells(yer, 3).Value = TextBox2.Text
MsgBox "İŞLEM TAMAM"
Sheets(Dosya).Select
TextBox1.Text = ""
'TextBox2.Text = ""
End Sub
Private Sub UserForm_Initialize()
For j = 1 To 60
ComboBox2.AddItem Date + j - 30
Next
For i = 2 To Sheets.Count
Worksheets("Sayfa1").Cells(i - 1, 1).Value = Sheets(i).Name
Next i
End Sub

 

[NBATMAN]

dosyanız ekte...

 

[sanja2]

arkadaşlar çok teşekkürler harika olmuş Allah razı olsun istediğim tam olarak böyle birşeydi Halit3 ve NBATMAN arkadaşlarım ikinizinkide işime yarayacak iyi çalışmalar.