Veri dosyasındaki bilgileri İcmal dosyasına aktarma

[Mdemir63]

Arkadaşlar Günaydınlar,

Benim iki adek dosyam var VERİ dosyasındaki bazı sütunları İCMAL dosyamdaki ilgili sütunlara aktarmak istiyorumama sütun olarak değil tabiki o sütunlardaki bilgileri bir buton yardımıyla aktarmak istiyorum. Daha sonra bu veri dosyama tekrar baştan itibaren girişler yaptığımda icmal dosyasında en son boş satırdan itibaren ekleyerek devam etmesini istiyorum. Bunun için ne yapmalıyım.

Saygılar

 

[Mdemir63]

Selamlar,

Bu konu hakkında hiçbir fikri olan arkadaşımız yok mu?

Saygılar

 

[Mdemir63]

Selamlar,

Sub Makro1()
[A1:E1].Copy Destination:=[sayfa2!A6500].End(3).Offset(1)
MsgBox "Veriler Aktarılmıştır", vbInformation
End Sub

Arkadaşlar yukarıdaki makro ile A1 ile E1 arasındaki bilgileri Sayfa2 ye aktarıyor ancak ben A sütunu ile E sütunu arasındaki olan tüm bilgileri Sayfa2 ye aktarmak istiyorum bu kodlarda veya sizin önereceğiniz hangi kodlarla yapabilirim.

Saygılar

 

[Mdemir63]

Arkadaşlar veri aktarma diye arattırdım ne kadar bulduysam hepsine tek tek baktım ama benim istediğim gibi yok ne yapmalıyım. Bu konuda yardım ederseniz çok memnun olurum.

Saygılar sunarım

 

[geren36]

şöyle deneyin;

Sub Makro1()
Range("A1:E65536").Copy Destination:=[sayfa2!A6500].End(3).Offset(1)
MsgBox "Veriler Aktarılmıştır", vbInformation
End Sub

 

[Mdemir63]

şöyle deneyin;

Sub Makro1()
Range("A1:E65536").Copy Destination:=[sayfa2!A6500].End(3).Offset(1)
MsgBox "Veriler Aktarılmıştır", vbInformation
End Sub

Sn: geren36
İlginize teşekkürler ancak şöyle birşey yapabilirmiyiz? İstediğimiz sütunlardaki bilgileri (örneğin: A,D, E sütunlarındaki bilgileri Sayfa 2 deki A,B,C sütunlarına gelecek şekilde aktarma yapmak istersek kodlardaki ("A1:E65536") yerine nasıl bir şey yazmak gerekir.Çünkü ben Aktarılacak sayfadaki A,B,C,D,E sütunlarından sadece A,D,ve E sütunlarındaki bilgileri aktarmak istiyorum.

Saygılar

 

[veyselemre]

a, d ve e sütunlarındaki verileri sayfa1 de a1 sütunundan itibaren kopyalar.

Sub Makro1()
        Intersect(Range("a1", [e65536].End(3)), Range("a:a,d:e")).Copy Sheets("sayfa1").[a1]
End Sub

 

[Mdemir63]

a, d ve e sütunlarındaki verileri sayfa1 de a1 sütunundan itibaren kopyalar.

Sub Makro1()
        Intersect(Range("a1", [e65536].End(3)), Range("a:a,d:e")).Copy Sheets("sayfa1").[a1]
End Sub

Hocam teşekkür ederim ancak tekrar aktar dediğimde aktarılan kısmın altından devam etmiyor

Saygılar

 

[veyselemre]

Intersect(Range("a3", [e65536].End(3)), Range("a:a,d:e")).Copy Sheets("sayfa1").[a65536].End(3).Offset(1)

 

[Mdemir63]

Intersect(Range("a3", [e65536].End(3)), Range("a:a,d:e")).Copy Sheets("sayfa1").[a65536].End(3).Offset(1)

Hocam çok teşekkür ederim. Elinize sağlık istediğim bu son bir şey sormak istiyorum.
İki ayrı dosyada bu kodları nasıl kullanabilirim. Ben aslında sorumun başlığından da anlaşılacağı üzere ;
Örneğin Kitap 1 dosyasından , Kitap 2 dosyasındaki bir sayfaya aynı bu verdiğiniz kod yöntemiyle (Bu şekildeki aktarma) nasıl uygulamam gerekir.Eğer bu konuda bir çözüm olursa benim için çok daha iyi olacaktır. Zaten en başta gönderdiğim dosyalarda da asıl bundan bahsetmiştim.

Saygılarımı sunarım.


Not: Formumuzda benim sorumla ilgili arama yaptırdım 2 sayfa kapalı dosyadan veri alma ,aktarma veya dosyadan dosyaya veri aktarımı gibi birçok başlık var ama hiçbiri anlaşılır gibi değildi çok inceledim ama bir türlü başarılı olamadım.

 

[Mdemir63]

İyi Geceler
Özellikle Yönetici arkadaşlara bir şeyler söylemek istiyorum. Tabiki bizim formumuz çok düzeyli bunda hepimiz hemfikir durumdayız . Artı bu formun bir paylaşım formu olduğunu ve hiçbir menfaat gözetilmediğini de biliyorum. Yalnız sorulan sorulara cevap veren arkadaşlarımızın verdiği cevapları öğretici olması sebebiyle daha açıklayıcı bilgilerle vermesi gerektiğini de doğrusunu söylemek gerekirse düşünüyorum. Tabiki kimse mecbur değil ancak adı üstünde burası bir bilgileri paylaşım formu, bilen arkadaşların bilgilerini bilmeyen arkadaşlarla paylaşması gerektiğine inanıyorum . Bu foruma üye olduğumda da söylemiştim yine tekrar ediyorum gerçekten de süper bir paylaşım formu ve iyiki de üye olmuşum çok da seviyorum formumuzu. Bu serzenişimden hiçbir yönetici veya üye arkadaşlarımız başka anlamlar çıkarmasınlar amacım sadece daha da iyisi olabilir anlamındadır. Verilen cevapların daha bilgilendirici olabileceğinden hiçbir şüphem yoktur. Eğer yanlış anlaşılırsam şimdiden bütün forumdan özür dilerim.
Tüm herkese Saygılar sunar iyi geceler dilerim.

 

[Mdemir63]

Selamlar

Arkadaşlar Dosyadaki bir sayfadan başka bir dosyadaki sayfaya veri aktarma konusunda elinde örnek olan varsa bir zahmet istiyorum.
Şimdiden teşekkürler

Saygılar

 

[master913]

Delİ Oldum UĞĞraŞamaktan Yardim Edermİsİnİz Bana

Ben Çalişmakta Olduğum Dosyadan Diğer Kapali Dosyalara Verilerin İşlenmesini İstiyorum Ama Bir Türlü Yapamadim Bu Konuda Yardim Edermisiniz ???????????????

 

[akdeniz33]

herkese iyi akşamlar,

bende aynı konuyu araştırıyordum, ama bi şey bulamadım,