3 sütun veri aktarma

[nuclearist]

değerli arkadaşlar, forumdaki konuları dikkatle inceledim. benzer tipte bir çok konu var ama, acemiliğimden dolayı kendimeuyarlayamadım. sayfa1 deki 3sütun veriyi sayfa2 ye, sayfa3 e ve sayfa4 e aktarmak istiyorum. aslında bu işi formül çubuğu kullanarak yapabiliyorum ama sayfa1 deki verilerin satır sayısı değişebiliyor. bunun için bana bir kod tavsiye edebilirmi siniz. şimdidien teşekür ederim. iyi çalışmalar...

 

[Orion1]

Merhaba.
Aşağıdaki Kodları bir denermisiniz.?

Sub veri_tasi()
sonsat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
kopya = Range("A1:C" & sonsat).Address
Sheets("Sayfa2").Range("A1:C65536").Value = ""
Sheets("Sayfa3").Range("A1:C65536").Value = ""
Sheets("Sayfa2").Range(kopya).Value = Sheets("Sayfa1").Range(kopya).Value
Sheets("Sayfa3").Range(kopya).Value = Sheets("Sayfa1").Range(kopya).Value
End Sub

 

[nuclearist]

teşekkür

deneyeceğim. çok teşekkür ederim.

 

[nuclearist]

Sayın Sezar, verdiğiniz kod çok iyi. ancak ilk sayfaya veri (satır) ekledikçe yada sayfadan veri (satır) çıkardıkça diğer sayfaları otomatik olarak güncellemiyor. her hangi bir buton eklemeden bunun otomatik olarak yapılması mümkün mü? teşekkür ederim.

 

[Orion1]

Merhablar.
Sayfa1'in Deactivate Olayına Aaşaığıdaki kodları yazın.

Private Sub Worksheet_Deactivate()
sonsat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
kopya = Range("A1:C" & sonsat).Address
Sheets("Sayfa2").Range("A1:C65536").Clear
Sheets("Sayfa3").Range("A1:C65536").Clear
Sheets("Sayfa2").Range(kopya).Value = Sheets("Sayfa1").Range(kopya).Value
Sheets("Sayfa3").Range(kopya).Value = Sheets("Sayfa1").Range(kopya).Value
End Sub

 

[nuclearist]

Sayın Sezar tam olarak istediğim buydu. size çok teşekkür ederim.

 

[Orion1]

Rica ederim.
İyi çalışmalar.