Useformda Optionbutton ile farklı sayfalara veri yazdırma

[metince54]

merhaba. elimdeki excelde çeşitli arızalar var userformda seçtiğim arıza sayfasına kaydetmesini istiyorum. daha hafif daha uygun bakış acılarına açığım. önemli olan şey seçtiğim seçeneğin sayfasına yazdırması yazdırdıktan sonra o sayfaya yönlendirmesi gerekiyor. bazen aynı arıza 1 den çok yazılıyor ben oraya koşullu biçimlendirme yada ufak bir formülle tekrar sayısını görmem gerekiyor. şimdiden çooook teşekkür ederim.

Bonus yardım isteği boyut olarak nasıl küçültebiliriz zamanla hantallaşmaması için

 

[askm]

Aşağıdaki şekilde deneyin.
OptionButton caption özellikleri ile sayfa isimleri aynı olması gerekli.

Dim SayfaAdi As String

Private Sub CommandButton1_Click()
Dim Mutlu As Long, Say As Byte
Dim S As Worksheet
If SayfaAdi <> "" Then
    Set S = Worksheets(SayfaAdi)
    Mutlu = S.Range("A65536").End(3).Row + 1
    S.Cells(Mutlu, "B") = TextBox1.Text
    S.Cells(Mutlu, "C") = TextBox2.Text
    Dim Nesne As Control
    For Each Nesne In Controls
        Select Case TypeName(Nesne)
        Case "TextBox", "ComboBox"
        Nesne = ""
        End Select
    Next
End If
End Sub

Private Sub OptionButton1_Click()
SayfaAdi = OptionButton1.Caption
End Sub

Private Sub OptionButton2_Click()
SayfaAdi = OptionButton2.Caption
End Sub

Private Sub OptionButton3_Click()
SayfaAdi = OptionButton3.Caption
End Sub

Private Sub OptionButton4_Click()
SayfaAdi = OptionButton4.Caption
End Sub

Private Sub OptionButton5_Click()
SayfaAdi = OptionButton5.Caption
End Sub

Private Sub OptionButton6_Click()
SayfaAdi = OptionButton6.Caption
End Sub

 

[metince54]

çook teşekkür ederim emeklerinizden dolayı. kodu tam olarak sadece kod görüntüle ditip mi yapıştırcam kaydete mı yapıştırcam orasını tam anlamadım

 

[askm]

Kaydet butonundaki kodları silin ve komple kodları yapıştırın.

 

[metince54]

Zahmet olmazsa kodu uygulayıp paylaşır mısınız. denedim beceremedim

 

[askm]

Dosyanız ekte.

 

[metince54]

elleriniz dert görmesin ben ufak bir şeyi gözden kaçırmışım. çok tesekkür ederim sağolun