Sipariş Takibi ve yeni siparişler

[cansozeri]

Arkadaşlar benim sorunum sipariş takip ve yeni siparişlerin girilmesi ile ilgili ekteki dosyanın içine detaylarıyla açıklamasını yaptım ilgilenirseniz çok sevinirim şimdiden çok teşekkürler.

 

[cansozeri]

sipariş takip ve yeni sipariş ekleme

Arkadaşlar benim sorunum sipariş takip ve yeni siparişlerin girilmesi ile ilgili ekteki dosyanın içine detaylarıyla açıklamasını yaptım ilgilenirseniz çok sevinirim şimdiden çok teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Küçük bir örnek yaptım bir deneyin.

Private Sub ComboBox3_Change()
ComboBox3 = Format(Date)
End Sub

Private Sub CommandButton1_Click()
Set s1 = Sheets("GÜNCEL SİPARİŞLER")
Set s2 = Sheets("VERİ")
For sut1 = 1 To s2.[c65536].End(3).Row
If s2.Range("c" & sut1) = ComboBox1.Value Then
s2.Range("c" & sut1).EntireRow.Copy
s = WorksheetFunction.CountA(s1.[a1:a65536]) + 1
s1.Range("a" & s).PasteSpecial
End If
Next
s1.Select
    Cells.Select
    Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
Application.CutCopyMode = False
End Sub

Private Sub UserForm_Initialize()
Sheets("VERİ").Select
ComboBox1.RowSource = "c1:c" & [c65536].End(3).Row
End Sub

 

[cansozeri]

Ekte Dosya

GÖndermİŞ OlduĞunuz Örnekte GÜzel Şeyler YapmiŞiniz.tŞkrler
Yanliz Sİze Asil Sayfayi Ekliyorum Ve İÇİne Nasil Olmasi Gerektigini Detayli Yazdim Yardimizin Icin Tesekkurler