Run-time error'438':

[Volkan Öztürk]

object doesn't support this property or method.

Selam arkadaşlar. Mokro ile hücrelerin yazı rengini değişmeye çalışnıca bu hatayı veriyor. Sayfa korumalı. Önce sayfa kormuası kaldırrıyorum ama yine de işe yaramıyor. Eminim ki daha önce çalışan bi makro idi. Neden çalışmıyor. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim

 

[Ferhat Pazarçevirdi]

Kullandığınız kodu buraya yazarmısınız?

 

[Necdet]

438 : Object doesn't support this property or method

Nesne bu özellik yada yöntemi desteklemiyor

kodları görmekte yarar var

 

[Volkan Öztürk]

kodlar burada

Private Sub Yazdır1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Unprotect
sor = MsgBox("İlgili Cari Kartı yazıcıya doğru şekilde yerleştirdinizmi?", vbYesNo)
If sor = vbNo Then Exit Sub


ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveSheet.Shapes("KartıYazdır1").Select
Selection.ShapeRange.ZOrder msoSendTofront
ActiveSheet.Unprotect
Range("B6").Select
Range("D3:J6").Select
Selection.Font.ColorIndex = 2
Range("M35").Select
Selection.Font.ColorIndex = 2
Range("T5:U5").Select
.
.
.
End Sub.

 

[Ferhat Pazarçevirdi]

Tam emin olamamakla birlikte;

Cancel=False satırını kodunuzun en başına yerleştirip deneyin.

Bir başka göze çarpan nokta; msoSendTofront ifadesi.... Böyle bir ifadeyle ben hiç karşılaşmadım. "Öne gönder" gibi bir anlamı var ama anlamsız ve kullanımı böyle değil. Ya Send yerine bring konmalı yada Front yerine Back.. Yani bu ifade biraz karışmış. Eğer öne çekmek istiyorsanız, msoBringToFront demelisiniz. Arkaya göndermek içinse msoSendToBack ...

Dbl_Click olayını atadığınız nesne nedir? ve bu nesne neyin üzerinde durmaktadır (Userform'mu yoksa sheet üzerinde mi?)

 

[Volkan Öztürk]

birde şöyle bakalım lütfen...

Private Sub Yazdır1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Unprotect
sor = MsgBox("İlgili Cari Kartı yazıcıya doğru şekilde yerleştirdinizmi?", vbYesNo)
If sor = vbNo Then Exit Sub


ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveSheet.Shapes("KartıYazdır1").Select
Selection.ShapeRange.ZOrder msoSendTofront
Range("B6").Select
Range("D3:J6").Select
Selection.Font.ColorIndex = 2
Range("M35").Select
Selection.Font.ColorIndex = 2
Range("T5:U5").Select
Selection.Font.ColorIndex = 2
Range("T2:U4").Select
Selection.Font.ColorIndex = 2
Range("B10:U10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Font.ColorIndex = 2
Range("B12:C12").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll ToRight:=1
ActiveWindow.ScrollRow = 1
Range("B6").Select
ActiveSheet.Protect
End Sub

yukarıdaki kodlarda yazdırma satırını kaldırdığımda hata vermiyor. Ama yazdırma satırı ile birlikte hata veriyor. Başka çözüm önerisi olan????

 

[Ferhat Pazarçevirdi]

Şunu deneyiniz.

Private Sub Yazdır1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set sh = ActiveSheet
ActiveSheet.Unprotect
sor = MsgBox("İlgili Cari Kartı yazıcıya doğru şekilde yerleştirdinizmi?", vbYesNo)
If sor = vbNo Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveSheet.Shapes("KartıYazdır1").Select
Selection.ShapeRange.ZOrder msoSendTofront
sh.Select
Range("B6").Select
Range("D3:J6").Select
Selection.Font.ColorIndex = 2
Range("M3:P5").Select
Selection.Font.ColorIndex = 2
Range("T5:U5").Select
Selection.Font.ColorIndex = 2
Range("T2:U4").Select
Selection.Font.ColorIndex = 2
Range("B10:U10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Font.ColorIndex = 2
Range("B12:C12").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll ToRight:=1
ActiveWindow.ScrollRow = 1
Range("B6").Select
ActiveSheet.Protect
Set sh = Nothing
End Sub

 

[Skorpiyon]

Sayın Volkan Öztürk,

Kaldırdığınız yazdırma satırı değil, sayfa korumasını kaldırma satırıdır.

Daha önce denemedim veya başıma gelmedi ama koruması olmayan bir sayfanın korumasını kaldırmaya çalışmak hata verir mi bilemiyorum.

Saygılarımla...