kopyala makrosunda sorun

[acarselcuk1]

merhaba arkadaşlar:
yeni yeni makro çalışmaya başladım ve istediğimi yapamıyorum. aşağıdaki makroyu sayfa birdeki mause ile seçtiğim alanı sayfa ikiye a sütununa sırasıyla boş olan alana kaydetmesini istiyorum. yardımcı olrsanız sevinirim.

Sub Makro1()
Sheets("Sayfa1").Select
Range("A1").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlAllExceptBorders
End Sub

daha açıklayıcı olsun diye birde dosya gönderdim. teşekkürler

 

[acarselcuk1]

Sub Makro1()
'
' Makro1 Makro
Selection.Rows.Copy
a = WorksheetFunction.CountA(Sheets("sayfa2").Columns(1))
Sheets("sayfa2").Cells(a + 1, 2).PasteSpecial
Application.CutCopyMode = False
End Sub
böyle bir çözüm ürettim ama hep aynı sıraya yazıyor
ben ise sıradaki boş hücreye yazmasını istiyorum nasıl yapabilirim

 

[mehmett]

Aşağıdaki kodu deneyin;

Sub Makro1()
Selection.Copy
Sheets("Sayfa2").Select
son = Sheets("Sayfa2").[a65536].End(3).Row + 1
Cells(son, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues
Cells(son, 1) = Date
End Sub

 

[acarselcuk1]

sayın mehmett:
kendimi iyibir excel kullanıcısı olarak biliyordum taki bu site ve bununla beraber makrolarla tanışıncaya kadar. Excel in hayal ile sınırlı olduğunu öğrandim ve makrolar hakkında kitaplar ve cd leraldım. Bunun için bir bilgisayar aldım ve evdede bu konuyla ilgilenip devamını getirmek ve sizler gibi insanlara yardım etmek istiyorum. başta site sahibi olmak üzere sizlere çok teşekkür ederim. bilgiyi paylaşmak kadar zevk verici birşey olmadığını biliyorum ve bu zevki bende çok tattım. çalışmarınızın devamını ve başarılı olmasını diliyorum. teşekkürler... selçuk acar.