SAYFA 2 DEKİ BİLGİLERİ 3 KAYDETME

[aydgur]

SAYFA 2 DEKÝ BÝLGÝLERÝ 3 KAYDETME

DOSYAYA EK OLARAK KAYIT YAPTIÐINDA OTOMATİK SİLERMİ

 

[Levent Menteşoğlu]

Alış butonuna aşağıdaki kodu bağlayın.

[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]

 

[aydgur]

ÇOK TEÞEKKÜR EDERİM..