- Katılım
- 28 Haziran 2007
- Mesajlar
- 168
- Excel Vers. ve Dili
- OFFİCE 2016 (Türkçe)
Sub wordeaktar()
Set word = CreateObject("Word.Application")
word.Documents.Add
word.Visible = True
[DOSYA_HESAP_TABLOSU!A1:G30].Copy
word.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
End Sub
şeklinde bir makrom var...
Bu makro ile EXCELL sayfasını DİKEY ÇALIŞMA SAYFASI olarak WORDE aktarıyorum...
Ancak benim yapmak istediğim EXCELL sayfasını YATAY ÇALIŞMA SAYFASI olarak worde aktarmak...
Yardımlarınızı bekliyorum....
Set word = CreateObject("Word.Application")
word.Documents.Add
word.Visible = True
[DOSYA_HESAP_TABLOSU!A1:G30].Copy
word.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
End Sub
şeklinde bir makrom var...
Bu makro ile EXCELL sayfasını DİKEY ÇALIŞMA SAYFASI olarak WORDE aktarıyorum...
Ancak benim yapmak istediğim EXCELL sayfasını YATAY ÇALIŞMA SAYFASI olarak worde aktarmak...
Yardımlarınızı bekliyorum....