filtre varsa kayıt yapma...

[GursoyC]

Merhaba,
Bir makrom var. A sayfasındaki bilgileri B sayfasına kaydettiğim basit bir makro.
Yapmak istediğim şey eğer B sayfasında herhangi bir sütunda uygulanmış bir filtre varsa, kaydet düğmesine bastığımda "B sayfasında filtrelenmiş bir kolon var, kayıt yapamam" uyarısı versin ve kayıt yapmasın.
Örnek dosyam ektedir.
Yardımcı olur musunuz?

 

[PLİNT]

Merhaba
Örnek dosyanızı görme imkanım yok ama istediğiniz şöyle olabilir.
("A" sütununda boş hücre olmadığını varsayarak)

[SIZE="2"]Private Sub CommandButton1_Click()
If WorksheetFunction.CountA([COLOR="Red"][A:A][/COLOR]) <> _
 ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count Then
 MsgBox "B sayfasında filtrelenmiş bir kolon var, kayıt yapamam"
 Exit Sub
 End If
 '....
 '......diğer kodlarınız
 '
 
End Sub [/SIZE]

 

[GursoyC]

Sayın Plint,
verdiğiniz kodları uyguladım ancak filtre olsa da olmasa da kayıt yapamam mesajını veriyor.
fotoğrafları görebiliyor musunuz bilmiyorum ancak belki görebilirsiniz diye ekledim.
Kodlar şu şekilde:

Sub KAYIT()
'
' KAYIT Makro
'

'
If WorksheetFunction.CountA([A:A]) <> _
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count Then
MsgBox "B sayfasında filtrelenmiş bir kolon var, kayıt yapamam"
Exit Sub
End If
Range("J6").Select
Selection.Copy
Sheets("B").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("A").Select
Range("K6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("B").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("A").Select
Application.CutCopyMode = False
Range("J5").Select
End Sub

 

[PLİNT]

Merhaba
"kayit_filtre.xlsm" dosyanızı http://s9.dosya.tc/ adresine yükleyip adresi verebilirmisiniz?

 

[FERAZ]

Alttaki kodları bir butona ekleyip test edebilirsiniz filtre varmı yokmu.
Sonuca göre gerekli if şartları yazılır koda.

If ActiveSheet.FilterMode = True Then msgbox("filtre var")

If ActiveSheet.FilterMode = False Then msgbox("filtre yok")

 

[GursoyC]

Sayın Plint, yükledim.

http://s9.dosya.tc/server2/0t5xrw/kayit_filtre__1_.rar.html

Sayın Feraz, sizin verdiğiniz kodlarla bilgim dahilinde bir şeyler yapmaya çalışayım. Yine de sayın Plint yardımlarını esirgemezse sevinirim.

 

[GursoyC]

Sayın Plint, Sayın Feraz,
Sayın Feraz'ın kodlarını kendime uyarlayabildim.
Yardımlarınız için teşekkür ederim.
Saygılar,

 

[anemis]

Uyarladığınız kodları yada excel sheet i paylaşabilirseniz memnun olurum.

Saygılar

 

[GursoyC]

Buyrunuz.
B sayfasındaki filtreyi açarsanız A sayfasından kayıt yapar.
Açmazsanız uyarı vererek yapmaz.

 

[anemis]

Çok teşekkür ediyorum.

 

[GursoyC]

Rica ederim.