Veri Aktarma

[hacettepeligenc]

Sayfa1 ile sayfa 2deki bilgilerin hepsini bir tuşla sayfa3e alt alta aktarmak istiyorum ve tuşlara bastıktan sonra sayfa1 ve sayfa2deki verilerin silinmesini istiyorum.

 

[Murat OSMA]

Sayfa1 ile sayfa 2deki bilgilerin hepsini bir tuşla sayfa3e alt alta aktarmak istiyorum ve tuşlara bastıktan sonra sayfa1 ve sayfa2deki verilerin silinmesini istiyorum.

Hangi bilgiler bunlar ?

 

[hacettepeligenc]

a1den an30a kadarki bütün bilgiler..

 

[Murat OSMA]

Sayfa2'de mi AN30'a kadar ?

 

[hacettepeligenc]

sayfa1 an30 sayfa2 an55

 

[Murat OSMA]

Sayfa2'de AS55'e kadar aldırdım.


Şu kodları kullanabilirsiniz;

Sub Taşı()
    Sayfa1.Range("A1:AN30").Cut Sayfa3.Range("A1")
    Sayfa2.Range("A1:AS55").Cut Sayfa3.Range("A65536").End(3)(2, 1)
End Sub