Sayfalar arası veri aktarmak

[trtunc]

Sayın üstadlarım,
benim sorunum konusunda yardımlarınızı esirgemezseniz çok memnun olurum.
Sorunum şöyleki;
sayfa1 A5,B7,C17,D8 vb. gibi hücrelere yazılan veriyi sayfa2 deki A2,B2,C2;D2 vb. hücrelere aktarıp, tekrar sayfa1 deki veri yazılan hücrelerin (A5,B7,C17,D8 vb.)içeriğini silmeyi istiyorum. Bu içeriği silinmiş hücrelere tekrar veri yazıp aktar dediğimde sayfa2 deki A3,B3,C3,D3 vb. hücrelere alt alta yazmasını istiyorum. birde A1 hücresine her kayıt sonrası otomatik sıra numarası verilmesini istiyorum. Çok şeymi istiyorum bilmiyorum, ama yardımcı olacağınızı umuyorum.
ayrıca dosyanın içinde de bi açıklama mevcut saygılarımla.

 

[trtunc]

yokmu yardım edecek kimse arkadaşlar

 

[trtunc]

98 kişi bakmış bir kişi bile müspet veya menfi bir cevap yazmamış.

 

[trtunc]

bakan kişi sayısı 127 ye ulaşmış hala bi cevap yazan yok hayırlısı bakalım

 

[Murat OSMA]

Sitede bu tarz örnek ve çözümler o kadar çok var ki. Sitede yahut google da ufak bir arama yapsanız ihtiyaciniz olan kodlara ulaşabilirdiniz.

Bu arada bakan kişi sayısı önemli değil, zaten o bakan kişi sayisi değil, sayfanın ziyaret sayisidir. Google ya da başka arama motorlarından yapılan aramalarda bu konuya ulasildiysa sayfayi ziyaret etmişlerdir her ziyarette de +1 artmıştır. Kimi rastgele bakmistir, kimi merakindan, kimi cevap verebilirim belki çözerim diyerek bakmistir o kadar çok ihtimal var ki. O sayıya aldirmayin siz.

Şimdi şu kodlari bir deneyiniz;

Sub aktar()
range("a5").copy sheets("sayfa2").range("a65536").end(3)(2,1)
range("b7").copy sheets("sayfa2").range("b65536").end(3)(2,1)
range("c17").copy sheets("sayfa2").range("c65536").end(3)(2,1)
range("d8").copy sheets("sayfa2").range("d65536").end(3)(2,1)
Range("A5,B7,C17,D8").clearcontents
End sub

 

[trtunc]

murat bey ilginiz için çok teşekkür ederim. çok işime yaradı.

 

[Murat OSMA]

Rica ederim, iyi günler.