aynı userform ile farklı sayfa ve hücrelere veri girişi yapabilme

[azure26]

Merhaba aşağıda yazılı formuldeki ARALIK ve 34 ,33 yazan yerleri ne ile değişken yapabilirim, buraları değiştirebilirsem hazırladığım userform ile mesela aralık yazan yere eylül yazdırıp eylül sayfasına veri girişi sağlayabilirmiyim.


Private Sub ListBox6_Click()

End Sub

Private Sub TextBox1_AfterUpdate()
If TextBox1 <> "" Then
sonsatýr = WorksheetFunction.CountA(Worksheets("ARALIK").Range("AG:AG")) + 1

Worksheets("ARALIK").Cells(sonsatýr, 34) = TextBox1.Value
Worksheets("ARALIK").Cells(sonsatýr, 33) = ComboBox1.Value

TextBox1.Value = ""
Else

End If
End Sub


Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Click()

End Sub

 

[PLİNT]

Merhaba
Kodlar içindeki
"Worksheets("ARALIK") " yazan kısımları "activesheet" yazarsanız hangi sayfa açık ise ona kaydeder,
Veya "combobox" ekleyip sayfa adlarını listeler buradan seçerek
"Worksheets(combobox2.value)" ile değiştirirsiniz

 

[azure26]

çok teşekkür ederim combobox2 ile yaptım. emeğinize sağlık

 

[PLİNT]

Rica ederim
Şu satırıda ekleyiniz

Private Sub TextBox1_AfterUpdate()
If ComboBox2.Value = "" Then MsgBox "Sayfa seçiniz": Exit Sub
'...
'...diğer kodlar
'....


Şöyle bir örnek hazırlamıştım
https://www.dosyaupload.com/fkkJ

Sayfaları dosyadaki gibi veya;

Private Sub UserForm_Initialize()

ComboBox2.List = Array("ARALIK", "EYLÜL")


End Sub

 

[azure26]

tekrar teşekkür ederim.