Soru koşullu biçimlendirme de formüllerin silinmesi

[incsoft]

Arkadaşlar aşağıdaki gibi hücrelerde koşullarım var ancak nedense sürekli siliniyor komutlar. Birde sayfalarımı çoğaltmak için macro var acaba o yapabilirmi diyorum. Macro aşağıdadır. Eğer bundan sa macroda nasıl bir değişiklik yapabiliriz?

Teşekkürler.





Private Sub ÇOĞALT_Click()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For k = 1 To Application.Sheets.Count
If IsNumeric(Sheets(k).Name) Then
sayisal = sayisal + 1
Else
harf = harf + 1
End If
Next k
Tespit = InputBox("Gün", "Tespit")
For i = sayisal To Tespit + sayisal - 1
Sheets(CStr(sayisal)).Select
Sheets(CStr(sayisal)).Copy Before:=Sheets(1)
Sheets(1).Name = i + 1
Sheets(1).Range("j1") = Sheets("1").Range("j1") + i
Sheets(1).Range("H3:I7,L3:M7,H9:I13,L9:M13,H15:I19,L15:M19,H28:I33,L28:M33,H35:I41,L35:M41,H78:I90,H97:I102,H109:I151").ClearContents
Sheets(1).Range("J1").Select
ActiveWindow.SmallScroll Down:=-3
Next i
For j = 1 To Application.Sheets.Count - harf
On Error Resume Next
Sheets(CStr(j)).Select
Sheets(CStr(j)).Move Before:=Sheets(j)
Next j
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Korhan Ayhan]

Paylaştığınız kodlarda biçimleri silen bir satır göremedim. Başka bir makro sebep oluyor olabilir.