[Yardım]  Excel Kod İsteği

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

Excel Kod İsteği

İleti#1)  avci.yasinn » 11 Oca 2020 09:06

Merhaba Üstadlar. bir türlü kodu yazamadım. hep yanlış satırları sildirdim.
isteğim.
B Hücresinde "Son K.Kontrol" yazan verilerin C hücresine karşılık gelen parti numarası "2019.3165.3.1" dir. Ancak bu parti numarası B hücresinde "Baskı" yazıp C hücresinde yine parti numarası "2019.3165.3.1" olanlar var.
B hücresinin taranıp Son K.Kontrol yazan verilerin karşısındaki parti numaralarının taranıp bulunan tüm bu parti numaralarının satırlarının silinmesini istiyorum.
Özetle : bu son kalite kontrol yazan satırlar bende biten ürünleri temsil etmekte. Ben biten ürünlere ait tüm parti numarası satırlarını silmek istiyorum. (Baskı, Fikse, Yıkama vs. vs. vs.)
Birinci sayfada 1 Örneğini verdiğim gibi B1 hücresindeki son kalite kontrol satırının karşısındaki parti numarası "2019.3165.3.1" dir. Ancak B9, B10, B12 de de bu parti numaraları mevcut. Ben bu parti numaralı satırları silmek istiyorum. Tablom 50.000 satır olabiliyor. Tek tek yapmam 1 günümü almaktadır.


https://dosya.co/suyqxid2f6hw/Parti_No_ ... .xlsx.html
Kullanıcı avatarı
avci.yasinn
 
Kayıt: 11 Oca 2020 09:04
Meslek: Bilgi İşlem
Yaş: 39
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Excel Kod İsteği

İleti#2)  MDAGISTANLI » 11 Oca 2020 20:37

C sütununu seçip 'Ctrl+F' ile arama yapın
Silmek istediğiniz kodu yazın, 'Tümünü Bul' ile tümünü bulun
'Ctrl+A' ile sonuçların tümünü seçin
'Esc' ile arama penceresini kapatın
Seçili hücrelerden herhangi birine sağ tıklayıp Sil'e basın
'Tüm Satır'ı seçip Tamam'a basın ya da 'Tüm Satır'a çift tıklayın.

5-10 saniyede tümünü silmiş olursunuz.
Kullanıcı avatarı
MDAGISTANLI
Siteye Alışmış
 
Kayıt: 28 Arl 2017 16:57
Meslek: Microsoft Sistem Yöneticisi
Yaş: 41
İleti: 139
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Başakşehir

Cevap: Cevap: Excel Kod İsteği

İleti#3)  avci.yasinn » 11 Oca 2020 21:10

MDAGISTANLI yazdı:C sütununu seçip 'Ctrl+F' ile arama yapın
Silmek istediğiniz kodu yazın, 'Tümünü Bul' ile tümünü bulun
'Ctrl+A' ile sonuçların tümünü seçin
'Esc' ile arama penceresini kapatın
Seçili hücrelerden herhangi birine sağ tıklayıp Sil'e basın
'Tüm Satır'ı seçip Tamam'a basın ya da 'Tüm Satır'a çift tıklayın.
5-10 saniyede tümünü silmiş olursunuz.


Merhaba, dosyam suanda 45 000 satır ve silinecek 7500 parti numaram var. sizin dediğiniz gibi yapsam herhalde 4 yada 5 saatimi alir ve ben bunu her ay yapiyorum. amacim bir kod yazarak silmek :)) yoksa her ay dediğiniz gibi yapiyorum zaten.
Kullanıcı avatarı
avci.yasinn
 
Kayıt: 11 Oca 2020 09:04
Meslek: Bilgi İşlem
Yaş: 39
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Excel Kod İsteği

İleti#4)  MDAGISTANLI » 11 Oca 2020 21:29

Anladım. VBA desteği gelene bir kaç hamle ile bir kaç dakikada silebilirsiniz.
C'nin sağına DÜŞEYARA yapmak üzere geçici sütun ekleyin
Son K.Kontrol alanına yazılan tüm kodları farklı sayfaya alın
Yeni sütunda DÜŞEYARA ile biten ürünleri tespit edip silebilirsiniz.
Kullanıcı avatarı
MDAGISTANLI
Siteye Alışmış
 
Kayıt: 28 Arl 2017 16:57
Meslek: Microsoft Sistem Yöneticisi
Yaş: 41
İleti: 139
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Başakşehir

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Excel Kod İsteği

İleti#5)  AliOguz » 11 Oca 2020 21:56

Aşağıdaki kod B sütununda Son K.Kontrol yazan hücrelerin olduğu satırları siler.
Kod: Tümünü seç
Sub satir_sil()
For x = 2 To Range("B" & Rows.Count).End(xlUp).Row
    If Cells(x, "B") = "Son K.Kontrol" Then
        Rows(x).Delete
        x = x - 1
    End If   
Next x
End Sub
Kullanıcı avatarı
AliOguz
Yeni Başlamış
 
Kayıt: 02 Arl 2017 13:50
Meslek: Memur
Yaş: 37
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Excel Kod İsteği

İleti#6)  OmerFaruk72 » 11 Oca 2020 22:03

Verilerinizin kopyasını alıp aşağıdaki kodları çalıştırın.
Kod: Tümünü seç
Sub Sil()
For i = 2 To Cells(1, 2).End(xlDown).Row
    If Cells(i, 2) = "Son K.Kontrol" Then
        Bak = Cells(i, 3)
        For k = Cells(1, 2).End(xlDown).Row To 2 Step -1
            If Cells(k, 3) = Bak Then Rows(i).Delete
        Next k
     
    End If
Next i
End Sub
Kullanıcı avatarı
OmerFaruk72
Siteye Alışmış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 48
İleti: 253
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Excel Kod İsteği

İleti#7)  avci.yasinn » 30 Oca 2020 08:49

OmerFaruk72 yazdı:Verilerinizin kopyasını alıp aşağıdaki kodları çalıştırın.
Kod: Tümünü seç
Sub Sil()
For i = 2 To Cells(1, 2).End(xlDown).Row
    If Cells(i, 2) = "Son K.Kontrol" Then
        Bak = Cells(i, 3)
        For k = Cells(1, 2).End(xlDown).Row To 2 Step -1
            If Cells(k, 3) = Bak Then Rows(i).Delete
        Next k
     
    End If
Next i
End Sub



Ömer Bey maalesef istediğim gibi çalışmadı. iletişim kurabilsek konuyu anlatabilsem daha iyi olacak :)
Kullanıcı avatarı
avci.yasinn
 
Kayıt: 11 Oca 2020 09:04
Meslek: Bilgi İşlem
Yaş: 39
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa


Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 0 misafir

cron
Bumerang - Yazarkafe