belirli hücrelerdeki verileri başka bir satıra almak

[tugay70]

ekte gönderdiğim dosyada butonu tıklayınca, F1 deki veriyi B2 ye,g1 deki veriyi c2 ye,h1 deki veriyi d1 e kaydetmek istiyorum ve her tıklamada kaydedilen veriyi en üst satıra kaydetmesini istiyorum(önceden kaydedilen verileri silmeden aşağı kaydıracak) ben örnekte bi şeyler yapmaya çalıştım sizin işinizi kolaylaştırmak için.. şimdiden teşekkurler...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:6ef8df48e6]Sub Makro1()
[b2:d2].Insert
For a = 1 To 3
Cells(2, a + 1) = Cells(1, a + 5).Value
Next
End Sub
[/vb:1:6ef8df48e6]

 

[tugay70]

Evet bu sitede gönderilen mesajlara cevap yazan arkadaşlar ve özellikle site yöneticileri birer "DAHİ" dir duradan ilan ediyorum. Siz gibi nasıl olunur... TEÞEKKURLER.......

 

[tugay70]

Peki tekrar rahatsız ediyorum ama bu yaptığımız macroyu iki sayfa arasında nasıl kullanırız...

 

[Levent Menteşoğlu]

hücre veya aralık tanımlamalarının başına sayfa adını yazmanız yeterlidir. Ã?rneğin sheets("sayfa2").[b2:d2].insert veya sheets("sayfa2").cells(1,a+5) gibi

 

[Levent Menteşoğlu]

Bilgileri ikinci sayfaya kaydetmek için aşağıdaki şekilde deneyin.

[vb:1:8019ad99a4]Sub Makro1()
sheets("sayfa2").[b2:d2].Insert
For a = 1 To 3
sheets("sayfa2").Cells(2, a + 1) = Cells(1, a + 5).Value
Next
End Sub
[/vb:1:8019ad99a4]

 

[tugay70]

ÇOK TEÞEKKUR EDERİM...

 

[tugay70]

sayfayı koruyunca macro çalışmıyor sebebi ne olabilir

 

[Levent Menteşoğlu]

Korumalı sayfa kayda izin vermediğinden hata verecektir. Bu durumda aşağıdaki kodu deneyin. Sayfa koruma şifresi "123" kabul edilmiştir.

[vb:1:4e349f5eca]Sub Makro1()
Sheets("sayfa2").Unprotect "123"
sheets("sayfa2").[b2:d2].Insert
For a = 1 To 3
sheets("sayfa2").Cells(2, a + 1) = Cells(1, a + 5).Value
Next
Sheets("sayfa2").Protect "123"
End Sub
[/vb:1:4e349f5eca]

 

[tugay70]

teşekkür ederim