run time error-438

[ssazman]

Bilgisayarımda eklentili excel sayfasını açmaya çalıştığımda bu hatayı veriyor.Ekli dosyadada fotosunu çektim,


Yardımlar için şimdiden teşekkürler.

 

[Ferhat Pazarçevirdi]

Workbook_Open veya Autpen prosedürlerine bakınız. Bu prosedürlerde kullandığınız herhangi bir nesne (worksheet, ListBox, Thisworkbook veya Application'ın kendisi), atamaya çalıştığınız bir özelliği kabul etmiyor veya bu tür bir özelliği nesne desteklemiyor ..

Kodlarınızı yayınlarsanız daha net bir cevap alabilirsiniz.

 

[ssazman]

Merhaba Ferhat bey

Galiba istediğiniz kod şunlar olmalı

Option Private Module
'============================COMMANDBAR============================================
Public cbrWMB As CommandBar 'Worksheet menü
Public cbrHCR As CommandBar 'Cell menü
Public cbrSTR As CommandBar 'Row menü
Public cbrSTN As CommandBar 'Colomn menü
Public cbrPLY As CommandBar 'Ply menü (sayfa sekmeleri)
'=========================COMMANDBARPOPUP==========================================
Public cbpDSY As CommandBarPopup 'Worksheet menü>Dosya
Public cbpDZN As CommandBarPopup 'Worksheet menü>Düzen
Public cbpBCM As CommandBarPopup 'Worksheet menü>Biçim
Public cbpSTR As CommandBarPopup 'Worksheet menü>Biçim>Satır
Public cbpSTN As CommandBarPopup 'Worksheet menü>Biçim>Sütun
Public cbpSYF As CommandBarPopup 'Worksheet menü>Biçim>Sayfa
Public cbpARC As CommandBarPopup
'=========================COMMANDBARBUTTON=========================================
Public cbbMKR As CommandBarButton
Public clsKtp As Workbook, clsSyf As Worksheet, clsObj As Object, Aralik As Range, hcr As Range
Public aktKtp As Workbook, aktSyf As Worksheet, aktObj As Object, aktArlk As Range, aktHcr As Range
Public arrSh(), arrShX(), arrSh2()
Public AppPthSept, klsrBlglrm, klsrAddIns As String
Public KullaniciFormum
Public Hsr_Form As MSForms.UserForm


Sub MenuDgr()
Set cbrWMB = Application.CommandBars("Worksheet Menu Bar")
Set cbrHCR = Application.CommandBars("Cell")
Set cbrSTR = Application.CommandBars("Row")
Set cbrSTN = Application.CommandBars("Column")
Set cbrPLY = Application.CommandBars("Ply")
Set cbpDSY = cbrWMB.Controls(1) 'Worksheet menü>Dosya
Set cbpDZN = cbrWMB.Controls(2) 'Worksheet menü>Düzen
Set cbpBCM = cbrWMB.Controls(5) 'Worksheet menü>Biçim
Set cbpSTR = cbpBCM.Controls(2) 'Worksheet menü>Biçim>Satır
Set cbpSTN = cbpBCM.Controls(3) 'Worksheet menü>Biçim>Sütun
Set cbpSYF = cbpBCM.Controls(4) 'Worksheet menü>Biçim>Sayfa
Set cbpARC = cbrWMB.Controls(6) 'Worksheet menü>ARAÇLAR
Set cbbMKR = cbpARC.Controls(14).Controls(2) 'makro kaydet butonuEnd Sub
Sub KlsrDgr()
AppPthSept = Application.PathSeparator
klsrBlglrm = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
klsrAddIns = Environ("appdata") & AppPthSept & "Microsoft" & AppPthSept & "AddIns"
End Sub
Sub Tıklanır_Yap()
cbbMKR.Enabled = False
End Sub

Burada altını çizdiğim şu kodun karşısında sarı ok var
Set cbbMKR = cbpARC.Controls(14).Controls(2) 'makro kaydet butonu

Teşekkürler

 

[Ferhat Pazarçevirdi]

Kodların bu kısmı, herhangi bir Popup menü üstüne gösterilen kontrolleri (button, combo veya seperatör gibi) set etmede kullanılıyor.

Altını çizdiğiniz satırda da, cbbMKR adındaki commandbutton değişkenini, cbpARC Popup'ındaki bir düğmeye set etmeye çalışıyorsunuz ... Ama, notasyon'da böyle bir dizilim yok ...

Amacınız her ne ise; şu şekilde değiştirebilirsiniz. (Bir Controls'un Control'unü yaratmaya çalıştığınız için hata alıyorsunuz)

Set cbbMKR = cbpARC.Controls(14) [COLOR=darkgreen]'makro kaydet butonu[/COLOR]

NOT : Eğer, cbpARC'de; 14 index nolu Control var ise çalışacaktır ..

 

[ssazman]

Ferhat bey verdiğiniz kod işe yaradı şu an istediğimi kullanabiliyorum bu kodlar sayın hysar'ın oluşturduğu özel bir excel eklentisi idi fakat bende çalışmıyordu şu an kullanabiliyorum Teşekkürler

İyi çalışmalar

Saygılar Selçuk A.