ikinci sayfayı nasıl kaydederim

[afetidelala]

merhaba arkadaşlar
ufak bi sorum olacak aşağıdaki kodla bi excel çalışma kitabından bi word belgesine veri aktarıyorum ama sadece bir sayfa aktara biliyorum 2-3-4 hatta 5. sayfaları nasıl aktarabilirim acaba bu kullandığım dosyayı ve kodu ekliyorum beni bu 4 butonu kullanmaktan kurtarabilecek bi arkadaşım varmı acaba.

şimdiden tşk ler.

Private Sub CommandButton2_Click()

Set s1 = Sheets("ALA-DİK KAYIT")
Set s2 = Sheets("ALA-DİK KAYIT")
yol = ThisWorkbook.Path & "\dosyalar\"
Application.ScreenUpdating = False
Set wd = CreateObject("Word.Application")
Set wddoc = wd.Documents.Add(DocumentType:=0)
wd.Visible = False
For x = 1 To s1.Cells(Rows.Count, 1).End(3).Row
If s1.Cells(x, 1) <> "" Then
s2.[k4] = s1.Cells(x, 1)
s2.Range("B1:H21").CopyPicture
wd.ActiveDocument.Bookmarks("\page").Range.Delete
wd.Selection.Paste
wddoc.SaveAs yol & s2.[G35].Text & "" & ".doc"
End If
Next
wd.Visible = True
wddoc.Application.Quit
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "DOSYALARIMA KAYDEDİLDİ...", vbInformation, "CELL-O"



End Sub

 

[Emir Hüseyin Çoban]

. . .

Örnek dosyanızı exceli görebileceğimiz şekilde düzenleyip, tekrar ekleyin.

. . .

 

[afetidelala]

excel dosyası gizli idi belki o sebepten görememişsinizdir.

excel dosyası gizli idi belki o sebepten görememişsinizdir. tekrardan ekliyorum.

 

[afetidelala]

şu forumda doğru düzgün bi cevap alamadım ya sorularıma yanarımda ona yanarım...

 

[Emir Hüseyin Çoban]

şu forumda doğru düzgün bi cevap alamadım ya sorularıma yanarımda ona yanarım...

. . .

Sn. Afetidelala

Ben sorunuzla ilgili yaşadıklarımı size anlatayım.

İlk mesajımı yazdığım gün dosyanızı evdeki bilgisayarıma indirdim.
Office 2010 yüklü. Örnek dosyanızdaki gereksiz saat uygulamasından dolayı hata verdi.
Dosyanızı çalıştıramadım.
Portable Office 2003 ile denedim, belki açar diye yine olmadı.

TeamViewer programıyla işyerideki bilgisayarıma bağlandım. Dosyanızı indirdim.
Office 2007 kurulu, başarılı bir şekilde dosyanızı açtım.
Ancak bu seferde açılışta Userform açıldı. Exceli görmemeli engelliyor.

Ben bu kadar uğraş verdim, yeterli dedim. Sizede düzeltmeniz için bilgi mesajı yazdım.

Bence soru sormak, örnek dosya hazırlamak, sorunuzu anlatmak hiçte kolay değil. Birde o soruyu anlamak hiç kolay değil.

İyi günler.

. . .