sayfadan sayfaya kopyalama kodunda duzenleme

[kakara]

Merhaba ustadlarım sayfadan sayfaya kopyalama makrosunda hucre ıcındekı formul degerlerı ıle kopyalama yapıyor. nasıl bır degısıklık yaparsak formullerı almadan degerlerı kopyalayabılırız. ilgniniz için tesekkurler


Code:
Sub Secimi_Aktar()

Dim i As Long

If Selection.Columns.Count > 1 Then
i = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
Selection.Copy Sheets("Sayfa2").Cells(i, "A")
MsgBox "Seçilen Alan Aktarıldı"
End If

End Sub

 

[bmutlu966]

Deneyin.

Sub Secimi_Aktar()

Sub Secimi_Aktar()

Dim i As Long

If Selection.Cells.Count > 1 Then
i = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
Selection.Copy
Sheets("Sayfa2").Select
Cells(i, "A").Select
Selection.PasteSpecial xlValue
MsgBox "Seçilen Alan Aktarıldı"
End If


End Sub

 

[YUSUF44]

Şöyle deneyin:

Selection.Copy: Sheets("Sayfa2").Cells(i, "A").PasteSpecial Paste:=XlPasteValues

 

[kakara]

@YUSUF44 ustadım dedıgınız gıbı duzelttıgımde formullerden kurtardım dıger sayfada bır sorum daha olucak peki kopyalama yaptıgım sayfaya yenı bır kopyalama yapmak ısterdım ılk kopyalamanın son satırının bır altındakı satırdan kaopyalamaya baslatabılır mıyız ?

 

[YUSUF44]

İ= ile başlayan satır ilk boş satırı bulmaya yarıyor ve kodlar ilk boş satıra yapıştırıyor. Aynı şekilde yapıştırma işleminden önce o satırı kullanırsanız istediğiniz olur. Yani hep ilk boş satırı bul sonra da yapıştır yapabilirsiniz.

Ya da aynı kodun devamında olacaksa önceki mesajımda verdiğim satırı tekrar kullanır ama bu sefer i yerine i+1 kullanabilirsiniz.