Ham verilerin düzenlenmesi için makro

[S.Yiğit]

Merhaba,

İnternetten aldığım verileri excele yapıştırıyorum. Yapıştırma işleminden sonra bu verilerde silmem gereken satırlar var. Kısaca anlatmak gerekirse,

Fiyat satırının altındaki 3 satır ve tirelerin altındaki boş satır silinecek. Konserler arasında bir satır olacak ve bu satırda da tireler olacak.Olması gerekenleri başka bir sayfada gösterdim. Eki incelerseniz ne yapmak istediğimi daha rahat anlarsınız. Şimdiden teşekkürler. Birde verileri alırken KIRP formülasyonunu yaparsa güzel olur çünkü boşluk olan yerler var.

Mevcut ham veri;

Konser Listesi
Özcan Türe İstanbul da
Sanatçı: ÖZCAN TÜRE
Yer : Esinti Kır Evi - Ayazma Caddesi Şekersuyu Sok No:16 - Yakacık / İstanbul
Tarih: 01 Mayis 2011 Pazar 21:00
Fiyat : Rez: 0 216 452 41 58
Konser Bugün...


--------------------------------------------------------------------------------

Oğuz Aksaç İstanbul da
Sanatçı: Oğuz Aksaç
Yer : Mektup - İstiklal Cad. İmam Adnan Sok. No:20 - Taksim - Beyoğlu / İstanbul
Tarih: 03 Mayis 2011 Sali 21:00
Fiyat : Rez: 0 212 251 01 10
Konser 'e 2 gün kaldı


--------------------------------------------------------------------------------

Fazıl Say Resitali - Liszt in Doğumunun 200. Yılı Anısına
Sanatçı: Fazıl Say
Yer : Cemal Reşit Rey Konser Salonu - Darülbedayi Caddesi - Harbiye - Şişli / İstanbul
Tarih: 03 Mayis 2011 Sali 20:00
Fiyat : 1. Kategori: 70.00 TL 2. Kategori: 60.00 TL 3. Kategori: 50.00 TL 4. Kategori: 40.00 TL
Konser 'e 2 gün kaldı



Olması gereken;


Konser Listesi
Özcan Türe İstanbul da
Sanatçı: ÖZCAN TÜRE
Yer : Esinti Kır Evi - Ayazma Caddesi Şekersuyu Sok No:16 - Yakacık / İstanbul
Tarih: 01 Mayis 2011 Pazar 21:00
Fiyat : Rez: 0 216 452 41 58
--------------------------------------------------------------------------------
Oğuz Aksaç İstanbul da
Sanatçı: Oğuz Aksaç
Yer : Mektup - İstiklal Cad. İmam Adnan Sok. No:20 - Taksim - Beyoğlu / İstanbul
Tarih: 03 Mayis 2011 Sali 21:00
Fiyat : Rez: 0 212 251 01 10
--------------------------------------------------------------------------------
Fazıl Say Resitali - Liszt in Doğumunun 200. Yılı Anısına
Sanatçı: Fazıl Say
Yer : Cemal Reşit Rey Konser Salonu - Darülbedayi Caddesi - Harbiye - Şişli / İstanbul
Tarih: 03 Mayis 2011 Sali 20:00
Fiyat : 1. Kategori: 70.00 TL 2. Kategori: 60.00 TL 3. Kategori: 50.00 TL 4. Kategori: 40.00 TL

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub Duzenle()
 
    Dim i As Long
 
    Application.ScreenUpdating = False
 
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        Cells(i, "A") = Application.Trim(Cells(i, "A"))
        If Cells(i, "A") = "" Or Cells(i, "A") Like "*Konser*" Then
            Rows(i).Delete
        End If
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[S.Yiğit]

Ömer bey merhaba,

Öncelikle kod için teşekkür ederim. Kod gayet güzel çalışıyor. Fiyat satırının altındaki 3 satır silinecek derken konser kelimesinin geçtiği satırları da kasdetmiştim. Kodu bu şekilde revize ederseniz çok memnun olurum.

 

[Ömer]

#2 nolu mesajı yeniledim. Tekrar deneyiniz.

 

[S.Yiğit]

Hocam çok teşekkürler.. İyi geceler..