exel hücresindeki veriyi worde yazdırma

[osm87]

Arkadaşlar merhabalar,
Exel de b1 satırındaki veriyi kendim wordü açacam oraya yazacak. Basit bir şey ama inanın istediğim kodu bulamadım.

 

[askm]

En basit yoldan Adres Mektup birleştirme ile yazabilirsiniz.

 

[osm87]

yok hocam wordü aslında örnek verdim amacım exceldeki b1 hücresindeki veriyi mesela outlookda yeni bir mail açtım oraya yazsın veya wordde bir tablo var orayı açtığımda oraya yazsın. Nereye yazdığı önemli değil geçiş hızını zaman koyarak yavaşlatabilirim önemli olan b1 hücresindeki veriyi geçiş yaptığım programa yazsın.

 

[askm]

Sub ASKM()
ThisWorkbook.Sheets("Sayfa1").Range("b1").Copy
Application.Wait (Now + TimeValue("0:00:08"))
SendKeys "^v"
'Application.CutCopyMode = False
MsgBox "Tamam"
End Sub

 

[osm87]

teşekkür ederim çalıştı elinize sağlık. Peki excelde bir tablom var b1 den başlayıp b sütunundaki son satıra kadar bakacak eğer hücre doluysa kopyalayacak sonra biraz bekleyip yapıştıracak. Yani amacım b1 hücresine baksın veri varsa kopyalasın geçiş yaptığım programa yapıştırsın sonra b2 hücresine baksın veri yoksa çalışmayı bitirsin. Veri varsa b2 hücresini kopyalayıp geçiş yaptığım programa yapıştırsın. Bu şekilde b sütunundaki dolu olan son satıra kadar işlemi devam ettirsin. Biraz karışık mı anlattım bilmiyorum ama if, else, for girince ben error verdim

 

[askm]

Merak ettim seçilen programa yapıştır mantığını. Amacınızı açık ederseniz daha pratik çözümler çıkabilir.
B2 de veri yoksa çalışmayı bitirirse alt satırlar kalır.