Kitap1.xls'nin kopyalanması

Z

zırzır

Katılım
8 Temmuz 2006
Mesajlar
322
Arkadaşlar,bir çalışma kitabımın içinde 3 adet sayfa var,1'nolu sayfaya bir buton koyup, bu buton yardımı ıle üç sayfayı'da başka bir çalışma kitabına kopyalayabilirmiyim
 
K

kombo

Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Ne keseceğinize bağlı!!!
 
V

Valuer

Katılım
19 Mart 2006
Mesajlar
205
Excel Vers. ve Dili
Excel 2007 Türkçe
Kendinize uyarlayın. Denemedim çalışması gerekir.

Kod: 
Sub Makro1()
    Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Select
    Sheets("Sayfa3").Activate
    Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Copy Before:=Workbooks( _
        "Kitap787.xlsx").Sheets(4)
End Sub
 
Z

zırzır

Katılım
8 Temmuz 2006
Mesajlar
322
Sayın Valuer,ilk önce gösterdiğiniz ilgiye teşekkür ederim.Kodu kullandım ancak kırmızı ile renklendirdiğim bölüm hata verdi.
 
V

Valuer

Katılım
19 Mart 2006
Mesajlar
205
Excel Vers. ve Dili
Excel 2007 Türkçe
Kod: 
Sub Makro2()
Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Select
Sheets("Sayfa3").Activate
Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Copy Before:=Workbooks _
("Kitap1.xls").Sheets(4)
End Sub
Benim ofis 2007 ye alışamamdan kaynaklanıyor. Ama sende kodları hiç kendine uyarlamamışsın.
 
Z

zırzır

Katılım
8 Temmuz 2006
Mesajlar
322
Sayın Valuer,Kodu kendime uyarladım sayfaların yerine bendeki sayfa adlarını yazarak denedim sonra bu hatayı verdi.Sayın Valuer,biraz önce bir kod buldum denedim çalışma kitabını komple aktardı ancak oda küçük bir uyarı verdi fakat bu uyarı kopyalamayı bozmadı.Bu kodu size yollayayım,hatayı düzeltebilirseniz bunu kullanayım.
 
K

kombo

Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Sayın zırzır
Dosyayı inceleyin. Makro kaydet yöntemi ile yapılmıştır.
Her iki dosyayı Masaüstüne kopyalayın. Makronun çalışması için her iki dosyanında açık olması gerekmektedir.
 
Z

zırzır

Katılım
8 Temmuz 2006
Mesajlar
322
Sayın kombo,verdiğin dosyayı denedim biraz karışık geldi.Hazırladığım programı kullanacak olan kişiler bilgisayar kullanmayı bilmediklerinden,programın kopyala özelliği çok basit olmalı.Sayın Valuer'e verdiğim kodu inceleyip hata giderilebilirse
bu kodu kullanmak istiyorum.Saygılar
 
K

kombo

Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Kod: 
Sub Makro2()
  [COLOR=darkred] Sheets("Sayfa1").Select[/COLOR]
[COLOR=darkred]Cells.Cut[/COLOR]
[COLOR=darkred] Windows("arşiv.xls").Activate[/COLOR]
[COLOR=darkred]Sheets("Sayfa1").Select[/COLOR]
[COLOR=darkred]Cells.Select[/COLOR]
[COLOR=darkred]ActiveSheet.Paste[/COLOR]
[COLOR=blue][COLOR=navy]Windows("kayıt.xls").Activate[/COLOR]
[COLOR=navy]Sheets("Sayfa2").Select[/COLOR]
[COLOR=navy]Cells.Cut[/COLOR]
[COLOR=navy]Windows("arşiv.xls").Activate[/COLOR]
[COLOR=navy]Sheets("Sayfa2").Select[/COLOR]
[COLOR=navy]Cells.Select[/COLOR]
[COLOR=navy]ActiveSheet.Paste[/COLOR]
[/COLOR][COLOR=darkgreen]Windows("kayıt.xls").Activate[/COLOR]
[COLOR=darkgreen]Sheets("Sayfa3").Select[/COLOR]
[COLOR=darkgreen]Cells.Cut[/COLOR]
[COLOR=darkgreen]Windows("arşiv.xls").Activate[/COLOR]
[COLOR=darkgreen]Sheets("Sayfa3").Select[/COLOR]
[COLOR=darkgreen]Cells.Select[/COLOR]
[COLOR=darkgreen]ActiveSheet.Paste[/COLOR]
End Sub

Kod: 
Sub Makro2()
[LEFT]Sheets([COLOR=red]Array[/COLOR]("[COLOR=darkred]Sayfa1[/COLOR]", "[COLOR=navy]Sayfa2[/COLOR]", "[COLOR=darkgreen]Sayfa3[/COLOR]")).Select
Sheets("Sayfa3").Activate
Sheets([COLOR=blue]Array[/COLOR]("[COLOR=darkred]Sayfa1[/COLOR]", "[COLOR=navy]Sayfa2[/COLOR]", "[COLOR=darkgreen]Sayfa3[/COLOR]")).Copy Before:=Workbooks _
("Kitap1.xls").Sheets(4)
End Sub[/LEFT]
Karışık olacak bir şey yok. Sayın valuer 3 sayfayı birden seçmiş, ben tek tek yapmaya çalıştım. Sayın valuer'in kodlarının çalışmamasının sebebi de bu herhalde. 3 sayfayı seçiyorsunuz ama yeni bir kitaba yapıştırma işleminde hata veriyor. Kodları sizin gibi bende çalıştıramadım.​



bu buton yardımı ıle üç sayfayı'da başka bir çalışma kitabına kopyalayabilirmiyim​
Genişletmek için tıkla ...
Demişsiniz. Başka bir çalışma kitabı mevcut mu yoksa yeni mi oluşacak?​
 
V

Valuer

Katılım
19 Mart 2006
Mesajlar
205
Excel Vers. ve Dili
Excel 2007 Türkçe
zırzır' Alıntı:
programı kullanacak olan kişiler bilgisayar kullanmayı bilmediklerinden,programın kopyala özelliği çok basit olmalı.Sayın Valuer'e verdiğim kodu inceleyip hata giderilebilirse
bu kodu kullanmak istiyorum.Saygılar
Genişletmek için tıkla ...
Verdiğin kodlar çalışıyor, resmi inceleyin. (Senden istenen isimli resim)

Benimkilerde çalışıyor, buton ekleyince niye hata verdi anlayamadım. Birileri ilgilenirde yaparsa bende öğrenirim.
 
K

kombo

Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Sizin verdiğiniz kodlar da her iki kitap açıkken çalışıyor. Ama Depo kitabı kapalıyken hata veriyor. Sıkıntı burdan kaynaklanıyor.
O şekilde denememiştim. Özür :(
 
Z

zırzır

Katılım
8 Temmuz 2006
Mesajlar
322
Sayın Kombo,verdiğiniz kodları bir sayfaya uyguladım.Çalışıyor ancak verilerin alındığı sayfayı tertemiz yapıyor.Verilerin olduğu sayfa silinmemeli ve başka bir çalışma kitabına kopyalanmalı.Saygılar
 
K

kombo

Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Sheets("Sayfa1").Select
Cells.Cut
 Windows("arşiv.xls").Activate
Sheets("Sayfa1").Select
Cells.Select
ActiveSheet.Paste


Cut olan yerleri Copy yapın.
 
Z

zırzır

Katılım
8 Temmuz 2006
Mesajlar
322
Sayın kombo,şimdi istediğim sayfaları istediğim yere buton yardımı ile koplaya biliyorum.Teşekkür ederim.Size bir şey daha sormak istiyorum,bir çalışma sayfasındaki verileri , yeri "D:/Yedek/01.06.2007.xls " olan, çalışma kitabıma makro ile kopyalayabilirmiyim.Saygılar.
 
K

kombo

Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Kodlar şöyle
Kod: 
Sub Makro1()
   'Application.DisplayAlerts = False
   [A6:F6].Copy
   Workbooks.Open Filename:="D:\Yedek\01.06.2006.xls"
   sat = Sheets("Sayfa1").[b65536].End(xlUp).Row + 1
   Sheets("Sayfa1").Select
   Range("B" & sat).PasteSpecial
   [A1].Select
 
   Windows("Deneme.xls").Activate
   Sheets("A").Select
   [A7:F7].Copy
   Windows("01.06.2006.xls").Activate
   sat = Sheets("Sayfa2").[b65536].End(xlUp).Row + 1
   Sheets("Sayfa2").Select
   Range("B" & sat).PasteSpecial
   [A1].Select
   ActiveWorkbook.Save
   ActiveWorkbook.Close
  'Application.DisplayAlerts = True
End Sub
[COLOR=green]'1.Ekran ikazlarını kapat (iptal edildi)[/COLOR]
[COLOR=green]'2.kopyalanacak alan seçimi[/COLOR]
[COLOR=green]'3.D altında Yedek Klasöründeki 01.06.2006 kitabını aç[/COLOR]
[COLOR=green]'4.Sayfa1 B sütununda son dolu satırın bir altını seç[/COLOR]
[COLOR=green]'5.Sayfa1 seç[/COLOR]
[COLOR=green]'6.B sütununda ilk boş satıra yapıştır.[/COLOR]
[COLOR=green]'7.A1 hücresini seç[/COLOR]
[COLOR=green]'8.Deneme kitabını aktif et[/COLOR]
[COLOR=green]'9.A sayfasını aç[/COLOR]
[COLOR=green]'10.kopyalanacak alan seçimi[/COLOR]
[COLOR=green]'11.01.06.2006.xls kitabını aktif et[/COLOR]
[COLOR=green]'12.Sayfa2 B sütununda son dolu satırın bir altını seç[/COLOR]
[COLOR=green]'13.Sayfa1 seç[/COLOR]
[COLOR=green]'14.B sütununda ilk boş satıra yapıştır.[/COLOR]
[COLOR=green]'15.A1 hücresini seç[/COLOR]
[COLOR=green]'16.aktif kitabı (01.06.2006) kaydet[/COLOR]
[COLOR=green]'17.aktif kitabı (01.06.2006) kapat[/COLOR]
[COLOR=green]'18.Ekran uyarılarını aç. (İptal edildi)[/COLOR]
Ekte gönderdiğim YEDEK klasörünü D altına kopyalayın. Deneme Sayfasından çalışın.
Ustalar daha kısa yoldan halldebilirler ama mevcut makro bilgimle ,ancak bu kadar yapabilldim.
 
Son düzenleme:
Z

zırzır

Katılım
8 Temmuz 2006
Mesajlar
322
Sayın kombo şu anda kodları deneyemiyorum ancak ilgine teşekkür ederim.İyi akşamlar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst