Excel'den Visual Basic ile Word e veri aktarma

Katılım
24 Ekim 2018
Mesajlar
8
Excel Vers. ve Dili
2007
Merhaba
Excel'deki verilerin bazılarını filtreleyerek word dosyasına belirli olan bir yere aktarmak ve güncel olmasını istiyorum. Bunu Visual Basic ile yapmamı söylediler. Visual Basic hakkında pek birşey bilmediğim için yapamadım yardımcı olurmusunuz?
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sayın @EzgiGlı
Forumumuza hoş geldiniz.
Forum sayfasının en üstte sağ köşede bulunan "Ara" kısmında, "Excelden Worde" şeklinde arama yaparsanız, birçok örnek bulabilirsiniz.
İnceleyin, istediğinize uygun bir çözüm sağlayamazsanız, foruma tekrar bilgi veriniz.
İyi çalışmalar.
 
Katılım
24 Ekim 2018
Mesajlar
8
Excel Vers. ve Dili
2007
----Word dosyasına resimlendirilmiş hali
https://drive.google.com/open?id=162gwqgoOu0YOVl-psBGhi6KopJkuPU4Xsh0F2CahmBo

----Excel'deki verileri Visual Basic kodu ile Word dosyasına aktarma
https://drive.google.com/open?id=1E3lqg6GWC8ZEJ5RoNHq_ThwD136pIs17

----Excel'deki filtrelenmiş verileri Visual Basic kodu ile Word dosyasına aktarma (filtrelerken yanlış filtreliyor ama yine de filtreliyor çalışıyor)
https://drive.google.com/open?id=1fw0unLm-LbtXlCW8ooilQxy1UTpWvYPd

Benim istediğim ise
Excel'deki filtrelenmiş verileri VBA kodu ile Word'daki tablonun içine aktarma

Lütfen yardımcı olmaya çalışın teşekkürler
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Eklediğiniz Word Dosyasında bir TABLO bulunmuyor.
Ne yapmak istediğinizi yazarak , resimlerle değil de , dosyalarınızda gösterirseniz, emin olun daha kolay cevap alacaksınız.
 
Katılım
24 Ekim 2018
Mesajlar
8
Excel Vers. ve Dili
2007
Eklediğiniz Word Dosyasında bir TABLO bulunmuyor.
Ne yapmak istediğinizi yazarak , resimlerle değil de , dosyalarınızda gösterirseniz, emin olun daha kolay cevap alacaksınız.
Word dosyasında tablo olmadığı için gözükmüyordur. Tablo olan VBA kodunu sizden istiyorum. Ben sadece aktarma ve filtreleyip aktarma yapabildim. Sizden istediğim yardım ayrı bir şey. Sizden istediğim verileri tablonun içine aktarabilecek bir kod.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Olmayan Tablo'ya kod tasarlaması istemek mümkün, ama bunu anlayabilmek bence zor.
Lütfen, "TABLO" demekle ne anlatmak istediğinizi belirtiniz.
4X4 mü, 4X bilinmeyen kadar satır mı, sütun ve satır sayıları sabit mi, başlıklarının ne olduğu , Filtrelenen bilgilerin sağ, sol, orta, alt vb. hangi konumda olacağı, satır halinde mi, sütunlarda mı.... gibi NET açıklama yapabilir misiniz?
 
Katılım
24 Ekim 2018
Mesajlar
8
Excel Vers. ve Dili
2007
Excel'de olan 5x5 tablosundaki verileri filtreleyip 3x3'e düşürüp Word dosyasına da 3x3'lük bir tablonun içine ekleme.
Başlıklar her hangi bir şey olabilir fark etmez mesela ad, soyad, tc, telno, dtarihi adlı başlıklar
anlatmak istediğim şey işe alınacak kişiler ve kriterler var(doğum tarihi gibi mesela 18 yaş altı alınamaz) filtreliyorum 18 yaş altını eliyorum geriye kalan kişileri Word dosyasındaki tabloya ekliyorum.
aslında kalan kişi sayısı kadar Word'e tablo açmasını ve yerleştirmesini hedefliyorum ama ilk olarak tablonun içine verileri nasıl atacağımı öğrenmem gerek.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sayın @EzgiGlı ,
Excel Dosyanızın Link'i aşağıdadır.Lütfen Dosyadaki açıklamaları dikkatle okuyunuz.
İyi çalışmalar...
Dosyanızın Linki
 
Katılım
24 Ekim 2018
Mesajlar
8
Excel Vers. ve Dili
2007
Teşekkürler her şey için ama bir sorun var galiba Word'e aktar butonuna tıklayınca ekrana "koleksiyonun istenen üyesi mevcut değil" diye bir uyarı yolluyor. Kod kısmında da üzeri sarı bir şekilde bu kod " WordDosya.Tables(1).Delete" çizili ne yapacağımı bilmiyorum.
Kusura bakmayın çok uğraştırıyorum ama daha yeni Visual Basic diye bir şey olduğunu öğrendim. O yüzden bu kodlar hakkında pek bilgili değilim.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
WordDosya.Tables(1).Delete
satırından önce,
On Error Resume Next yazın.
 
Katılım
24 Ekim 2018
Mesajlar
8
Excel Vers. ve Dili
2007
Merhaba yine ben :) Verdiğiniz kod çok güzel bir şekilde çalışıyor ama aktarırken ad, soyad, tc ve tel kısmını da aktarıyor orayı aktarmamasını nasıl sağlayabiliriz?
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Excel Dosyanızdaki ;
Private Sub CommandButton1_Click()
başlıklı Kod kısmında yer alan
Set ExcelTablom = ThisWorkbook.Worksheets(Sheet1.Name).ListObjects("Table1").Range
Satırını silerek, onun yerine ;
Set ExcelTablom = ThisWorkbook.Worksheets(Sheet1.Name).Range("A2: D" & Cells(Rows.Count, 1).End(xlUp).Row)
yazın.
Yeni satırdaki A2: D kısmını "Word" e aktarmak istediğiniz başlıklara göre değiştirebilirsiniz.
 
Son düzenleme:
Üst