Arkadaşlar (özellikle leventm) makro ile sorduğum soruya verdiğiniz cevaplardan ötürü teşekkür ederim. Ancak Hala sorunuma tam cevap bulamadım.
(öncelikle leventm incelerse)Yukarıda örneğini vereceğim makro ile yaptığım işlemde ilgili hücrede bulunan veri Arşiv sayfasına taşınıyor. Taşınıyor taşınmasına ancak taşimak istediğim sonraki veri ise Arşiv sayfasında aynı hücreye taşınıyor. A1 hücresine taşıdığım/aktardığım birinci veriden sonra ikinci taşıdığım veri A2 hücresine taşınmıyor. Yine A1 hücresine taşınıyor. O zamanda istediğim olmuyor. Taşınan veriler ard arda sırasıyla hücrelere taşınmasını istiyorum. İlgili makro aşağıda inceleyip bu sorunu giderecek arkadaşlardan yardım bekliyorum.
Sub ArsivDenemee()
Sheets("AnaSayfa").Range("A27").Select
Selection.Copy
Workbooks.Open Filename:= _
"D:\mustafa\Belgelerim\Ã?DENEK İÃLERİ\HARCAMALAR 2005.xls"
Say = WorksheetFunction.CountA(Sheets("ECZANE İLAÇ GİDERLERİ").Range("A1:A65536"))
Sheets("Arsiv").Range("A" & Say + 1).PasteSpecial
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
(öncelikle leventm incelerse)Yukarıda örneğini vereceğim makro ile yaptığım işlemde ilgili hücrede bulunan veri Arşiv sayfasına taşınıyor. Taşınıyor taşınmasına ancak taşimak istediğim sonraki veri ise Arşiv sayfasında aynı hücreye taşınıyor. A1 hücresine taşıdığım/aktardığım birinci veriden sonra ikinci taşıdığım veri A2 hücresine taşınmıyor. Yine A1 hücresine taşınıyor. O zamanda istediğim olmuyor. Taşınan veriler ard arda sırasıyla hücrelere taşınmasını istiyorum. İlgili makro aşağıda inceleyip bu sorunu giderecek arkadaşlardan yardım bekliyorum.
Sub ArsivDenemee()
Sheets("AnaSayfa").Range("A27").Select
Selection.Copy
Workbooks.Open Filename:= _
"D:\mustafa\Belgelerim\Ã?DENEK İÃLERİ\HARCAMALAR 2005.xls"
Say = WorksheetFunction.CountA(Sheets("ECZANE İLAÇ GİDERLERİ").Range("A1:A65536"))
Sheets("Arsiv").Range("A" & Say + 1).PasteSpecial
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub