alt alta sıralanan verileri koşula göre silmek

[mmelikee]

Merhaba ,

acil olarak ekteki dosya için yardımlarınızı rica ediyorum.

 

[YUSUF44]

Başlangıç olarak aşağıdaki işlemi uygulayabilirsiniz:

B1 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayın, sadece badkodlu ürünleri listeler, barkodsuzlar boş kalır:

=EĞER(SOLDAN(A2;8)="Barcode=";A1;"")

C1'e aşağıdaki formülü yazarsanız barkodlu olanların barkodunu yazar, diğerlerini boş bırakır:

=EĞER(B1="";"";SAĞDAN(A2;UZUNLUK(A2)-8))

Böylece B sütununda barkodlu ürün isimleri; C sütununda da barkodları kalır. Daha sonra bu sütunları kopyalayıp özel yapıştırdan sadece değerleri yapıştırarak formüllerden arındırabilirsiniz.

 

[Necdet]

Merhaba,

Makro bölümünde sorulduğu için bende makrolu çözümü vereyim. Alternatif olur.

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Denemeden önce sayfanın bir yedeğini almayı unutmayınız.

Sub Barkodu_Olmayan_Satirlari_Sil()
    
    Dim i As Long
    Dim j As Long
    Dim k As Long
    
    Application.ScreenUpdating = False
    j = Cells(Rows.Count, "A").End(3).Row
    
    For i = 1 To j
        If Cells(i, "A") Like "?NE*" And Not Cells(i + 1, "A") Like "BarCode*" Then
            Rows(i).Delete
            j = j - 1
            i = i - 1
            k = k + 1
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox k & " ADET BARKODU OLMAYAN SATIR SİLİNMİŞTİR"
    
End Sub

 

[mmelikee]

Necdet bey, Yardımlarınız için çok teşekkürler ... Elinize sağlık

 

[mmelikee]

Yusuf Bey, sizlere de yardımlarınız için teşekkürler satırları silmek istedikten sonra yapmak istediğim işlemin formülünü yazmışsınız

Elinize sağlık

 

[Necdet]

Necdet bey, Yardımlarınız için çok teşekkürler ... Elinize sağlık

Güle güle kullanınız.

Formülle isterseniz eğer :

Birinci satırın A ve B hücrelerine başlık ekleyiniz

B2

=EĞER(SOLDAN(A2;3)="Bar";"";VE(SOLDAN(A2;1)="[";SOLDAN(A3;7)<>"Barcode"))

Aşağıya doğru formülü kopyalayınız.

B sütununu DOĞRU olana göre süzdürüp tüm satırları silebilirsiniz.

 

[mmelikee]

Güle güle kullanınız.

Formülle isterseniz eğer :

Birinci satırın A ve B hücrelerine başlık ekleyiniz

B2

=EĞER(SOLDAN(A2;3)="Bar";"";VE(SOLDAN(A2;1)="[";SOLDAN(A3;7)<>"Barcode"))

Aşağıya doğru formülü kopyalayınız.

B sütununu DOĞRU olana göre süzdürüp tüm satırları silebilirsiniz.

tekrardan teşekkürler necdet bey,

Bir şeyde daha yardımınızı rica edeceğim filtreleme yapıp o filtrelenen verileri başka bir sayfaya kopyalamak istediğimde aradaki gizli satırları da alıyor ve satırlarım 657bin satır falan nasıl bir yol izleyebilirim.

 

[Necdet]

tekrardan teşekkürler necdet bey,

Bir şeyde daha yardımınızı rica edeceğim filtreleme yapıp o filtrelenen verileri başka bir sayfaya kopyalamak istediğimde aradaki gizli satırları da alıyor ve satırlarım 657bin satır falan nasıl bir yol izleyebilirim.

Merhaba,

Farklı nitelikli sorularda yeni başlık açınız lütfen.

Aşağıdaki linkin 7. mesajını inceleyiniz.

http://www.excel.web.tr/f48/suzme-y...o-ile-dioer-sahifeye-aktarylmasy-t109473.html