• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro ile verilerin başka bir dosyaya kopyalanması

  • Konbuyu başlatan Konbuyu başlatan sakoz
  • Başlangıç tarihi Başlangıç tarihi
S

sakoz

Katılım
17 Nisan 2007
Mesajlar
319
Excel Vers. ve Dili
Office 2013 Türkçe
Üstadlarım selamlar,

Hepinizi çok yoruyoruz kusurumuza bakmayın lütfen ...
Şimdi ; Sorumu biraz daha değiştirerek sormak istiyorum.

Ekteki dosyada tüm sayfalarda bazı bilgiler var.
Her sayfadaki A,B,F,K sütunlarındaki verileri , yeni bir dosya açıp (kalıcı.xlsx olabilir) oradaki aynı isimli sayfalara(ornek.xlsx dosyasındaki sayfa adları ile aynı olacak) kopyalamak için bir makroya ihtiyacımız var.

Örnek dosya ;
http://www.dosya.tc/server9/pmgs4z/ornek.xlsx.html
 
Ustalar ,

Yardımcı olabilecek kimse yok mu :(
 
Dosyayı başka bir isimle kaydetseniz olmuyor mu ?

Ya da, ne yapmak istediğinizi biraz daha açık anlatın lütfen. Yani; bu kalıcı.xls dosyasına devamlı yeni ilaveler mi gelecek ?
 
Haluk' Alıntı:
Dosyayı başka bir isimle kaydetseniz olmuyor mu ?

Ya da, ne yapmak istediğinizi biraz daha açık anlatın lütfen. Yani; bu kalıcı.xls dosyasına devamlı yeni ilaveler mi gelecek ?
Genişletmek için tıkla ...

Haluk Bey Merhaba ,

Dosyayı başka bir isimle kaydetsek de olur problem değil. Bu kalıcı.xls dosyasına sürekli ilaveler yapılmayacak.

Dosyamızda her sayfadaki A,B,F,K sütunlarındaki verileri , yeni bir dosya açıp oradaki aynı isimli sayfalara(ornek.xlsx dosyasındaki sayfa adları ile aynı olacak) kopyalamak için bir makroya ihtiyacımız var.

Örneğin ; ornek.xls dosyası K1 sayfasındaki A,B,F,K sütunları yeni açılacak dosyadaki K1 sayfasında A,B,F,K sütunlarına yapıştırılacak. Sonra ornek.xls dosyasındaki K2 ve diğer tüm sayfalardaki A,B,F,K sütunlarındaki verileri yine yeni açılacak dosyada aynı isimli sayfalardaki A,B,F,K sütunlarına kopyalayacak. Diğer sütunların alınmaması lazım.

Bunun için bir makroya ihtiyacımız var. Yardımlarınızı bekliyoruz. Teşekkürler...
 
Son düzenleme:
Aslında orjinal dosyamız için şöyle bir kod var. Fakat bu sadece bir sayfa için işlem yapıyor. Bizim isteğimiz bu işlemleri tüm sayfalar için yapması. Bütün sayfalarda veriler hep aynı sütunlarda oluyor. Bunuda belirtmek isterim. 4 nolu mesajı dikkate almayınız.

Workbooks("HAM_SIRKULER_07_2017.xls").Sheets("SIRKULER_BINEK").Range("A:A").Copy _
Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx" ).Sheets("SIRKULER_BINEK").Range("A:A")

Workbooks("HAM_SIRKULER_07_2017.xls").Sheets("SIRKULER_BINEK").Range("F:F").Copy _
Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx" ).Sheets("SIRKULER_BINEK").Range("B:B")

Workbooks("HAM_SIRKULER_07_2017.xls").Sheets("SIRKULER_BINEK").Range("C:E").Copy _
Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx" ).Sheets("SIRKULER_BINEK").Range("C:E")

Workbooks("HAM_SIRKULER_07_2017.xls").Sheets("SIRKULER_BINEK").Range("W:Y").Copy _
Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx" ).Sheets("SIRKULER_BINEK").Range("P:R")

Workbooks("HAM_SIRKULER_07_2017.xls").Sheets("SIRKULER_BINEK").Range("K:K").Copy _
Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx" ).Sheets("SIRKULER_BINEK").Range("G:G")

Workbooks("HAM_SIRKULER_07_2017.xls").Sheets("SIRKULER_BINEK").Range("G:G").Copy _
Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx" ).Sheets("SIRKULER_BINEK").Range("H:H")

Workbooks("HAM_SIRKULER_07_2017.xls").Sheets("SIRKULER_BINEK").Range("L:N").Copy _
Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx" ).Sheets("SIRKULER_BINEK").Range("I:K")

Workbooks("HAM_SIRKULER_07_2017.xls").Sheets("SIRKULER_BINEK").Range("P:R").Copy _
Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx" ).Sheets("SIRKULER_BINEK").Range("L:N")

Workbooks("HAM_SIRKULER_07_2017.xls").Sheets("SIRKULER_BINEK").Range("V:V").Copy _
Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx" ).Sheets("SIRKULER_BINEK").Range("O:O")
 
Son düzenleme:
Haluk üstadım şimdi daha anlaşılır oldumu acaba ?
 
Merhaba;

Örnek dosyaları yüklemediğiniz için deneme şansım olmadı.

Siz aşağıdaki kodları denersiniz.

Selamlar,

Kod: 
Sub Test()

For i = 1 To Sheets.Count

    Workbooks("HAM_SIRKULER_07_2017.xls").Sheets(i).Range("A:A").Copy _
    Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx").Sheets(i).Range("A:A")
    
    Workbooks("HAM_SIRKULER_07_2017.xls").Sheets(i).Range("F:F").Copy _
    Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx").Sheets(i).Range("B:B")
    
    Workbooks("HAM_SIRKULER_07_2017.xls").Sheets(i).Range("C:E").Copy _
    Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx").Sheets(i).Range("C:E")
    
    Workbooks("HAM_SIRKULER_07_2017.xls").Sheets(i).Range("W:Y").Copy _
    Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx").Sheets(i).Range("P:R")
    
    Workbooks("HAM_SIRKULER_07_2017.xls").Sheets(i).Range("K:K").Copy _
    Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx").Sheets(i).Range("G:G")
    
    Workbooks("HAM_SIRKULER_07_2017.xls").Sheets(i).Range("G:G").Copy _
    Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx").Sheets(i).Range("H:H")
    
    Workbooks("HAM_SIRKULER_07_2017.xls").Sheets(i).Range("L:N").Copy _
    Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx").Sheets(i).Range("I:K")
    
    Workbooks("HAM_SIRKULER_07_2017.xls").Sheets(i).Range("P:R").Copy _
    Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx").Sheets(i).Range("L:N")
    
    Workbooks("HAM_SIRKULER_07_2017.xls").Sheets(i).Range("V:V").Copy _
    Destination:=Workbooks("DUZENLENMIS_SIRKULER.xlsx").Sheets(i).Range("O:O")

Next

End Sub
 
Bence biraz uğraşarak halledebilirsiniz.

Kolay gelsin,
 
Haluk üstadım,

İlginize teşekkür ederim. Dediğiniz gibi hallettim :keyif::mutlu:
İyiki varsınız , sağolun varolun...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst