[vb:1:9ae4d8dd4e]Sub alis()
Set s1 = Sheets("3")
For a = 25 To 36
If Cells(a, 1) = 0 Then GoTo 10
say = WorksheetFunction.CountA(s1.[a2:a65536]) + 2
s1.Cells(say, "a") = Date
s1.Cells(say, "b") = Cells(a, 1)
For b = 3 To 9
s1.Cells(say, b) = Cells(a, b)
Next: Next
10 MsgBox "ALIÃ VERİLERİ AKTARILDI"
End Sub[/vb:1:9ae4d8dd4e]
Satış butonunada aşağıdaki kodu bağlayın.
[vb:1:9ae4d8dd4e]Sub satis()
Set s1 = Sheets("3")
For a = 4 To 15
If Cells(a, 1) = 0 Then GoTo 10
say = WorksheetFunction.CountA(s1.[m2:m65536]) + 2
s1.Cells(say, "m") = Date
s1.Cells(say, "n") = Cells(a, 1)
For b = 3 To 9
s1.Cells(say, b + 12) = Cells(a, b)
Next: Next
10 MsgBox "SATIÃ VERİLERİ AKTARILDI"
End Sub[/vb:1:9ae4d8dd4e]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.