- Katılım
- 20 Şubat 2006
- Mesajlar
- 259
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
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