bu kodlar korumalı sayfalarda çalışmıyor.

[mitix]

Private Sub CommandButton1_Click()
'
' kalanlar Makro
' Makro umit tarafından 15.07.2009 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+k
'
Range("ab11:ab1510").Select
Selection.AutoFilter Field:=28, Criteria1:=">0", Operator:=xlAnd

End Sub

Private Sub CommandButton2_Click()

'
' kalanlar Makro
' Makro umit tarafından 15.07.2009 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+N
'
Range("ab11:ab1510").Select
Selection.AutoFilter Field:=28, Criteria1:="<=0", Operator:=xlAnd

End Sub

 

[Metin Karaağaç]

Sanırım makro kaydetmeyi biliyorsunuz.
Makroyu kaydederken, sayfa korumasını da kaldırın, makro görevini tamamlayınca korumayı tekrar aktif edip o şekilde kaydedin.

 

[mitix]

Sanırım makro kaydetmeyi biliyorsunuz.
Makroyu kaydederken, sayfa korumasını da kaldırın, makro görevini tamamlayınca korumayı tekrar aktif edip o şekilde kaydedin.

makroyu kaydetmek ile sorunum yok sorun makroyu korumalı sayfada çalıştırmak zira korumaya kaldırınca çalışıyor.
ekdeki dosyada "kalan stok" "tüm stok bilgileri" "biten stok" buttonları çalışmıyor.
,

 

[Metin Karaağaç]

"biten stok" düğmesine ait makronun başına şunları ekleyin:

 ActiveSheet.Unprotect

ve "biten stok" ile ilgili kodların sonuna da şunları ekleyin:

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True