FORMÜLLERİ GİZLEME

[82_elbistan]

MAKRO-1

Sub Formülleri_Gizle()
ActiveSheet.Unprotect
ActiveSheet.Cells.Select
Cells.Locked = False
Cells.FormulaHidden = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect
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
End Sub

MAKRO-2

Sub Kasa_giriş()
Sheets("KASA").Range("A3:AD3").Copy
sat = Sheets("KASA").Cells(65536, "B").End(xlUp).Row + 1
Sheets("KASA").Range("A" & sat).PasteSpecial
Application.CutCopyMode = False
MsgBox " KASA KAYDI YAPILDI..!! "
Sheets("KASA").Range("D3:J3").Value = ""
Set s1 = ThisWorkbook.Worksheets("KASA")
SonSatir = s1.Range("H65536").End(xlUp).Row
s1.Cells(4, "H") = Application.WorksheetFunction.Sum(s1.Range("H5:H" & SonSatir))
SonSatir = s1.Range("H65536").End(xlUp).Row
s1.Cells(4, "I") = Application.WorksheetFunction.Sum(s1.Range("I5:I" & SonSatir))
End Sub

Üstadım Makro 1 deki kodlarda çok güzel formülleri gizlemekte ancak, Makro-2 ile kasa kaydı yapmak istediğimde formülsüz olarak görünen rakamları kayıt yapmaktadır. Formüller diğer sayfalar ile bağlantılı çalıştığı için formüllü olarak kayıt yapma durumu olabilir mi ? yada formüllü olarak kayıt yaptıktan sonra gizleme yapma imkanı olur mu ? Selam ve saygılar

 

[Tevfik_Kursun]

Merhaba,
Makro2 nin başına, Makro1 deki gibi, ActiveSheet.Unprotect sonuna da ActiveSheet.Protect satırlarını eklerseniz istediğiniz olur sanırım.
iyi çalışmalar

 

[82_elbistan]

İşe yaradı üstat teşekkür ederim

 

[Tevfik_Kursun]

Rica ederim, dönüşünüz için ben teşekkür ederim.
İyi çalışmalar