exceldeki verilerin makro ile word 'e aktarımı

[bistroboy]

Excelde Açıklama ekleniş hücrelerin verilerini böyle madde madde worde aktarabilir miyiz acaba? rapor gibi.

Dim Hücre As Range 'bir HÜCREyi temsil etmesi için yaratılmıştır
Dim İLK As Date, SON As Date
İLK = UserForm7.Label5.Caption
SON = UserForm7.Label6.Caption
For X = İLK To SON

For Each Hücre In alt
If Hücre.Value = X Then
If Not Intersect(Hücre.SpecialCells(xlCellTypeComments), Hücre) Is Nothing Then >>>>>> AçIkLaMa varsa
Range("IE2").Value = Hücre.Value & " " & Hücre.Comment.Text
ben önce hücrelere (IE2,IE3,...) yazsın alt alta sonra toptan worde atarım diye düşündüm.ama IE2 nin döngüsünü "IE" & diye kurmak lazım altalta yazmak için.oradan da nasıl worde alacağız ("IE2:IE") alanını?
End If
End If
Next
MsgBox "verileriniz Kayıt Edildi", vbInformation, "Kayıt Edildi"

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub wordeaktar()
Dim Hücre As Range
Dim İLK As Date, SON As Date
İLK = UserForm7.Label5.Caption
SON = UserForm7.Label6.Caption
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

 

[bistroboy]

Bu Şekilde yadım.worde yazarken yavas yazıyor. şak diye karşıma cıkmadı ancak print alır gibi ağır ağır işliyor.neden acaba?

Dim Hücre As Range 'bir HÜCREyi temsil etmesi için yaratılmıştır
Dim İLK As Date, SON As Date
İLK = UserForm7.Label5.Caption
SON = UserForm7.Label6.Caption
Set word = CreateObject("Word.Application")
word.Documents.Add
word.Visible = True
For X = İLK To SON

For Each Hücre In [B6:X36].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
Next