Onay Kutusu ile Excel Dosyasındaki İstenilen Verileri Alma

[mustafa1205]

Örnek dosyamda da açıklama yapmaya çalıştığım excel çalışmamda var. Mesela adın karşısındaki "tık"ı işaretleyip aktar düğmesine bastığımızda "Data Sayfası"ndaki başlığı "adı"olan sütunu komple alacak ve yeni bir excel dosyası açıp ona kopyalayacak. Yani "tık"ı işaretli olanlar komple "Data Sayfası"ndan sütun olarak alınıp yeni bir excel dosyası açarak ona kopya olarak kaydedecek. Umarım anlatabilmişimdir.

 

[İhsan Tank]

merhaba
soruarım var
1. mesela iki veya 3 tane işaretlediniz o zaman nasıl olacak.
2. bu yeni açılan excel kitabı ne olacak. bir yere kayıt yapılacak ise şöyle bir şey yapsak işinizi görür mü_?. kendi içinde yeni bir sekme açıp farklı kaydet ile istediğiniz yere kayıt yapalım sonra bu iki kitap'daki iki sayfayı silerek ayarlasak daha iyi olmaz mı_?.

 

[mustafa1205]

İhsan Hocam çok teşekkürler ilginiz için. Şöyle söyleyeyim iki veya daha fazla işaretlendiğinde sadece işaretli olanları alacak. Kayıt yeri olarak masa üstüne yeni bir excel dosyası açarsa iyi olur. Kayıt ismi herhangi birşey olabilir veya kaydetme esnasında bende isim verebilirim. Eğer bu işlem zor olur diyorsanız dosyanın kendi içinde yeni bir sekmede olabilir. Ayrı dosya istememin sebebi benim asıl çalışmamda yaklaşık 100 adet sekme var. Farklı kaydetip 99 taneyi silmek çok zaman alacağı için bu şekil istemiştim. Ancak dediğim gibi sizin için nasıl uygun olacaksa sorun olmaz hocam.

 

[halit3]

Ekli dosyanızı kontrol ediniz
Seçenek nesneleri hücrelerin tam ortasında olacak aktarmayıda data sayfasından yapacaksınız.

 

[mustafa1205]

Çok teşekkürler Halit Hocam.Ancak şöyle bir sorun var birden fazla kutucuğu işaretlediğimde sadece bir tanesini aktarıyor yeni excel'e. Vede sonunda hata veriyor.

 

[halit3]

Çok teşekkürler Halit Hocam.Ancak şöyle bir sorun var birden fazla kutucuğu işaretlediğimde sadece bir tanesini aktarıyor yeni excel'e. Vede sonunda hata veriyor.

Aynı dosyadan masa üstünde olduğundan hata veriyor şimdi onuda düzelttim.

 

[mustafa1205]

Sevgili Halit Hocam ilk sorun şu ;seçili olanlardan sadece 1 tanesini alıyor yani aynı anda birden fazlasını yada hepsini almıyor; ikinci sorun ise o bir sütunu alıp yeni excel e kopyaladıktan sonra "run time errror 76" "path not found" hatası veriyor. Debug kısmına bastığımda kodda bulunan "ChDir "C:\Users\a\Desktop" yazısı sarı oluyor

 

[halit3]

Sorunuzu gözden geçirelim

Her seçilen sutünu ayrı bir dosya halindemi aktarma yapılacak yoksa kaçtane sutun seçilirse seçilsin seçilen sutünların hepsini tek bir dosyayamı aktaracak.

 

[mustafa1205]

Evet hocam kaç tane seçillirse seçilsin hepsini tek bir dosyaya atacak.Yani bu bir tanede olabilir iki tane de yada hepsi. Seçilen duruma göre seçili olanların hepsini tek bir dosyaya aktaracak

 

[halit3]

Evet hocam kaç tane seçillirse seçilsin hepsini tek bir dosyaya atacak.Yani bu bir tanede olabilir iki tane de yada hepsi. Seçilen duruma göre seçili olanların hepsini tek bir dosyaya aktaracak

Ekli dosyanızı kontrol ediniz.
Masa üstüne ornek adlı bir dosya oluşturuyor.

 

[mustafa1205]

Sevgili Halit Hocam tek kelime ile "MÜKEMMEL" olmuş.Tam istediğim gibi.Sizleride uğraştırdık.Hakkınızı helal edin.Çok teşekkürler

 

[halit3]

Sevgili Halit Hocam tek kelime ile "MÜKEMMEL" olmuş.Tam istediğim gibi.Sizleride uğraştırdık.Hakkınızı helal edin.Çok teşekkürler

İyi çalışmalar

 

[mustafa1205]

Hocam elzem değil ancak butonu ana sayfaya alma imkanımız olabilir mi ? Yani aktarma oradan yaptırılabilir mi ? Ben denedim kod çalışmadı. Makro şekli ile de olmadı

 

[halit3]

Hocam elzem değil ancak butonu ana sayfaya alma imkanımız olabilir mi ? Yani aktarma oradan yaptırılabilir mi ? Ben denedim kod çalışmadı. Makro şekli ile de olmadı

aşağıdaki bölümü

Range(Mid(sut, 2, Len(sut))).Copy

bununla değiştirin

s2.Range(Mid(sut, 2, Len(sut))).Copy

 

[halit3]

dosyayıda ekliyorum.

 

[mustafa1205]

Tekrar teşekkürler hocam ellerine sağlık. Mükemmel oldu. İyi günler diliyorum