makro ile sayfalar arası veri transferi

[supervisor]

ekte gönderdiğim dosyada anlatmaya çalıştım. makro ile sayfalar arasında veri aktarımı hakkında

 

[zafer]

Merhaba

Aşağıdaki kodları deneyiniz
Yalnız sayfa1 ve sayfa2 deki bilgileriniz aynı sırada olursa daha iyi olur
ben o sıraya göre kodları düzenledim.

Adısoyadı işlem türü tarih Tahsilat Açıklama Satış


Siz kodları isteğinize göre uyarlayabilirsiniz.

İki basma olmasın diye bir şey olamaz arka arkaya iki tane makbuzu nasıl gireceksiziz.

Sub islem_say()

Set say1 = Sheets("sayfa1")
Set say2 = Sheets("sayfa2")

son1 = say1.Cells(65536, 1).End(xlUp).Row + 1
son2 = say2.Cells(65536, 1).End(xlUp).Row + 1

For i = 1 To 4
say1.Cells(son1, i) = Sayfa2.Cells(i + 5, 2)
say2.Cells(son2, i) = Sayfa2.Cells(i + 5, 2)
Next


End Sub