Excel'den Visual Basic ile Word e veri aktarma

[EzgiGlı]

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]

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.

 

[EzgiGlı]

----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]

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.

 

[EzgiGlı]

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]

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?

 

[EzgiGlı]

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]

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

 

[EzgiGlı]

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]

WordDosya.Tables(1).Delete
satırından önce,
On Error Resume Next yazın.

 

[EzgiGlı]

Her şey için teşekkürler.

 

[turist]

Her şey için teşekkürler.

Sağ olun.

 

[EzgiGlı]

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]

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.

 

[EzgiGlı]

Çok teşekkür ederim

 

[turist]

Çok teşekkür ederim

Sağ olun, iyi çalışmalar.