Soru Buton İle Seçili OptionButtonu Aktif etme

[Hsn55]

İyi günler ; ekli dosyada 6 adet OptionButton var. Ben bunlardan herhangi birini seçtiğimde veriler suç tutanağışablon sayfasına aktrarılıyor. Daha sonra ise Ön İzle butonu ile suçtutanağışablon sayfasını önizleme yapıyorum. Benim istediğim OptionButton lardan herhangi biri seçili iken ön izle butonuna bastığımda seçili OptionButton aktif olabilir mi?. Yardımcı olursanız sevinirim.

Ornek.xlsm dosyasını indir - download

Ornek.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Muzaffer Ali]

Merhaba.

Ön İzle butonunun kodlarını aşağıdakilerle değiştirin.

Private Sub CommandButton148_Click()
    Dim Op As Control
    UserForm1.Hide
    Sheets("suçtutanağışablon").PrintPreview
    Application.DisplayFullScreen = True
    For Each Op In Frame3.Controls
        If TypeName(Op) = "OptionButton" Then
            If Op.Value Then Op.SetFocus
        End If
    Next
    UserForm1.Show
End Sub

 

[Hsn55]

Sayın Muzaffer bey çok teşekkür ederim. Userform1 üzerindeki textbox ve comboboxlarda değişiklik yaptığım zaman suçtutanağışablon sayfasına aktarım olmuyor. Tekrar OptionButton seçip ön izle yapmak gerekiyor.

 

[Muzaffer Ali]

Sanırım kavramlarda anlaşamıyoruz.

Seçili:

Seçili ve Aktif:

Aktif:

Siz Ön izle yaptıktan sonra forma dönünce hangisinin olmasını istiyorsunuz?

 

[Hsn55]

Userform üzerinde OptionButtonlardan herhangi birini seçtiğim zaman userfom üzerindeki Textbox ve comboboxlardaki veriler suçtutanağışablon sayfasına aktarılıyor. Ön izle butonuna bastğımda aktarılan verileri ön izleme yapıyorum. Lakin tekrar OptionButton seçmeden textbox ve comboboxlarda değişikli yaptığım zaman bu değişiklikler OptionButton seçmeden aktrılmıyor. Benim istediğim bu verilerin ön izleme butonu ile seçili OptionButton içerisindeki makronun tekrar devreye girmesi olayıdır

 

[necati]

Merhaba, CommandButton148_Click tıklama koduna yazıp dener misiniz?

Private Sub CommandButton148_Click()

    If OptionButton4 = True Then
        OptionButton4_Click
    ElseIf OptionButton5 = True Then
        OptionButton5_Click
    ElseIf OptionButton6 = True Then
        OptionButton6_Click
    ElseIf OptionButton7 = True Then
        OptionButton7_Click
    ElseIf OptionButton8 = True Then
        OptionButton8_Click
    ElseIf OptionButton9 = True Then
        OptionButton9_Click
    Else
    MsgBox "Bir Seçenek düğmesini Seçiniz", vbInformation
    Exit Sub
    End If
UserForm1.Hide
  
Sheets("suçtutanağışablon").PrintPreview
Application.DisplayFullScreen = True
UserForm1.Show
End Sub

 

[Hsn55]

Merhaba, CommandButton148_Click tıklama koduna yazıp dener misiniz?

Private Sub CommandButton148_Click()

    If OptionButton4 = True Then
        OptionButton4_Click
    ElseIf OptionButton5 = True Then
        OptionButton5_Click
    ElseIf OptionButton6 = True Then
        OptionButton6_Click
    ElseIf OptionButton7 = True Then
        OptionButton7_Click
    ElseIf OptionButton8 = True Then
        OptionButton8_Click
    ElseIf OptionButton9 = True Then
        OptionButton9_Click
    Else
    MsgBox "Bir Seçenek düğmesini Seçiniz", vbInformation
    Exit Sub
    End If
UserForm1.Hide
 
Sheets("suçtutanağışablon").PrintPreview
Application.DisplayFullScreen = True
UserForm1.Show
End Sub

Sayın Necati bey çok teşekkür ediyorum.Tam istediğim şekilde oldu.Ellerinize sağlık

 

[necati]

Rica ederim. Kolay gelsin.