Satış Takip Otomasyonu

[afk]

Değerli üstadlar merhaba. Bir konu hakkında tecrübelerinize ihtiyacım var. Basit bir perakende satış otomasyonu yapmak istiyorum. Daha önceki dosyalarımda kullanılan kodları buraya uyarlamak istedim fakat başaramadım. Yardımcı olursanız çok memnun olurum.

Dosya linki: https://www.dosya.tc/server35/caer8z/Satis_Takip.xlsm.html

Sorum şudur: Kasa Satış isimli sayfada barkod okuyu ile ürünler çağırılacak. Satış işlemi bittikten sonra, sayfadaki Satış Yap butonuna tıklandığında bir onay penceresi açılacak, İşlemi bitirmek istiyor musunuz? diye, Evet denilirse; Tarih, Barkod no, Ürün Adı ve Fiyat bilgilerini, Satış Listesi sayfasındaki ilgili sütunlara aktaracak ve her bir kayıt işlemi için Satış Listesi sayfasındaki Satış ID sütununa 1'den başlayarak artan bir numara verecek. Her kayıt işlemi bu şekilde Satış Listesi sayfasınındaki mevcut kayıtların altına eklenerek devam edecek.

Yardımlarınızı bekler, saygılarımı sunarım.

 

[afk]

Değerli Ustalarım, biraz sıkıştığım için acele ediyorum kusuruma bakmayın. Kendi imkanlarımla bir yere kadar getirebildim fakat, Kasa Satış sayfasındaki sadece ilk satırları Satış Listesi sayfasına kaydettirebiliyorum. Kasa Satış sayfasındaki B2:E21 arasındaki tüm değerleri kaydettirme işlemi konusunda desteklerinizi beklemekteyim. Bir de, Satış Yap butonuna her basıldığında, her kayıt işlemi için, Satış Listesi sayfasındaki Satış ID sütununa 1'den başlayıp yukarı doğru bir değer verdirebilir miyiz?
Saygılar.

Dosya: https://s6.dosya.tc/server5/p35h95/Satis_Takip.xlsm.html


Kod:
Sub kaydet()
Dim son As Long
Set s1 = Sheets("Kasa Satış")
Set s2 = Sheets("Satış Listesi")
son = s2.Range("B" & Rows.Count).End(3).Row
s2.Cells(son + 1, 2) = s1.Range("B2")
s2.Cells(son + 1, 3) = s1.Range("C2")
s2.Cells(son + 1, 4) = s1.Range("D2")
s2.Cells(son + 1, 5) = s1.Range("E2")
s2.Cells(son + 1, 6) = s1.Range("G4")
Range("C2:C21").ClearContents
MsgBox "Satış İşlemi Tamamlandı", vbInformation, "Kasa"
End Sub

 

[afk]

Kendi imlanlarımla adım adım geliştirmeye çalışıyorum. Belli bir seviyeye geldi. Sistem çalışıyor. Fakat sanırım iç içe if mantığını bilememekten başaramadım. İki koşulu sırasıyla kontrol etmesini istiyorum.
Birincisi, barkod sütununa her hangi bir ürün girişi var mı ona baksın,
İkincisi de, ödeme tipi seçilsin.
Bu koşullar sağlanmışsa kayıt işlemi tamamlansın.
Lütfen yardımcı olabilir misiniz.

Örnek Dosya: https://www.dosya.tc/server35/4lwwah/Satis_Takip_deneme.xlsm.html

Örnek kod:
Sub kaydet()
Dim son As Long
Set s1 = Sheets("Kasa Satış")
Set s2 = Sheets("Satış Listesi")
If Range("B22") = 0 Then
MsgBox "Lütfen ürün girişi yapınız", vbInformation, "Ürün"
End If
If Range("H7") = "" Then
UserForm2.Show
Else
For i = 2 To s1.Range("B65536").End(xlUp).Row
son = s2.Range("B" & Rows.Count).End(3).Row
s2.Cells(son + 1, 2) = s1.Range("F4")
s2.Cells(son + 1, 3) = s1.Cells(i, 2)
s2.Cells(son + 1, 4) = s1.Cells(i, 3)
s2.Cells(son + 1, 5) = s1.Cells(i, 4)
s2.Cells(son + 1, 6) = s1.Range("H8")
Next i
Range("B2:B21").ClearContents
Range("H10").ClearContents
Range("H8").ClearContents
ActiveSheet.[B2].Select
UserForm1.Show
End If
End Sub