irsaliye fatura çalışması

[tamer060]

Merhaba arkadaşlar bir konuda takıldım yardımcı olursanız memnun olurum. Arıntı ek'tedir. Saygılarımla

 

[Emir Hüseyin Çoban]

Merhaba, aşağıdaki kodları deneyiniz.

Sub suz_hc()
    Sheets("sipariş").Range("B1:C65000").AutoFilter Field:=2, Criteria1:="<>"
    Sheets("sipariş").Range("B1:C65000").Copy
    Sheets("irsaliye").Range("C3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Selection.AutoFilter
End Sub

 

[tamer060]

teşekkür ederim hüseyin bey çok güzel olcak sayenizde..