makro ile bir sonraki boş hücreye satır yapıştırma

[Ghosst]

herkese selam yapmak istediğim çift tıklama ile satırın seçilmesi ve bir başka sayfada yukarıdan aşağıya ilk boş hücreye yazılması. aşağıdaki kodlarda bi eksiklik veya yanlışlık var ama kavrayamadım yardımcı olursanız sevinirim.



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.EntireRow.Select
Selection.Copy
Sheets("sayfa1").Select

For i = 2 To 50
If Cells(i, 2).Value = "" Then
Selection.Paste
Else

Next

End If

End Sub

 

[veyselemre]

[vb:1:b4fa5724c6]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.EntireRow.Select
Selection.Copy
Sheets("Sayfa1").Select
sonsat = Sheets("Sayfa1").[a65536].End(3).Row + 1
Sheets("Sayfa1").Rows(sonsat & ":" & sonsat).Select
Sheets("Sayfa1").Paste
End Sub[/vb:1:b4fa5724c6]

 

[platipuss]

selam ghosst

veyselemre benden once davrandı... işçiliği daha iyi ...



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Application.Run "Kitap1!satırkopyala"




End Sub




Public Sub satırkopyala()
Sheets("Sayfa2").Select
Cells(5000, 1).End(xlUp).Select

r = Selection.Row + 1

Sheets("Sayfa1").Select
ActiveCell.EntireRow.Copy
Sheets("Sayfa2").Select
Rows(r).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Application.CutCopyMode = False
Sheets("Sayfa1").Select


End Sub

 

[masya]

sayın veyselemre ve sayın platipuss, teşekkürler.
sayın platipuss, sayfa2 ye aktarılan satırların arasından herhangi bir satırdaki hücre eçeriklerini silince o satırı dolu olarak görüyor. en son satırdan sonrasına devam ediyor. bu arada silinen satırları da doldurması mümkün mü. teşekkürler.

 

[Ghosst]

cevaplarınız için çok teşekkürler o kadar işime yaradiki bilmeyince olmuyormuş demekki. excel için zor diye birşey yok imkansız zaman bile almıyormuş onu anlıyorum birde daha önce bir soru daha sormuştum ama cevap alamadım arada kaynadı herhalde. şimdiden çok teşekkürler.

http://www.excel.web.tr/viewtopic.php?t=17879