Aktif hücre satırından 2. satıra kadar satırları nasıl silebilirim.

[ozanyazar]

Bir kelime arıyorum ve bu kelimeyi bulduğum hücrenin satırından 2. satıra kadarki satırları silmek istiyorum.

Bir dosyada 14 kez olmak üzere yaklaşık 250 dosyada bu işi tekrarlamam gerekecek. Her yeni dosyada bu kelimenin satırı farklı olduğundan satır numarası sabit olamıyor.

1. dosyada 56. satırda o nedenle 2-56 yı siliyorum ama
2. dosyada 33. satırda ve 2-33'ünce satırları silmem gerekebiliyor. (2 ve 33 dahil silinecek)

Yardımcı olabilecek arkadaş olursa mutlu olurum.

Ahmet Ünal ÇAM
ahmetunalcam@gmail.com

 

[mancubus]

merhaba.
şuradaki kodu uyarlayabilirsiniz belki.

http://www.rondebruin.nl/delete.htm
Konu Başlığı:
Use Find to delete rows

 

[usubaykan]

Bir kelime arıyorum ve bu kelimeyi bulduğum hücrenin satırından 2. satıra kadarki satırları silmek istiyorum.

Bir dosyada 14 kez olmak üzere yaklaşık 250 dosyada bu işi tekrarlamam gerekecek. Her yeni dosyada bu kelimenin satırı farklı olduğundan satır numarası sabit olamıyor.

1. dosyada 56. satırda o nedenle 2-56 yı siliyorum ama
2. dosyada 33. satırda ve 2-33'ünce satırları silmem gerekebiliyor. (2 ve 33 dahil silinecek)

Yardımcı olabilecek arkadaş olursa mutlu olurum.

Ahmet Ünal ÇAM
ahmetunalcam@gmail.com

Merhaba;

Örnek dosya ekler misiniz?

 

[uzmanamele]

Merhaba;

Örnek dosya ekler misiniz?

merhaba

siz bir örnek dosya ekler misiniz.

 

[ozanyazar]

Aslında karmaşık bir dosya. Dışardan txt dosyadan data alıyorum, sonra onun içinden istemediğim satırları silmeye çalışıyorum. İyi bilen arkadaşlar belki de direk txt dosyasında da bu işlemleri yapabilir ama ben acemilikten sol kulağımı sağ elimle gösteriyor olabilirim.

Fazla vaktinizi almamak için SONUC.YAZ dosyasından alıp verilerini tek bir A sütununa attım. "Yinelemeli" isimli çalışma sayfasındaki A sütununda bahsettiğim işlemler yapılacak.

Sorunun asıl kaynağı aradığımız kelimenin bulunduğu satırdan geriye/2. satıra kadar silmekte. Mevcut data sayısı her dosyada farklı olduğundan, bu dosyada aradığımız kelimeyi 54. satırda bulsak da başka dosyada başka satırlarda.

Vakti olup da bakabilecek arkadaşlara şimdiden teşekkürler.

 

[usubaykan]

merhaba

siz bir örnek dosya ekler misiniz.

Sn. Süleyman bey soruyu ben sormadım. Ama yine de Örnek bir dosya ekleyeyim.

Kullanılan kod

Option Explicit
Sub satır_sil()
Dim u As Long
    For u = Range("A65536").End(3).Row To 1 Step -1
        If Not Cells(u, 1) Like "*DAKIKA*" And _
        Not Cells(u, 1) Like "*Dag. ismi*" And _
        Not Cells(u, 1) Like "*Nand.dag*" And _
        Not Cells(u, 1) Like "*Log-Nandmal 2*" And _
        Not Cells(u, 1) Like "*Log-Nandmal 3*" And _
        Not Cells(u, 1) Like "*Gama 2 Par.*" And _
        Not Cells(u, 1) Like "*Log-Pearson 3*" And _
        Not Cells(u, 1) Like "*GUMBEL*" And _
        Not Cells(u, 1) Like "*DAGILIM FONSiYONU*" And _
        Not Cells(u, 1) Like "*LOG-PEARSON TIP-III*" Then
        Rows(u).Delete
        Columns("A1:A" & Range("A65536").End(3).Row).Cut
        Sheets("CIKIS_dan").Select
        Range("A1").Select
        ActiveSheet.Paste
        End If
    Next
MsgBox "İşleminiz tamamlanmıştır."
End Sub