Satırların silinmesi

[as2380]

Arkadaşlar ekte örneğini verdiğim dosyadan elimde çok sayıda oldugundan acil olarak böyle bir makroya ihtiyacım var,yardım ederseniz sevinirim!

 

[Necdet]

Merhaba,

Süzme işlemi için ek bir sütunda formül yazdım. "DOĞRU" ları süzdüğünüzde işlem gerçekleşir.

Diğer Silme sorunuzu tam olarak anlamadım.

 

[as2380]

NECDET bey öncelikle yardımlarınız için teşekkür peki bu süzme işlemi için bir makro yazıpğ bunu da bir tuşa bağlasak ve tuşa tıkladığımız da sadece doğruların kaldığı(yani 1 ve 9 ile başlayanların) diğer satırların silindiği bişeyler yapmamız mümkünmü acaba?
İkinci silme sorumu da biraz daha açmaya açlışırsam
Mesela hesap planı şöyle ilerliyor 1,119,11901,11902 buada 1 ana hesap,diğerleri alt hesap ben sadece en alt hesapların kalmasını istiyorum mesela bu örnek için 1,119 un silinmesi gerekiyor 11901 ve 11902 ise kalmalı,bilmem anlatabildimmi???

 

[veyselemre]

Sub Sil()
Dim rForDelete As Range
Dim c As Range
    With Sheets("Sayfa1")
        For Each c In Range(.[a3], .[a65536].End(3))
            If (Not c.Value Like "1*" And Not c.Value Like "9*") Or _
               WorksheetFunction.CountIf(Range(c.Offset(1), c.End(xlDown)), c.Value & "*") Then
                If Not rForDelete Is Nothing Then
                    Set rForDelete = Union(rForDelete, c)
                Else
                    Set rForDelete = c
                End If
            End If
        Next
        If Not rForDelete Is Nothing Then rForDelete.Delete (xlUp)
    End With
End Sub

 

[as2380]

Veyselemre öncelikle çok teşekkür ederim hemen hemen istediğim gibi bi makro yazmışsın,ellerine sağlık ancak benim şöyle bi sorunum daha var,o ana hesapların olduğu satırlar siliniyo ya,o satırlarda b,c,d,f,g sütunlarında da değerler var ve benim istediğim o ana hesapların olduğu satır silinirken komple bütün olarak o satırın silinmesi,bu kadarını yaptığına gör ebunu da kolaylıkla halledeceğini düşünüyorum

 

[veyselemre]

If Not rForDelete Is Nothing Then rForDelete.EntireRow.Delete (xlUp)

 

[as2380]

Veysel farkındayım çok zahmetli oldum ama son bişey rica etsem mümkünmü acaba?şimdi bu tablo dedim ya A-B-C-D-E-F-G Sütunlarından oluşmakta.Az önce istediğim şeyle birlikte B ve C yi silmemi sağlayacak, F-G Sütunlarını da D-E sütunları ile yer değiştirmemi sağlayacak ve en son da baş tarafa iki boş sütun eklememi sağlayacak bir kod ekleyebilir miyiz az önceki makroya?
Söz kardeşim bu son isteğim senden,çok ama çooook teşekkür ederim

 

[veyselemre]

Anlattığınız verileri içeren ve istediğiniz son hali ayrı ayrı sayfalarda içeren bir örnek ekleyin.

 

[as2380]

altta eklediğim dosya 1 sayfa orjinal hali,2.sayfa ise benim elde etmek istediğim hali...
İlgin için çok teşekkürler

 

[veyselemre]

Sub Sil()
Dim rForDelete As Range
Dim c As Range
    With Sheets("Sayfa1")
        For Each c In Range(.[a3], .[a65536].End(3))
            If (Not c.Value Like "1*" And Not c.Value Like "9*") Or _
               WorksheetFunction.CountIf(Range(c.Offset(1), c.End(xlDown)), c.Value & "*") Then
                If Not rForDelete Is Nothing Then
                    Set rForDelete = Union(rForDelete, c)
                Else
                    Set rForDelete = c
                End If
            End If
        Next
        If Not rForDelete Is Nothing Then rForDelete.EntireRow.Delete (xlUp)
        .Columns("A:B").Insert Shift:=xlToRight
        .Columns("H:I").Cut
        .Columns("D:E").Select
        .Paste
    End With
End Sub

 

[as2380]

Çok TeŞekkÜrler Veysel,tam İstedİĞİm Gİbİ OlmuŞ Ellerİne SaĞlik....

 

[as2380]

VEYSEL SANA SONBİŞEY SORACAM AMA ARTIK YETER ASIM EROL DEDİĞİNİ DUYAR GİBİYİM
Şimdi az önce yaptıgın makroyla herşey cok güzel oldu yalnız son bir eksiğim var,şimdi en son haliyle a ve b sütunları boş kalıyordu ya oraya da şu beş bilgiden birinin gelmesi lazıııım ama neye göre onu da söyliyeyim hemen
Şu gönderdiğim örnek tabloya bakarsan (a1 hücresinde
2007-08-03 Tarihli LON Ham Mizan Bilgileri
2007-08-03 Tarihli NEWYO Ham Mizan Bilgileri
2007-08-03 Tarihli SOFIA BU Ham Mizan Bilgileri
2007-08-03 Tarihli TBILISI G Ham Mizan Bilgileri
2007-08-03 Tarihli SKOPJE MAC Ham Mizan Bilgileri
şeklinde 5 tane başlık var tarihler değişebiliyor ama hep aynı formatta(soldan 20.karakterden itibaren LON,NEWYO,SOFIA BU,TBILISI G,SKOPJE MAC değerlerine göre A VE B sütunlarına aşağıdaki değerleri getirebilirmiyiz acaba???
1470 LONDRA
1469 NEWYORK
1679 SOFYA
1766 TİFLİS
1696 ÜSKÜP