Eğer filitrelenmiş veri varsa kod çalışmasın,

[gecemavisi]

Saygıdeğer Arkadaşlar;
Eğer filitrelenmiş veri varsa ''Süzgeçleri açın diye uyarı versin''
Filitrelenmiş veri yoksa o zaman aşağıdaki yeni veri ekleme komutunu çalıştırsın.
Maksadım: süzgeçler açık olduğunda yaptığım yeni kayıt ortalara denk gelebiliyor.

Yardımınız ve ilginiz için şimdiden minnettarım...


For x = 1 To 34
Selection.AutoFilter Field:=x
Next
deg = TextBox1.Value
son = Cells(65536, 2).End(3).Row
For i = 1 To deg
Rows(son).Copy
Rows(son + i).Select
ActiveSheet.Paste
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Cells(son + 1, 3).Select
Next

 

[gecemavisi]

Saygıdeğer arkadaşlar;
Vaktiniz olduğunda benim soruma da bakmanızı rica ediyorum

 

[gecemavisi]

Saygıdeğer arkadaşlar;

Eğer süzgeç komutu
[4:4].AutoFilter
[4:4].AutoFilter

değilse yani süzgeçlerin hepsi açık değilse bu önce bunu çalıştırsın, açıksa eğer
deg = TextBox1.Value
son = Cells(65536, 2).End(3).Row
For i = 1 To deg
Rows(son).Copy
Rows(son + i).Select
ActiveSheet.Paste
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Cells(son + 1, 3).Select
Next

komutunu çalıştırsın.
Sizce nasıl yapılır bu iş?
Yardımlarınız ve büyük zahmetleriniz için teşekkür ederim. Hepinize minnettarım...