سوال: مشکل با vba در اکسل

[abkhosravi]

من می خوام در یک فایل اکسل تعدادی از سلولهای یک سطر رو بگیرم
و برای هر سطر یک نامه چاپ بگیرم.
خروجی میتونه به چاپگر باشه یا به یک فایل word
لطفاً راهنمایی کنید.

مشکلات:
1- تغییر سطر sheetدر حلقه for
2- تنظیم متن قابل چاپ و یا ارسال به فایل word

[abkhosravi]

سلام من مشکل اولو حل کردم
کسی نیست در باره مشکل دوم راهنمایی کنه

[shamsololama]

با درود فراوان
دوست عزیز از آنجا که سئوال رو خیلی خلاصه نوشتی به همین علت جواب دادن یه کم مشکله
ولی تاجایی که من متوجه شدم اگر درست باشه لیستی دارید که محتویات هر سطر رو بطور جداگانه می خواهید در یک صفحه نمایش داده یا پرینت بگیرید.

یک راه این است که از یک یوزر فرم استفاده کنید که سر سل یا سطری که خواستید به یوزر فرم انتقال داده شود و از نمایش داده شود که در صورت نیاز از خود یوزر فرم پرینت بگیرید.

دوم : این کد از شیت یک ستون A و B را به یک فایل تکس انتقال داده و ذخیره می کند
که با اندکی تغییر برابر با خواسته خود تان آن را می توانید تنظیم کنید.

Sub totext()
On Error Resume Next
MyValue = InputBox("äÇã ÝÇíá ÑÇ ÇäÊÎÇÈ ˜äíÏ", "Iran-Eng", "Name")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(ActiveWorkbook.Path & "\" & MyValue & ".text")
N = 0
n1 = 0
For Each c In Range("A:A")
If c <> "" Then
N = N + 1
End If
Next
For i = 0 To N + n1
a.WriteLine Sheet1.Range("A1").Offset(i, 0) & "-" & Sheets("sheet1").Range("A1").Offset(i, 1)
Next i
End Sub

البته دوست عزیز نمی دانم جواب من منطبق با سئوال شما بود و آیا سئوالتان همین بود که من متوجه شدم یا نه امیدوارم بدردبخور باشه