Alt satıra geçme kodu

[musti13]

Merhaba arkadaşlar;

Makro hakkında yok denecek kadar az bilgim var.

forumda birçok konuyu okudum, bir çok kodu denedim.
Çok basit belki fakat bir türlü beceremedim.

Yapmak istediğim şudur;
Bir sayfada bazı hücrelere yazdıklarımı koyduğum bir butona basarak diğer sayfadaki listeye işlemek.

Butonu ekledim. Makro kaydet diyerek bir sayfadan diğerine kayıt makrosu oluşturdum.Buton ile çalıştırdım.
Fakat butona basınca hep aynı satıra kayıt ediyor.
Hangi kodu denediysem bir türlü alt satıra geçiremedim.

Yardımlarınızı rica ederim.
Şimdiden çok teşekkür ederim.


Yapabildiğim:

Sub Makro2()
'
' Makro2 Makro
'

'
Sheets("Sayfa2").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = "=Sayfa3!R[2]C[1]"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=Sayfa3!R[2]C[3]"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=Sayfa3!R[5]C"
Range("D5").Select
Sheets("Sayfa2").Select
Range("E4").Select
ActiveCell.FormulaR1C1 = "=Sayfa3!R[4]C[-1]"
Range("B4").Select
ActiveCell.FormulaR1C1 = "=Sayfa3!R[2]C[1]"
Range("B5").Select
End Sub

 

[Muzaffer Ali]

Merhaba.
Eğer doğru anladıysam. Aşağıdaki kodu deneyin.

Sub Test()
    Dim Say As Long
    Dim Syf2 As Worksheet
    Dim Syf3 As Worksheet
    Set Syf2 = Worksheets("Sayfa2")
    Set Syf3 = Worksheets("Sayfa3")
    Say = Syf2.Cells(Rows.Count, "B").End(3).Row + 1
    Syf3.Range("C6:F6").Copy Syf2.Range("B" & Say)
End Sub

Eğer bu kodlar işinizi görmediyse yanlış anladım demektir.
Tam olarak ne yapmak istediğinizi yazarsanız ve örnek bir dosya eklerseniz daha iyi olur.

 

[musti13]

Merhaba.
Eğer doğru anladıysam. Aşağıdaki kodu deneyin.

Sub Test()
    Dim Say As Long
    Dim Syf2 As Worksheet
    Dim Syf3 As Worksheet
    Set Syf2 = Worksheets("Sayfa2")
    Set Syf3 = Worksheets("Sayfa3")
    Say = Syf2.Cells(Rows.Count, "B").End(3).Row + 1
    Syf3.Range("C6:F6").Copy Syf2.Range("B" & Say)
End Sub

Eğer bu kodlar işinizi görmediyse yanlış anladım demektir.
Tam olarak ne yapmak istediğinizi yazarsanız ve örnek bir dosya eklerseniz daha iyi olur.

Çok çok teşekkür ederim. Sağolun

Kodlarınız üzerinde oynayarak tam isteğim şekle çevirdim.

Sub Test()
    Dim Say As Long
    Dim Syf2 As Worksheet
    Dim Syf3 As Worksheet
    Set Syf2 = Worksheets("Sayfa2")
    Set Syf3 = Worksheets("Sayfa3")
    Say = Syf2.Cells(Rows.Count, "B").End(3).Row + 1
    Say2 = Syf2.Cells(Rows.Count, "D").End(3).Row + 1
    Say3 = Syf2.Cells(Rows.Count, "E").End(3).Row + 1
    Say4 = Syf2.Cells(Rows.Count, "C").End(3).Row + 1
    Syf3.Range("C6:D6").Copy Syf2.Range("B" & Say)
    Syf3.Range("F6:F6").Copy Syf2.Range("C" & Say4)
    Syf3.Range("D8:D8").Copy Syf2.Range("D" & Say2)
    Syf3.Range("D9:D9").Copy Syf2.Range("E" & Say3)

End Sub