Bir Tabloda İstenmeyen Satır ve Sütunların Silinmesi?

[sdn123]

Merhaba arkadaşlar; elimde oldukça kalabalık veriler içen bir tablo var. İstediğim şey bu tabloda istediğim satır ve sütunları almak; bunun dışında kalanların ise silinmesi.(yâda tablodan çıkartılarak farklı bir yere alınması)

Yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Soruyu açarmısınız. İstedeğiniz satır ve sütunun ne olduğunu nasıl anlamamız gerekiyor.

Sorularınızı örnek dosya ile destekleyip detaylı açıklamya özen göztermenizi rica ederim.

 

[sdn123]

Hocam öncelikle ilgilendiğiniz için teşekkürler. Konun daha iyi anlaşılması için örnek bir tablo ekliyorum.

Cevabınız için şimdiden teşekkürler

 

[Ömer]

Hocam öncelikle ilgilendiğiniz için teşekkürler. Konun daha iyi anlaşılması için örnek bir tablo ekliyorum.

Cevabınız için şimdiden teşekkürler

Bu şekilde deneyin.

Sub AraSil()
 
    Dim deg, i As Long, say As Byte, j As Byte, son As Long, dSay As Byte
 
    [COLOR=blue]deg = Array("06US7542", "06AL7542")[/COLOR]
    son = Cells(Rows.Count, "A").End(xlUp).Row
 
    Application.ScreenUpdating = False
 
    dSay = UBound(deg) + 1
    For i = son To 1 Step -1
        If Cells(i, "B") = "LİTRE" Then
            say = 0
            For j = 0 To UBound(deg)
                If Cells(i, "A") <> deg(j) Then
                    say = say + 1
                    If say = dSay Then Exit For
                End If
            Next j
            If say = dSay Then Rows(i & ":" & son).Delete Shift:=xlUp
            son = i - 1
        End If
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[sdn123]

Hocam; kodu yapıştırdım. Ama silme işi nasıl olacak çözemedim. Ayrıca tabloda belki 300 yakın aracın plakası var; bana ait ise 15-20 tane var. Verdiğiniz Kod’ta nereye diğer plakaları da yazmam gerekiyor.

 

[Ömer]

Hocam; kodu yapıştırdım. Ama silme işi nasıl olacak çözemedim. Ayrıca tabloda belki 300 yakın aracın plakası var; bana ait ise 15-20 tane var. Verdiğiniz Kod’ta nereye diğer plakaları da yazmam gerekiyor.

#4 numaralı mesajda kodların bu bölümünü mavi ile işaretledim. Kodlarda 2 plaka yazılmıştır. Aynı şekilde siz ilave ederek devam ettirebilirsiniz.

Kod uygulama ve buton için linkleri inceleyiniz.

Modül Ekleme (Resimli Anlatım)

Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım

.

 

[sdn123]

Hocam verdiğiniz bilgiler için çok sağulun; yalnız şu düğme işini tam yapmadım. Sayfaya düğme eklemeyi başardım. Ama bunu verdiğiniz kodla nasıl bağlantılı hale getirecem tam çözemedim.

 

[Ömer]

İkinci verdiğim linkte anlatımı vardı.

Modul ekleme linkindeki gibi modül ekleyip kodları eklediğiniz bölüme yapıştırın.

Sayfa üzerine eklediğiniz butona fare ile sağ klik yapın ve makro ata seçeneğini işaretleyin, açılan ekranda konuyla ilgili yazdığımız makronun adını göreceksiniz, bu bölümü seçip tamam ile işlemi bitirin.

 

[sdn123]

Hocam tamam çok sağulun çok iyi anldım. Yardımlarınız için teşekkürler

 

[sdn123]

burda verdiğiniz kod benim verdiğim örneğe uydu ancak ek'te göndereceğim tabloda uymadı. Bir inceleyip yardımcı olırsanız çok sevirim.

 

[Ömer]

Burada yapmak istediğiniz nedir?

 

[sdn123]

Listede istemediğim satır ve sütunların silinmesi istiyorum. Şöyle ki; tabloda bazı araçlara ait veriler var. İlgili araca ait veriler tabloda kalacak diğer veriler ise silinecek. (Tabloda istediğim plaka ve o plakaya ait veriler rast gele dağılmış durumda.)Örneğin en son verdiğim tabloda istemediğim satır ve sütunlar silindiğinde ekte yeni sunduğum plakalar kalmış olacak.

 

[sdn123]

Yardımcı olabilecek yok mu?

 

[Ömer]

Sadece plakaların olduğu satırlar mı gizlenecek yoksa plakaların alt gruplarıda silinecek mi?

Sütun silmeyide anlamadım. Soru açıklamalarınız yetersiz.

 

[sdn123]

Hocam konun daha iyi anlaşılması için 2.örneği ekledim. Ayrıca tabloda sütun silmeye gerek kalmdı. Satır silinmesi yeterli.

İlgilendiğiniz için tekrar teşkkürler.

 

[Ömer]

Bu şekilde deneyin.

Sub AraSil()
 
    Dim deg, i As Long, say As Byte, j As Byte, son As Long, dSay As Byte
 
    deg = Array("06YJ2648", "06YJ9956")
    son = Cells(Rows.Count, "A").End(xlUp).Row
 
    Application.ScreenUpdating = False
 
    dSay = UBound(deg) + 1
    For i = son To 1 Step -1
        If Cells(i, "G") = "" Then
            say = 0
            For j = 0 To UBound(deg)
                If Cells(i, "A") <> deg(j) Then
                    say = say + 1
                    If say = dSay Then Exit For
                End If
            Next j
            If say = dSay Then Rows(i & ":" & son).Delete Shift:=xlUp
            son = i - 1
        End If
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[sdn123]

Hocam çok sağulun; gerçekten çok yardımınız dokunda. tekrar tekrar teşekkürler