Word tablosundan excel tablosuna veri alma

[ucan39]

hocam oluşturacağım makro word içinde olucak çalıştığında worddeki seçilen yerden cümleyi kopyalayıp exceli açıp belirtilen yere yapıştıracak ama ikinciye veya üçüncüye tıkladığımda exceldeki eski bilgilerin altına yenileri yapıştıracak eskiler istatistik için birikecek yapmaya çalıştım ama beceremedim yardımcı olursanız sevinirim yarkan rumuzlu arkadaşta aynı konudan bahsetmiş

 

[leumruk]

Merhaba,
Sn ucan39,
Ben eklediğiniz klasörde boş bir excel dosyasıyla, boş bir word dosyası görüyorum. Bu dosyalar üzerinde çalışma yapmam mümkün değil. Wordde dolduracağınız verileri, excele istediğiniz şekilde ekleyerek ne istediğinizi ayrıntılı bir şekilde açıklayın.

 

[ucan39]

Wordden excele aktarma

Sn leumruk ekledim teşekkürler

 

[leumruk]

Merhaba,
Denemeden önce klasörü rar klasöründen çıkarın.

Sub xl_aktar()
Application.ScreenUpdating = False
dosya = Dir(ThisDocument.Path & "\uc.xls*")
If dosya <> "" Then
Set xl = CreateObject("excel.Application")
xl.Visible = False
xl.Application.workbooks.Open ThisDocument.Path & "\" & dosya
Set xlf = xl.ActiveWorkbook.ActiveSheet
Sat = xlf.Cells(xlf.Rows.Count, 1).End(3).Row + 1
Set tbl = ActiveDocument.Tables(1)
tbl.Cell(1, 1).Range.Copy: xlf.Cells(Sat, 1).Select: xlf.PasteSpecial 3
tbl.Cell(5, 2).Range.Copy: xlf.Cells(Sat, 2).Select: xlf.PasteSpecial 3
tbl.Cell(3, 3).Range.Copy: xlf.Cells(Sat, 3).Select: xlf.PasteSpecial 3
tbl.Cell(2, 5).Range.Copy: xlf.Cells(Sat, 5).Select: xlf.PasteSpecial 3
xlf.Cells(Sat + 1, 1) = Now
xl.ActiveWorkbook.Close True
xl.Application.Quit
Application.ScreenUpdating = True
MsgBox "Aktarım tamamlandı.", vbInformation, "l e u m r u k"
End If
End Sub

 

[ucan39]

Sn leumruk teşekkürler

 

[leumruk]

Sn leumruk teşekkürler

Rica ederim, iyi çalışmalar...

 

[ucan39]

makrodan tarih saati çıkarmak

Sn leumruk sizi uğraştırıyorum ama bu makrodan tarih saat kısmını nasıl çıkarabiliriz

 

[ucan39]

dikkata almayın

sN LEUMRUK çOK TEŞEKKÜRLER BULDUM GEREK KALMADI