verilerin başka sayfaya sırası ile aktarılması hk.

[hasat10]

Merhaba,

Excel'de komut düğmesi yaratarak örn: bir excel dosyasının birinci sayfanın 1. satırındaki bilgileri aynı sıra ile birbaşka excel dosyasındaki 1. sayfaya otomatik olarak alt alta sıralamak istiyoyorum. Her komut dürmesi kullanıldığında bilgilerin kaydedileceği sayfada bulunan kayıtların bir altına kaydedilecek olması nedeni ile formülü oluşturamıyorum. Yardımlarınızı talep ederim.

Teşekkürler,

Erkan ÇAĞLAR

 

[Merhum İdris SERDAR]

Aşağıdaki kodları deneyin.

Sub aktar()

Range("A1:aa1).Select ‘ kopyalanacak alan
Selection.Copy

Workbooks.Open Filename:= _
"C:\.....\.....\My Documents\HedefBook1.xls" ‘Hedef dosyanın yolu

Sheets("Sheet1").Select ‘Kopyanın yapıştırılacağı sayfa
Range("A1").Select
b = WorksheetFunction.CountA(Sheets("Sheet1").Range("A1:a65536"))
Sheets("Sheet1").Cells(b + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False

Windows("Kopyalanacakbook1.xls").Activate
Sheets("Sheet1").Select
Range("A1").Select
End Sub

 

[hasat10]

sagolasın arkadas gondermissinde ben beceremedim bana örnek olarak yapıp gonderrsen cok iyi olur.

teşekkür.