Exelden Word'a Aktarma

[pLaToniC]

Arkadaşlar Merhaba ben exelde olan yazıları worda aktarmak istiyorum fakat topluca kopyaladığım zaman tablo halinde alıyor tek tek kopyalamakta uzun sürer baya var çünkü ben exeldekileri alıp wordde alt alta değilde yan yana getircem bunun bir yolu varmıdır acaba yardımcı olursanız çok sevinirim kolay gelsin.

 

[ECYavuz]

Selamlar,

Aşağıdaki şekilde deneyin.

Sub wordeaktar()
Dim Hücre As Range
Dim İLK As Date, SON As Date
İLK = ilksatır
SON = SonSatır
Set word = CreateObject("Word.Application")
word.Documents.Add
word.Visible = True
For X = İLK To SON
For Each Hücre In [a:a].SpecialCells(xlCellTypeComments)
If Hücre.Value = X Then
word.Selection.TypeText Text:=Hücre.Value & " " & Hücre.Comment.Text
word.Selection.TypeParagraph
End If
Next
MsgBox "verileriniz Kayıt Edildi", vbInformation, "Kayıt Edildi"
End Sub

 

[pLaToniC]

ECYavuz Kardeş çok teşekkür ederim ama yeminle bundan bişey anlamadım pek kullanmadığım için exeli terimleri bilmiyorum yinede teşekkürler zahmet etmişsin kolay gelsin.

 

[pimet]

Ekli dosyayı görüntüle 41523

Ekli dosyayı görüntüle 41524

bu makro çalışmıyor!!!!!!
bana acil exeldeki bazı verilerin wordde belli yerlere aktarılması ve baskı ön izleme şeklinde görüntülenmesi için makro lazım şimdiden yardımcı olan arkadaşlara çokk çokk teşekkürler