excelden worde metin ve tablo aktarma

[Emre Çinkılınç]

rica ederim.

sıkıntı yok. fakat ne yapmışım, nasıl yapmışım zaman geçince unutuyor insan. o sebeple biraz takılayım istedim

Compile error:
User-defined type not defined

hatası veriyor. Tamam'a tıkladığımda Sub Aktif_Olan_Excel_Sayfasini_Word_Dokumani_Yap() kısmı sarıya boyayıp gösteriyor. Sorun tam olarak nedir yardım edebilir misiniz?

 

[Emre Çinkılınç]

Compile error:
User-defined type not defined

hatası veriyor. Tamam'a tıkladığımda Sub Aktif_Olan_Excel_Sayfasini_Word_Dokumani_Yap() kısmı sarıya boyayıp gösteriyor. Sorun tam olarak nedir yardım edebilir misiniz?

Cevap verebilecek var mı acaba?

 

[cnyttn]

şöyle bir şey olabilir.
kopyalanacak sayfanın kopyası üzerinden işlem yapılıp sonra bu kopya silinmektedir.
sayfada A stunundaki hücre 0 ise (boş veya değeri 0) satırı gizlenmekte, kalan her şey word'e kopyalanmaktadır.

Sub Excel_den_Word_e()
'VBE'de tools-references'dan Microsoft Word 14.0 Object Library işaretlenmelidir.
   
    Dim appWord As Word.Application
    
    Worksheets("deneme1").Copy After:=Worksheets(Worksheets.Count)
    With ActiveSheet
        sonsat = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
        For i = sonsat To 1 Step -1
            Rows(i).Hidden = .Cells(i, 1) = 0
        Next i
        .UsedRange.Copy
    End With
   
    Set appWord = New Word.Application
    appWord.Visible = True
    appWord.Documents.Add.Content.Paste
   
    With Application
        .DisplayAlerts = False
        ActiveSheet.Delete
        .DisplayAlerts = True
    End With
   
    Worksheets("deneme1").Activate
   
End Sub

Aradığım kodu uzun süre buldum ama ek olarak bir şey rica edeceğim, 1) yazı boyutu 12 2) Times New Roman 3) iki yana yaslı(bu olmasada olur)
Şimdiden teşekkür ederim.

 

[cnyttn]

excelden worde hem paragraf hemde tablo aktarmak istiyorum yukarıdaki yazdıklarınızdan biri oluyor ama bütün veriyi tablo olarak algılıyor tabloyu düzeltmek zor oluyor, size sormadan her yerde aradım (yabancı forumlar dahil) bu kopyalama olayını hücre belirterek yapmamızın imkanı var mı? toplamda 30 satırlık bir yazım var 3 bölümden oluşuyor 2. bölümde tablo var. Ya hepsini paragraf olarak alan var ya da sizin örneğinizdeki gibi tablo olarak alan işimi görüyor ama paragraf ve tablo olan hücreleri belirtsek ona göre alabilir mi? yapılma imkanı var mı çok uğraştım yapamadım. Şimdiden teşekkür ederim.

bütün sayfaları word yapmak arzusunda değilim. sadece istediğim sayfalar word olsun derseniz aşağıdaki kod da bunun için.

word'e aktarmak istediğiniz sayfayı seçerek kodu çalıştıracaksınız.

Sub Aktif_Olan_Excel_Sayfasini_Word_Dokumani_Yap()
   
    Dim appWord As Word.Application
    Dim docWord As Word.Document
    Dim fPath As String, fName As String
    Dim j As Long, calc As Long, LastRow As Long
   
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        calc = .Calculation
        .Calculation = xlCalculationManual
    End With
   
    fPath = ThisWorkbook.Path & "\"
   
    With ActiveSheet
        fName = .Name
        LastRow = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
        For j = LastRow To 1 Step -1
            .Rows(j).Hidden = .Cells(j, 1) = 0
        Next j
        .UsedRange.Copy
    End With
    Set appWord = New Word.Application
    With appWord
        .Visible = True
        Set docWord = .Documents.Add
        With docWord
            .Content.Paste
            .SaveAs fPath & fName & ".docx", FileFormat:=wdFormatDocumentDefault
            .Close
        End With
        .Quit
    End With
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
    With ActiveSheet
        LastRow = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
        For j = LastRow To 1 Step -1
            If .Rows(j).Hidden = True Then .Rows(j).Hidden = False
        Next j
    End With
   
    With Application
        .Calculation = calc
        .CutCopyMode = False
    End With

End Sub

 

[Haluk]

Ne karma karışık bir konu ..... Kim ne sormuş, kim ne cevap vermiş, kim kime yardım edecek belli değil.

Yani..... hadi bilmeyen birisi soru sormaya çalışıyor diyecem de, insan biraz düşünür.... sorusunu farklı bir konu başlığı açıp da sorar....


.

 

[Ömer BARAN]

@Haluk Bey'in mesajını okuyunca; merak ettim ve konu sayfasındaki tüm mesajları okudum,
dönüp tekrar okudum ve tekrar. Anlayana aşk olsun.

Gece gece gülmemi sağladınız @Haluk Bey, iyiki varsınız.

Forum kuralları bakımından sıkıntılı ise bu ve devamındaki satırların, forum yöneticilerince silinmesini rica ediyorum.
Aklıma C.Yılmaz'ın filmindeki -- Erşan KUNERİ -- telefonla konuşma sahnesi geldi "ahçı-bahçıvan-şoför-uşak" hikayesi.
.

 

[cnyttn]

Kusuruma bakmayın aradığım konu tam bu olduğu için buraya yazmak istedim, yeniden aynı olayla ilgili konu oluşturmak gereksiz bilgi olacaktı tekrar kusura bakmayın.