Satır ekle makrosunu revize etme

[Ergün GÖKER]

Herkese hayırlı geceler. Eklediğim makro satır ekleme makrosudur.
Çalışma sayfama satır eklemektedir.
Fakat aynı çalışma sayfamda bir süzme makrosu mevcuttur.
Benim istediğim filitre (süz) yaptığım zaman sayır ekleme makrosunun pasif olması veya satır eklemeyi engellemek istiyorum.
SATIR EKLE makrosunu süz durumundayken nasıl engellerim. Kodu revize etmeme yardımcı olurmusunuz
Saygılarımla

Private Sub CommandButton5_Click() 'SATIR EKLE
Dim d As Worksheet: Set d = Sheets("DEPO4")
Application.ScreenUpdating = False
sd = d.[a65536].End(3).Row
d.Rows(sd + 1 & ":" & sd + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
d.Range("A" & sd & ":T" & sd).Copy
d.Range("A" & sd + 1).PasteSpecial Paste:=xlPasteFormulas
d.Range("A" & sd + 1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
d.Range("A" & sd + 1 & ":S" & sd + 1).SpecialCells(xlCellTypeConstants, 23).ClearContents
d.Cells([a65536].End(3).Row + 1, 1).Select
Application.ScreenUpdating = True
End Sub

 

[Ömer BARAN]

Merhaba.
Mevcut kod'un başlık satırından sonra Dim satırından önce aşağıdaki satırı ekleyerek deneyin isterseniz.

If ActiveSheet.FilterMode Then[COLOR="Blue"]
    MsgBox "Filtre aktif olduğundan satır eklenemeyecek."
    Exit Sub
End If[/COLOR]

Ayrıca isterseniz bir de "FİLTRENİN AKTİF OLMASI NEDENİYLE SATIR EKLENEMEDİĞİNİ" belirten uyarı penceresi görüntülenebilir.
Sanırım bunu kendiniz yaparsınız.

 

[Ergün GÖKER]

Ömer BARAN

Merhaba.
Mevcut kod'un başlık satırından sonra Dim satırından önce aşağıdaki satırı ekleyerek deneyin isterseniz.

If ActiveSheet.FilterMode Then Exit Sub

Ayrıca isterseniz bir de "FİLTRENİN AKTİF OLMASI NEDENİYLE SATIR EKLENEMEDİĞİNİ" belirten uyarı penceresi görüntülenebilir.
Sanırım bunu kendiniz yaparsınız.

Ömer hocam kusuruma bakmayın biraz geç döndüm. Evet istediğim kod buydu çok teşekkür ederim saygılar sunarım.
Hocam FİLTRENİN AKTİF OLMASI NEDENİYLE SATIR EKLENEMEDİĞİNİ uyarısını ekleyemedim hocam
bunun için ne yapmalıyım MsgBox tan yapamadım

 

[Ömer BARAN]

Tekrar merhaba.
Önceki cevabı güncelledim.
.

 

[Ergün GÖKER]

Ömer Hocam teşekkürler Saygılar
Hocam size özel bir mesaj gönderdim bakabilirmisiniz