Belirli sütunları Başka çalışma kitabına kopyalama

[ozhanturk]

Merhaba Arkadaşlar...
İki çalışma kitabım var....Biri sipariş toplam eksikleri...Diğeride Üretim Planlama...
Sipariş toplam eksiklerinde üretim planlama, tedarik gibi sayfalar var...
Diğer çalışma kitabında ise sadece üretim planlama sayfasındaki C sütunundan K sütununa kadar olan verilerin görünmesini istiyorum...
Amacım Görecek kişilerin diğer dataları görmemesi...
Ve üretim planlama kitabını her açtıklarında, Sipariş toplam eksiklerinden dataları otomatik alabilmeleri...
Şimdiden ilginize ve yardımınız için teşekkür ederim...İyi Çalışmalar...

 

[bykursat]

örnek sayfalar arası sütun kopyalama ve yapıştırma

Sub makro()
Range("a:a").Copy
Workbooks("diger.xls").Worksheets("Sayfa1").Activate
Range("a1").Select
Selection.PasteSpecial
Application.CutCopyMode = False
End Sub

 

[ozhanturk]

Kürşat Bey Çok teşekkür ederim Cevabınız için...
Kopyalama işlemi tamam yapıyor ama diğer excel kitabına yapıştırma işlemini otomatik yapmıyor...O Konudada yardım edebilirseniz sevinirim...

 

[bykursat]

Kürşat Bey Çok teşekkür ederim Cevabınız için...
Kopyalama işlemi tamam yapıyor ama diğer excel kitabına yapıştırma işlemini otomatik yapmıyor...O Konudada yardım edebilirseniz sevinirim...

buradaki kodda diğer excel sayfasını otomatik açtırdım
Workbooks("diger.xls").Worksheets("Sayfa1").Activate
sizin yapmanız gereken
eğer diğer excel sayfası kapalıysa
bu kodla açtırabilirsiniz
Workbooks("diger.xls").open
yolunu belirterekde açtırabilirsiniz
Workbooks("c:\diger.xls").open
sonra istediğiniz sayfayı aktivate edip
kopyaladığınız sütunu yapıştırmak istediğiniz
sutunun ilk hücresini seçtirip
Range("a1").Select
yapıştırmayı sonlandırabilirsiniz
Selection.PasteSpecial
Application.CutCopyMode = False

kodun son hali

Sub makro()
Range("a:a").Copy
Workbooks("c:\diger.xls").open 'eğer excel sayfasıysa açtırıyoruz açıksa iptal edin
Workbooks("diger.xls").Worksheets("Sayfa1").Activate
Range("a1").Select
Selection.PasteSpecial
Application.CutCopyMode = False
End Sub

 

[ozhanturk]

Çok Teşekkür ederim kürşat bey...
İlginiz ve yardımlarınız için çok teşekkür ederim...