Bir sayfadaki verileri diğer sayfaya alt alta yazmak

[buranil80]

Ekteki excel dosyasında bir sayfada bir hücreye veri girip ilgili makro sayfa butonuna bastığımda o verinin ilgili sayfaya yazılmasını istiyorum.Her yeni girdiğim veri de diğerinin altına yazılmalı. İsteğim excel sayfasında da yazılı. Yardımcı olabilecek biri varsa çok sevinirim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar411()
Dim son As Integer
Set s411 = Sheets("411")
son = s411.Cells(65536, "a").End(xlUp).Row + 1
s411.Cells(son, "a") = [a2]
s411.Cells(son, "b") = [b2]
End Sub

Sub aktar412()
Dim son As Integer
Set s412 = Sheets("412")
son = s412.Cells(65536, "a").End(xlUp).Row + 1
s412.Cells(son, "a") = [a2]
s412.Cells(son, "b") = [b2]
End Sub

 

[buranil80]

Hızlı cevap için çok teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Birşey değil.