Kodla aynı sayfaya veri girişi

[byfika]

Merhabalar, aynı sayfanın satır 9 a bazı hücrelere girilen verinin, satır 13 itibaren aynı satıra ve tekrar satır9 kadar yazılan verilerin satır 13 ten itibaren alt alta yazan kod nasıl olabilir. BİLGİLERİNİZ İÇİN TEŞEKKÜRLER

 

[askm]

Sub ASKM()
Dim Son As Long
Application.ScreenUpdating = False
Son = Range("B" & Rows.Count).End(xlUp).Row + 1
Cells(Son, 2) = Cells(3, 3)
Cells(Son, 3) = Cells(4, 3)
Cells(Son, 4) = Cells(5, 3)
Cells(Son, 5) = Cells(6, 3)
Cells(Son, 6) = Cells(7, 3)
Cells(Son, 7) = Cells(8, 3)
Cells(Son, 8) = Cells(9, 3)

Cells(Son, 11) = Cells(3, 6)
Cells(Son, 12) = Cells(3, 7)
Application.ScreenUpdating = True
MsgBox "Kayıt işlemi başarılı...", vbInformation, "ASKM"

End Sub

 

[Ömer BARAN]

Merhaba.

Alternatif.
.

Sub KAYIT()
Set s = Sheets("Sayfa1"): sonsat = 12
For sut = 2 To 12
    If s.Cells(Rows.Count, sut).End(3).Row > sonsat Then sonsat = s.Cells(Rows.Count, sut).End(3).Row
Next
s.Cells(sonsat + 1, 2) = [C3]: s.Cells(sonsat + 1, 3) = [C4]
s.Cells(sonsat + 1, 4) = [C5]: s.Cells(sonsat + 1, 5) = [C6]
s.Cells(sonsat + 1, 6) = [C7]: s.Cells(sonsat + 1, 7) = [C8]
s.Cells(sonsat + 1, 8) = [C9]
s.Cells(sonsat + 1, 11) = [F3]: s.Cells(sonsat + 1, 12) = [F4]

[C3:C9].ClearContents: [F3:F4].ClearContents
MsgBox "Veriler kaydedildi..."
End Sub

 

[byfika]

Bilgileriniz için Çok Teşekkürler , ASKM ve Ömer bey kodlar çalışıyor.

 

[byfika]

Örnek dosyaya göre " Cells(Son, 12) = Cells(3, 7) " deki 7 değeri 6 olacak
" Cells(Son, 12) = Cells(3, 7) " deki 3 değeri 4 olacak,

Doğru şekli: " Cells(Son, 12) = Cells(3, 6) "
" Cells(Son, 12) = Cells(4, 6) "