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

Katılım
2 Haziran 2006
Mesajlar
6
Excel Vers. ve Dili
excel 2003
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[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]
 
Katılım
29 Mayıs 2006
Mesajlar
39
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
 
Katılım
2 Mayıs 2006
Mesajlar
41
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.
 
Katılım
2 Haziran 2006
Mesajlar
6
Excel Vers. ve Dili
excel 2003
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
 
Üst