Birleştirilmiş hücrelerin bulunduğu satırları silme

[ASLAN7410]

Merhaba, hayırlı geceler.

Ekte gönderdiğim excel dosyamın 1.sayfasında görevliler var, butona bastığımda buradaki görevlileri 2.sayfaya aktararak görevliler arasındaki birleştirilmiş hücrelerin bulunduğu satırların silinmesini istiyorum.

Yardımcı olur musunuz?
.

 

[Ömer BARAN]

Merhaba.

Sanırım en pratik olanı;
satır silmek yerine B sütunundaki sayılara göre ">=1" şeklinde filtreleyip
(böylece birleştirilmiş satırlar gizli hale gelecektir)
kalan satırları Sayfa2'ye kopyalamak.
.

[B]Sub AktarDüzelt()[/B]
Set S1 = Sheets("Sayfa1"): Set S2 = Sheets("Sayfa2")
[COLOR="Blue"]If S2.Cells(Rows.Count, 2).End(3).Row > 1 Then _
    S2.Range("B2:U" & S2.Cells(Rows.Count, 2).End(3).Row).ClearContents[/COLOR]
S1.Range("B8:U" & S1.Cells(Rows.Count, "B").End(3).Row).AutoFilter Field:=1, Criteria1:=">=1"
S1.Range("B8:U" & S1.Cells(Rows.Count, "B").End(3).Row).SpecialCells(xlCellTypeVisible).Copy S2.[B2]
S1.Range("B8:U" & S1.Cells(Rows.Count, "B").End(3).Row).AutoFilter Field:=1
S2.Activate: S2.[B1].Activate
MsgBox "Aktarıldı ve birleştirilmiş hücrelerin satırları silindi.", vbInformation
[B]End Sub[/B]

 

[ASLAN7410]

Sayın Ömer Bey, çok teşekkür ediyorum, kodlar çok güzel çalışıyor, ellerinize sağlık, tam istediğim gibi oldu.

Butona bastığımda işleme başlamadan önce Sayfa2'nin içerisini her şeyi ile temizleyip işlem yapılırsa çok daha güzel olacak.

 

[Ömer BARAN]

Sayfayı yenileyerek önceki cevabımı kontrol edin.
Kod'da mavi renklendirdiğim kısım eklendi.
.

 

[ASLAN7410]

Sayın Ömer Bey, çok teşekkür ediyorum, tam istediğim gibi oldu.

Hayırlı geceler, hayırlı Cumalar.