Değerli arkadaşlar,
Aşağıdaki kod ile, "Giriş Ekranı" isimli sayfadaki bir satırı; "Sayfa1" isimli sayfaya kopyalamak istiyorum. Bunun için bir buton oluşturdum. Ancak, giriş sayfasındaki veriler değiştikçe; yeni bilgiler kopyaladığım sütunun bir alt satırına gelmeli.. Yani, önceki girilen değerleri ezmemesi lazım..
Bunun için aşağıdaki kod'a ne ilave etmem gerektiğini belirtirseniz memnun olurum..
--------------------------------
Sub KOPYALA_MAKRO()
'
' KOPYALA_MAKRO Makro
'
'
Rows("3:3").Select
Selection.Copy
Sheets("Sayfa1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Giriş Ekranı").Select
Application.CutCopyMode = False
End Sub
Aşağıdaki kod ile, "Giriş Ekranı" isimli sayfadaki bir satırı; "Sayfa1" isimli sayfaya kopyalamak istiyorum. Bunun için bir buton oluşturdum. Ancak, giriş sayfasındaki veriler değiştikçe; yeni bilgiler kopyaladığım sütunun bir alt satırına gelmeli.. Yani, önceki girilen değerleri ezmemesi lazım..
Bunun için aşağıdaki kod'a ne ilave etmem gerektiğini belirtirseniz memnun olurum..
--------------------------------
Sub KOPYALA_MAKRO()
'
' KOPYALA_MAKRO Makro
'
'
Rows("3:3").Select
Selection.Copy
Sheets("Sayfa1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Giriş Ekranı").Select
Application.CutCopyMode = False
End Sub