userform'a makro

[İhsan Tank]

selam arkadaşlar çalışma sayfasına userform ekledim ( kısayol tuşu f12'dir ) bu userform'da istediklerim ise
gider menüsünün altında bulunanları G1 sayfasındaki ilgili yerlere gelmesi

 

[İhsan Tank]

arkadaşlar sorumu tek'e düşürdüm buna çözüm istesem

 

[İhsan Tank]

arkadaşlar böyle bir çalışmaya yardım edecek kimse yok mu_?

 

[İhsan Tank]

arkadaşlar sorumda anlaşılmayan bir durum mu var acaba sanırım ben sorumu yine anlatamadım lütfen anlamadığınız yeri açıklarsanız ben de bu çalışmayı kullanayım yardımlarınızı bekliyorum

 

[İhsan Tank]

arkadaşlar sorumda anlaşılmayan bir durum mu var acaba
sanırım ben sorumu yine anlatamadım lütfen anlamadığınız yeri söyleyiniz
ben de bu çalışmayı kullanayım yardımlarınızı bekliyorum

 

[acolkesen1]

Böyle bir şey işinizi görür mü acaba?

 

[İhsan Tank]

teşekkür ederim yalnız bu çalışma sayfasını ComboBox'a nasıl ayarlayabilirim

 

[acolkesen1]

Nasıl bir ayarlama yapmak istiyorsunuz? Detaylı bir açıklama yazarsanız bilgim sınırlarında yardımcı olmaya çalışırım..

 

[İhsan Tank]

bu örnekte olanlar sadece birinci aya ait aynı şekilde 12 ay var ben userform'a geçiriyorum istediğim şey ise combobox ile sayfaları seçmek
not : tarih kısmını ayarlamayınız orası iptal olacak siz sadece içine bilgi girişini ayarlarsanız ben de devam etmeye çalışayım

 

[İhsan Tank]

arkadaşlar bana yardım edecek kimse yok mu_?

 

[halit3]

bu kodu denermisiniz.

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then MsgBox "Sayfayı Sçmediniz.": Exit Sub
yer = ComboBox1.Text
Sheets(yer).[A38].End(3).Offset(1, 0) = TextBox1.Text
Sheets(yer).[C38].End(3).Offset(1, 0) = TextBox2.Text
Sheets(yer).[D38].End(3).Offset(1, 0) = TextBox3.Text
Sheets(yer).[E38].End(3).Offset(1, 0) = TextBox4.Text
Unload UserForm1
End Sub

 

[İhsan Tank]

hocam teşekkür ederim diğer seçenekleri yapmaya calışacağım

 

[acolkesen1]

Merhaba,
Yapmak istediğiniz combo boxtan sayfa seçmek ise aşağıdaki kodu kullanmak istediğiniz comboboxun change olayına yazın.
Private Sub ComboBox1_Change()
Set S1 = Sheets(ComboBox1.Value)
S1.Select
End Sub
Daha önceki dosyada da buna göre düzenleme yaparak ekledim. İyi çalışmalar.

 

[İhsan Tank]

Merhaba,
Yapmak istediğiniz combo boxtan sayfa seçmek ise aşağıdaki kodu kullanmak istediğiniz comboboxun change olayına yazın.
Private Sub ComboBox1_Change()
Set S1 = Sheets(ComboBox1.Value)
S1.Select
End Sub
Daha önceki dosyada da buna göre düzenleme yaparak ekledim. İyi çalışmalar.

arkadaşım teşekkür ederim yaptım istediğimi şu an başka takıldığım konu olursa gene sorarım çok sağol