Çözüldü Sütunda belirli yerin üstünü silme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ysnozkn

Yeni Üye
Katılım
18 Tem 2018
Mesajlar
27
En iyi yanıt
0
Puanları
3
Yaş
38
Konum
İstanbul
Ad Soyad
Yasin ÖZKAN
Merhaba ,

Bir sütünda "Tamam" Kelimesi geçen o satır ve üzerini otomatik silebileceğim macro var mı arkadaşlar ?

Not : Satır ve satırların tamamı.
Not : Aşağıdan yukarıya doğru.

Örnek Resim :
2018-09-10 00_52_41-Kitap1.xlsm - Excel (Ürün Etkinleştirilemedi).png
 

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
60
Konum
Emekli
......
 
Son düzenleme:

askm

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
9
En iyi yanıt
0
Puanları
3
Yaş
41
Konum
Kayseri
2/1.5 tamam satırının üstünü komple mi silecek yoksa sadece üzerindeki 2 tane boş satırı mı silecek?
 

ysnozkn

Yeni Üye
Katılım
18 Tem 2018
Mesajlar
27
En iyi yanıt
0
Puanları
3
Yaş
38
Konum
İstanbul
Ad Soyad
Yasin ÖZKAN
2 1/5 satırı dahil yukarıya doğru tamamını silecek.
Teşekkürler.
 

ysnozkn

Yeni Üye
Katılım
18 Tem 2018
Mesajlar
27
En iyi yanıt
0
Puanları
3
Yaş
38
Konum
İstanbul
Ad Soyad
Yasin ÖZKAN
Aslında bir fantezi olabilir ama bu mümkün mü ?

2 1/5 satırından sonra 2 satır gidecek ve yukarısını tamamen silecek.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,327
En iyi yanıt
11
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
Selam @ysnozkn,
Tam olarak olması gerekeni, öncesi ve sonrası şeklinde yollar mısınız?
 

ysnozkn

Yeni Üye
Katılım
18 Tem 2018
Mesajlar
27
En iyi yanıt
0
Puanları
3
Yaş
38
Konum
İstanbul
Ad Soyad
Yasin ÖZKAN
Merhaba Sn. @Admin

İçerisinde tamam geçen kelimelerin olduğu bütün satırları silmek istiyorum. Kendi data aldığım SAP yazılımından gelen verilerde satır aralıkları oluyor. Bu aralıkları da silmek istiyorum.

1 Numaralı resimde gördüğünüz 2/1.5 tamam satırına gidecek (Bu satır tamam yazan en son satır) sonra 2 satır altına gidip yukarıda kalan bütün satırları silecek.

Teşekkür ederim.

Öncesi
1- Resim
before.png

2- Resim
after.png
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,327
En iyi yanıt
11
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
Bu kodları bir deneyiniz..
PHP:
Option Compare Text
Sub ExcelTurkey()
    Dim i&
    For i = Cells(Rows.Count, "B").End(3).Row To 1 Step -1
        If Cells(i, "B").Value Like "*tamam*" Then
            Rows(1 & ":" & i + 1).Delete
        End If
    Next i
    i = Empty
End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt