Makro ile sayfa1 de ki verileri 2ye aktarma

[excelience]

SELAMIN ALEYKUM ABİLER ARKADASLAR YOUTUBE DE SU VİDEOYU İZLEDİM GUZEL BİR CALISMA YALNIZ VİDEO HD OLMADIGI İCİN KODLARI BİR TURLU OKUYUP YAZAMADIM BU VİDEO DA Kİ ARKADASIMIZ SAYFA1DE Kİ VERİLERİ
SAYFA2 YE AKTARIYOR AMA AKTARDIGI VERİLER Bİ ALT SATIRA INIYOR BANA BU KODLARI VEREBİLECEK AYNI CALISMAYI YAPIP YOLLAYACAK BİRİ VARSA MİNNETTAR OLURUM . ŞİMDİDEN EMEKLERİNİZ İCİN VAKİT AYIRDIGINIZ İCİN COOK TESEKKUR EDERİM .
https://www.youtube.com/watch?v=rzw6qeCmpnM
:yardim:
https://www.youtube.com/watch?v=rzw6qeCmpnM

 

[Mustafa MUTLU]

Sen ne istiyorsun.
Aynısını mı ?

Sub Aktar()
Mutlu = Sheets("Sayfa2").Range("B65536").End(3).Row + 1
Sheets("Sayfa2").Cells(Mutlu, "B") = [Sayfa1!D5]
Sheets("Sayfa2").Cells(Mutlu, "C") = [Sayfa1!D6]
Sheets("Sayfa2").Cells(Mutlu, "D") = [Sayfa1!D7]
Sheets("Sayfa2").Cells(Mutlu, "E") = [Sayfa1!D8]
End Sub

Sayfa1 D5,D6,D7,D8 E YAZDIĞIN VERİLERİ SAYFA2 YE B SÜTUNUNDA SON BOŞ HÜCREYE DENK GELECEK ŞEKİLDE ALT ALTA KAYDEDER.

 

[excelience]

Sen ne istiyorsun.
Aynısını mı ?

Evet mustafa abi

 

[Mustafa MUTLU]

Sub Aktar()
Mutlu = Sheets("Sayfa2").Range("B65536").End(3).Row + 1
Sheets("Sayfa2").Cells(Mutlu, "B") = [Sayfa1!D5]
Sheets("Sayfa2").Cells(Mutlu, "C") = [Sayfa1!D6]
Sheets("Sayfa2").Cells(Mutlu, "D") = [Sayfa1!D7]
Sheets("Sayfa2").Cells(Mutlu, "E") = [Sayfa1!D8]
End Sub

Bu kod işini görür Dikkat etmen gereken B sütunu onuda şu şekilde çözebilirsin

Mutlu = Sheets("Sayfa2").Range("A65536").End(3).Row + 1
Sheets("Sayfa2").Cells(Mutlu, "A") = Mutlu - 1
Sheets("Sayfa2").Cells(Mutlu, "B") = [Sayfa1!D5]
Sheets("Sayfa2").Cells(Mutlu, "C") = [Sayfa1!D6]
Sheets("Sayfa2").Cells(Mutlu, "D") = [Sayfa1!D7]
Sheets("Sayfa2").Cells(Mutlu, "E") = [Sayfa1!D8]

Böylece A sütununada kayıt no vermiş olursun.

 

[excelience]

Tesekkurler hocam

 

[Mustafa MUTLU]

Tesekkurler hocam

Rica ederim.
İhtiyacınızı gördü ise ne güzel..