Çözüldü kopyalama

[mustafa070707]

makro ile sutun atlayarak kopyala yapistir yapmak istiyorum yardim ederseniz sevinirim orgegin sayfa1 de abc ve k sutunu kopyalayip sayfa2 de abcd sutunlarina yapistirmak istiyorum bu daha fala sutunda olabilir.

 

[Alpi]

Merhaba.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[SNNAY]

makro ile sutun atlayarak kopyala yapistir yapmak istiyorum yardim ederseniz sevinirim orgegin sayfa1 de abc ve k sutunu kopyalayip sayfa2 de abcd sutunlarina yapistirmak istiyorum bu daha fala sutunda olabilir.

Deneyiniz;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[mustafa070707]

Dim Sutunlar As String Dim Bak As Integer Dim Stn As String '------------------------------------------------------------ 'Burada kopyalamak istediğiniz sütunları belirtiniz. Sutunlar = "A,B,C,K,R" '------------------------------------------------------------ For Bak = 0 To UBound(Split(Sutunlar, ",")) If Stn = "" Then Stn = Split(Sutunlar, ",")(Bak) & ":" & Split(Sutunlar, ",")(Bak) Else Stn = Stn & ", " & Split(Sutunlar, ",")(Bak) & ":" & Split(Sutunlar, ",")(Bak) End If Next Worksheets("Sayfa2").Range(Stn).Copy Worksheets("Sayfa1").Range("A1")

Worksheets("Sayfa2").Range(Stn).Copy Worksheets("Sayfa1").Range("A1")
bu kısımda hata aldım

 

[mustafa070707]

Deneyiniz;

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

hocam elle gırıs yapmak ıstamıyorum

 

[Alpi]

Worksheets("Sayfa2").Range(Stn).Copy Worksheets("Sayfa1").Range("A1")
bu kısımda hata aldım

Dosyanızda Sayfa1 ve Sayfa2 adında iki sayfa olmalı.
Veriler Sayfa2'den Sayfa1'e kopyalanmakta.
Örnek dosya ekte.

 

[SNNAY]

Kopyalanacak sütunlar her zaman aynı kalacaksa sorun değil, ama değişik sütunlar kopyalanacak ise kodu değiştirmeniz gerekeceği için sonuçta yine elle giriş yapmanız gerekecek. Ayrıca kopyalanan veriler Sayfa2 d ki veriler temizlenip yeni veriler mi eklenecek ,yoksa var olan verilerin altına devam mı edilecek? A,B,C,R,K Şeklinde giriş yapmalısınız sütunlar arasına virgül işareti (,)koyarak yazmalısınız.

 

[mustafa070707]

halettım hocam elınıze saglık