Sekme ile userform açmak

[CenTay]

Selamlar arkadaşlar sayfa sekmesine tıklayınca userform1 açılabilirmi, ilginiz için teşekkürler.

 

[tamer42]

Selamlar arkadaşlar sayfa sekmesine tıklayınca userform1 açılabilirmi, ilginiz için teşekkürler.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

UserForm1.Show

End Sub

 

[Seyit Tiken]

Bu kodu Çalışma Kitabı kod bölümüne yapıştırınız.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
UserForm1.Show 0
End Sub

 

[CenTay]

Tamer42 hocam Seyit Tiken hocam teşekkür ediyorum sağolun

 

[1Al2Ver]

Çözümden ben de faydalandım, emeği geçenlere teşekkür ederim,

Şöyle de olabilir mi ? Sekmelerden 1 tanesine , örneğin ismi UF1_AÇ olan sekmeye bu komut verilebilir mi?

 

[tamer42]

Çözümden ben de faydalandım, emeği geçenlere teşekkür ederim,

Şöyle de olabilir mi ? Sekmelerden 1 tanesine , örneğin ismi UF1_AÇ olan sekmeye bu komut verilebilir mi?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If ActiveSheet.Name = "UF1_AÇ" Then

UserForm1.Show 0

End If

End Sub

 

[1Al2Ver]

Sayın Tamer42, merhaba,

Duyarlığınız ve çözüm için teşekkür ederim.

Saygılarımla.

 

[Orion1]

Şöyle de olabilir mi ? Sekmelerden 1 tanesine , örneğin ismi UF1_AÇ olan sekmeye bu komut verilebilir mi?

UF1_Aç sayfasının modülüne aşağıdaki kodu giriniz.

Private Sub Worksheet_Activate()
UserForm1.Show 0
End Sub

 

[1Al2Ver]

Sayın Orion1 merhaba,

Öneri için teşekkür ederim.

Saygılarımla.