makro ile sayfalar arası veri transferi

Katılım
1 Kasım 2005
Mesajlar
207
ekte gönderdiğim dosyada anlatmaya çalıştım. makro ile sayfalar arasında veri aktarımı hakkında
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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.


Kod:
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
 
Üst