seçili satır aktarma

[igultekin2000]

iyi günler;

Private Sub Cmd3_Click()
Selection.Rows.Copy
 
a = WorksheetFunction.CountA(Sheets("Sayfa2").Columns(1))
Sheets("Sayfa2").Cells(a + 1, 1).PasteSpecial
Application.CutCopyMode = False
End Sub bu makro ile seçili satırı başka sayfaya aktarabiliyorum. Seçili satır aktarıldıktan sonra ana sayfadan silinmesi ilavesini yapmaya çalışıyorum.

 

[Orion1]

Deneyiniz.
Önce dosyanızın yedeğini alınız.

Private Sub Cmd3_Click()
Selection.Rows.Copy

a = WorksheetFunction.CountA(Sheets("Sayfa2").Columns( 1))
Sheets("Sayfa2").Cells(a + 1, 1).PasteSpecial
Application.CutCopyMode = False
[B][COLOR="Red"]selection.clear[/COLOR][/B]
End Sub

 

[igultekin2000]

sorunsuz çalışıyor

Deneyiniz.
Önce dosyanızın yedeğini alınız.

Private Sub Cmd3_Click()
Selection.Rows.Copy

a = WorksheetFunction.CountA(Sheets("Sayfa2").Columns( 1))
Sheets("Sayfa2").Cells(a + 1, 1).PasteSpecial
Application.CutCopyMode = False
[B][COLOR="Red"]selection.clear[/COLOR][/B]
End Sub

Teşekkürler, Selection.Clear eki sorunu çözdü. Hayırlı akşamlar. (not: benim gibi acemiler için Clear yerine Delete kullanılırsa seçili satırı satır olarak siliyor.)