Birden fazla barkodları teke indirmek

[bilalakdeniz]

Merhaba, Günlük olarak satışları, kopyalıyoruz. Malzemeler sayfasına sadece Barkodların birertanesinin yazılmasını istiyorum.

 

[Murat OSMA]

Merhaba,

Bu kodları kullanabilirsiniz..

[SIZE="2"]Sub Emre()
    Sayfa4.Range("B9:C" & Sayfa4.Range("C65536").End(3).Row).Copy
    Sheets("MALZEMELER").Select
    Range("A3").PasteSpecial Paste:=xlPasteValues, Transpose:=False
    Range("A2:B" & Range("B65536").End(3).Row).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub[/SIZE]

 

[bilalakdeniz]

Hocam, Çok teşekkür ederim. Ama toplamlar tutmuyor. ve sayfada çoğunu silince malzemeler sayfasında duruyor. Aslında tam istediğim gibi. Yardımcı olursanız çok sevinirim.

 

[zamansal2]

Şöyle bir şey yapsan baktığımda aynı üründen bir nakit bide kredi var onlara bir sütün aç 1 ve krediye 2 yaz süzme işleminde sadece 1 yazılanları seçersen işini görür gibi kolay gelsin.

 

[askm]

Toplamlar tutmuyor dediğiniz kısmı anlamadım. Orayı siz etopla yapmışsınız zaten.
Kodu aşağıdaki şekilde revize ederseniz eski kayıtları siler son hali ile alır.

Sub Emre()
    Sayfa2.Range("A3:B65536").ClearContents
    Sayfa4.Range("B3:C" & Sayfa4.Range("C65536").End(3).Row).Copy
    Sheets("MALZEMELER").Select
    Range("A3").PasteSpecial Paste:=xlPasteValues, Transpose:=False
    Range("A2:B" & Range("B65536").End(3).Row).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

 

[bilalakdeniz]

Teşekkür ederim.