Sayfadaki muhtelif hücrelerdeki verileri diğer sayfanın son satırına aktarma

[Galus]

Sayfa1 deki B3 ,B5, B6, I1, I2, G25 hücrelerindeki verileri Sayfa2 deki son satırına aktarabilir miyiz?

Saygılarımla..

 

[Galus]

Özür dilerim, örneği ekliyorum.

 

[Orion1]

Sayfa2'de A sütununa aktarma yapıyor.

Sub aktar()
Sheets("Sayfa1").Select
sat = Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row + 1
With Sheets("Sayfa2")
    .Cells(sat, "A").Value = Range("B3").Value
    .Cells(sat + 1, "A").Value = Range("B5").Value
    .Cells(sat + 2, "A").Value = Range("B6").Value
    .Cells(sat + 3, "A").Value = Range("G25").Value
    .Cells(sat + 4, "A").Value = Range("I1").Value
    .Cells(sat + 5, "A").Value = Range("I2").Value
End With
MsgBox "Veriler Sayfa2'de A sütununa Akatarıldı..!!", vbOKOnly + vbinf
End Sub

 

[Galus]

Hocam Allah(CC) sizden razı olsun. Yalnız aktarma A sütununa alt alta yapıyor.
B3=>Sayfa2 A hücresine ,
B5=>Sayfa2 B hücresine ,
B6=>Sayfa2 C hücresine ,
I1=>Sayfa2 D hücresine ,
I2=>Sayfa2 E hücresine ,
G25=>Sayfa2 F hücresine sayfa2 de son satırına tek satır olarak aktarılmasını rica etmiştim

Saygılarımla..

 

[Orion1]

Hocam Allah(CC) sizden razı olsun. Yalnız aktarma A sütununa alt alta yapıyor.
B3=>Sayfa2 A hücresine ,
B5=>Sayfa2 B hücresine ,
B6=>Sayfa2 C hücresine ,
I1=>Sayfa2 D hücresine ,
I2=>Sayfa2 E hücresine ,
G25=>Sayfa2 F hücresine sayfa2 de son satırına tek satır olarak aktarılmasını rica etmiştim

Saygılarımla..

Örnek dosyayı eklemediğiniz için ben tahmini cevap vermiştim.
Şimdi ekli dosyayı inceleyiniz.

Sub aktar()
Sheets("Sayfa1").Select
sat = Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row + 1
With Sheets("Sayfa2")
    .Cells(sat, "A").Value = Range("B3").Value
    .Cells(sat, "B").Value = Range("B5").Value
    .Cells(sat, "C").Value = Range("B6").Value
    .Cells(sat, "D").Value = Range("J1").Value
    .Cells(sat, "E").Value = Range("J2").Value
    .Cells(sat, "F").Value = Range("G25").Value
End With
MsgBox "Veriler Sayfa2'de A sütununa Akatarıldı..!!", vbOKOnly + vbinf
End Sub

 

[Galus]

Hocam,

Süper !...
Söylenecek şey yok. İşlem de süper, siz de süpersiniz. Cenab-ı Allah insanlara faydalı olanların ecrini arttırsın.

Saygılar.. hürmetler...

 

[Orion1]

Hocam,

Süper !...
Söylenecek şey yok. İşlem de süper, siz de süpersiniz. Cenab-ı Allah insanlara faydalı olanların ecrini arttırsın.

Saygılar.. hürmetler...

Rica ederim.
Sizde süpersiniz.

 

[Galus]

Hocam nerde..

Sabahtan beri uğraşıyorum. Becermedim. 1.1 , 2.2 , 3.3 falan.. tık yok. Siz ise nasıl makro verileri otomatik getiriyor; aynen öyle kodları jet gibi yazıyorsunuz.

Saygılarımla..