Exceldeki Sekmeyi gizlenip, düğme bağlayamadım hk.

[Faulkner]

Sayın Arkadaşlarım,


Excel dosyasında olan Sekmeleri düğmeye bağlayıp, açabiliyorum.

Soru;

• Seklemeleri gizlediğimde, ayarladığım düğmeyi çalıştırdığımda, hata vermektedir.

bu verilen hata normal midir? yoksa başka bir formul mü gerekiyor.?

kullandığım formul aşağıdaki gibidir.

Private Sub CommandButton1_Click()
Sheets("formüller").Select
Unload ana
Application.Visible = True
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
Sheets("data").Select
Unload ana
Application.Visible = True
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton3_Click()
Sheets("genel").Select
Unload ana
Application.Visible = True
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton4_Click()
Sheets("Compound Durum").Select
Unload ana
Application.Visible = True
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton5_Click()
Sheets("Mikser Üretim Giriş").Select
Unload ana
Application.Visible = True
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton6_Click()
Sheets("Mikser Üretim Giriş").Select
Unload ana
Application.Visible = True
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton7_Click()
On Error Resume Next
  Unload UserForm1
    Workbooks("HAMMADDE COMPOUND TAKİP").Save
    Application.Visible = True
    Application.Quit
    
End Sub

 

[antonio]

Merhaba,
Kodlarınızdaki sayfa ve userform isimlerini gözlemleyiniz. Sheets("....") ifadesinde noktalı yerlerde ki sayfa isimleri daha sonradan elle değiştirilmiş olabilir, Unload ifadesi sonrasında gelen (örn: kodlarınızda ana ve Userform1 ifadeleri) userform isimleridir. İki userform varsa bilemem. ama bir userform ise, birinin adı yanlış yazılmıştır. Mesajınızda ki kodların arasında Sayfa sekmelerini gösterme kodu göremedim. Ayrıca aşağıdaki kodlarda sıralama değişmeli diye düşünüyorum:

Sheets("formüller").Select [COLOR="Red"][B]'Formüller Sayfasını aktif hale getir[/B][/COLOR]
Unload ana '[COLOR="Red"][B]Ana isimli userformu kapat[/B][/COLOR]
Application.Visible = True '[COLOR="Red"][B]Exceli görünür hale getir[/B][/COLOR]

Excel gizli ise sayfayı nasıl seçili hale getiriyorsunuz? Önce Userformu kapatın, sonra Excel'i görünür duruma getirin, daha sonra Sayfayı aktifleştirin.

 

[Faulkner]

merhaba,

@antonio vba öğrenme aşamasındayım. paylaştığım vba komutunda hiçbir sıkıntı yaşamadan kullanabiliyorum. ben sadece excelde olan sekmeleri gizleyip, direk userform çıkmasını istiyorum. bu mümkün müdür ?

saygılarımla

 

[antonio]

merhaba,

@antonio vba öğrenme aşamasındayım. paylaştığım vba komutunda hiçbir sıkıntı yaşamadan kullanabiliyorum. ben sadece excelde olan sekmeleri gizleyip, direk userform çıkmasını istiyorum. bu mümkün müdür ?
saygılarımla

Aşağıdaki kodları kullanabilirsiniz:

Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = False
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
    Application.Visible = False
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Application.Visible = True
End Sub

 

[Faulkner]

Aşağıdaki kodları kullanabilirsiniz:

Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = False
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
    Application.Visible = False
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Application.Visible = True
End Sub

teşekkürler eline sağlık.

 

[antonio]

Rica ederim.