ComboBox larla secilenleri sayfaya aktarmak

[gecitli]

Saygilar Ekteki dosyada ComboBox1 de sayfa ComboBox2 de Günler var
ilgili sayfayi ve günu sectigimde TextBox lara girdigim degeri ilgili sayfanin Baslama Bitirme bolumlerine yazilsin bu konuda yardim edebilirmisiniz

Saygilar

 

[Orion1]

Dim syf As Worksheet, k As Range
On Error Resume Next
Set syf = Sheets(ComboBox1.Value)
    Set k = syf.Range("B6:B36").Find(ComboBox2.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        syf.Cells(k.Row, "H").Value = CDate(TextBox1.Value)
        syf.Cells(k.Row, "I").Value = CDate(TextBox2.Value)
    End If
Set k = Nothing
MsgBox "İşlem tamam"

 

[gecitli]

Oncelikle cevabiniz icin tesekurler ComboBox2 de günleri gormuyor yoksa benmi hata yaptim bir baka bilirmisiniz

Saygilar

 

[Orion1]

Dosya ekte

 

[gecitli]

istedigim buydu tesekurler evren bey Sayfa ismini sectigimde ilgili sayfaya gitmesi mumkunmu bu ornekti aslinda butun aylar mevcut

 

[Orion1]

Aşağıdaki kodları ilve ediniz Userformun modülüne.

Private Sub ComboBox1_Click()
On Error Resume Next
Sheets(ComboBox1.Value).Select
End Sub