ilk boş satır

[rainmaker29]

Sub BBBBB()
Dim cevap As Integer
cevap = MsgBox("Aktarmak İstiyormusunuz", vbYesNo, "Çıkış")
If cevap = vbYes Then
Dim i As Integer
For i = 1 To 67
If Cells(i, 1) = Sheets("Sayfa2").Cells(1, 3) Then
Range("B3").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next i
Else
Cancel = True
End If
End Sub


Sayfa 1 dekini kopyala sayfa2 deki ilk boş satıra yaz nasıl diyebilirim arkadaşlar.

 

[Ayhan Ercan]

Merhaba sn rainmaker29

Deneme fırsatım olmadı ama aşağıdaki kırmızı olarak belirtilen yerleri kodlarına ilave ederek denermisiniz..?

Sub BBBBB()
[B][COLOR=red]son = Sheets("Sayfa2").Range("d65536").End(3).Row + 1
[/COLOR][/B]Dim cevap As Integer
cevap = MsgBox("Aktarmak İstiyormusunuz", vbYesNo, "Çıkış")
If cevap = vbYes Then
Dim i As Integer
For i = 1 To 67
If Cells(i, 1) = Sheets("Sayfa2").Cells(1, 3) Then
Range("B3").Select
Selection.Copy
Sheets("Sayfa2").Select
[B][COLOR=red]Range("D" & son).Select[/COLOR][/B]
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next i
Else
Cancel = True
End If
End Sub

 

[rainmaker29]

teşekkürler sn Ayhan Ercan, ekledim oldu.

ben daha yeni yeni öğreniyorum makroları .Dün bi mesaj attım ama cevap alamadım kimseden göndersem yardımcı olma imkanınız olurmu acaba.

 

[Ayhan Ercan]

teşekkürler sn Ayhan Ercan, ekledim oldu.

Rica ederim.
İyi Çalışmalar.. k::

ben daha yeni yeni öğreniyorum makroları .Dün bi mesaj attım ama cevap alamadım kimseden göndersem yardımcı olma imkanınız olurmu acaba.

Sorunuz anlaşılmadığından kaynaklanıyor olabilir. Sorunuzu anlaşılır biçimde sormayı deneyiniz..

 

[rainmaker29]

ekli dosyaya ne yapmak istediğimi yazdım. yardımcı olabilirseniz yada diğer arkadaşlar yardımcı olabilirse sevinirim.

 

[rainmaker29]

yardımcı olabilicek varmı acaba?

 

[Ayhan Ercan]

Merhaba,

Aşağıdaki kodları Sayfadaki düğmeye atayarak denermisiniz..

Sub aktar()
Dim son As Long, i As Integer
son = Sayfa2.[c65536].End(3).Row + 1
    For i = 3 To 67
    Sayfa2.Cells(son, i) = Sayfa1.Cells(i, 2)
    Next
End Sub

 

[rainmaker29]

Sn Ayhan ercan
teşekkür ederim ellerinize sağlık

 

[Ayhan Ercan]

Sn Ayhan ercan
teşekkür ederim ellerinize sağlık

Rica ederim.
İyi Çalışmalar.. k::