makro ile satır sil

[EmirhanG]

merhaba arkadaşlar, ben bir makro yapmak istiyorum seçtiğim satır'ı ve seçili satırın 3,6,9,12,15........ altındaki satırlarıda silsin. Hücreleri değil özellikle satır silsin istiyorum Teşekürler.......

 

[emrexcel123]

seçili alan mı yoksa verilen satır numarasımı silinecek...

 

[emrexcel123]

aşağıdaki kod seçili alandaki satırları siler

Sub sil()
Selection.EntireRow.Delete
End Sub

ii akşamlar...

 

[EmirhanG]

seçili satırı ve 3 altındakini,6 altıdakini,9 altındakini.........mesala 1. satır seçili diyelim önce birinci satırı silecek ve satır 1 in 3 altı olan satır4 ü, satır1 in 6 altı olan satır 7 yi .............şeklinde silecek teşekürler

 

[Valuer]

Olasılıklar şeklinde uğraşacağınıza, örneğinizi eklemek bence daha kolay. Şimdiye sizi çoktan cevaplamışlardı.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Uygulanan kod;

Sub SATIR_SİL()
    Application.ScreenUpdating = False
    ADIM = 3
    İLK_SATIR = ActiveCell.Row
    SON_SATIR = [A65536].End(3).Row
    For X = İLK_SATIR To SON_SATIR Step ADIM - 1
    Rows(X).Delete
    Next
    Application.ScreenUpdating = True
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[EmirhanG]

teşekürler arkadaş ellerine sağlık.......

 

[altanson]

peki sildiğimiz hücreleri geri alabilirmiyiz?

 

[Korhan Ayhan]

Selamlar,

peki sildiğimiz hücreleri geri alabilirmiyiz?

Makroyu çalıştırdıktan sonra dosyanızı kaydetmeden kapatırsanız eski verileriniz silinmemiş olur. Aksi halde makro ile yapılan işlemleri geri almak için özel kodlamalar yazmak gerekir.

 

[erdemess]

Belirli bir koşula göre satır silme

Arkadaşlar merhaba,

elimde 10 sütun ve satırların aşağı doğru sürekli genişlediği bir liste var. Benim uğraşıp da beceremediğim makro B sütunundaki hücrelerde "STANDART" ifadesini içermeyen hücreleri bulup bu hücrelerin yer aldığı satırları silmek.

 

[Necdet]

Merhaba,

B sütunu tamam, peki başlık hangi satırda, kaçıncı satırdan başlıyor, kaçıncı sütunda bitiyor. Kodlama tekniğine göre bunlar da önemli.

Başlığın 1. satırda olduğu varsayılarak aşağıdaki kodları deneyiniz.

Sub SatSil()
    
    Dim i As Long
    
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    
    If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
    i = Cells(Rows.Count, "A").End(3).Row
    
    Selection.AutoFilter
    
    ActiveSheet.Range("$A$1:$J$" & i).AutoFilter Field:=2, Criteria1:="<>Standart"
    Range("A1").CurrentRegion.Offset(1, 0).Delete
    
    Selection.AutoFilter
    
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
    
End Sub

 

[erdemess]

Belirli bir koşula göre satır silme

Arkadaşlar Merhaba,
elimde 10 sütun (A-J arası sütunlar) ve aşağı doğru genişleyen satırların yer aldığı veriler vardır. Uğraşıp da beceremediğim makro, B sütununda "STANDART" ifadesinin yer aldığı hücreler dışındaki diğer hücrelerin bulunduğu satırları silmek.

 

[Necdet]

Merhaba,

Aynı konu hakkında değişik yerlerde konu açmayınız.

http://www.excel.web.tr/f48/makro-ile-satyr-sil-t34475.html linkinde sorunuza yanıt verdim.

 

[Necdet]

11. yanıt yeterli olmadı mı?

 

[BedriA]

Merhaba,

B sütunu tamam, peki başlık hangi satırda, kaçıncı satırdan başlıyor, kaçıncı sütunda bitiyor. Kodlama tekniğine göre bunlar da önemli.

Başlığın 1. satırda olduğu varsayılarak aşağıdaki kodları deneyiniz.

Sub SatSil()
    
    Dim i As Long
    
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    
    If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
    i = Cells(Rows.Count, "A").End(3).Row
    
    Selection.AutoFilter
    
    ActiveSheet.Range("$A$1:$J$" & i).AutoFilter Field:=2, Criteria1:="<>Standart"
    Range("A1").CurrentRegion.Offset(1, 0).Delete
    
    Selection.AutoFilter
    
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
    
End Sub

Necdet Bey,

Yukarıdaki kodda sayfa ismine rastlamadım. Çalışma kitabının tamamında mı silme işlemi yaptırıyor?

 

[Korhan Ayhan]

Ekranınızda aktif olan sayfada işlem yapar.