makro ile sayfa1 de girilen değerlerin sayfa2 ye listelenmesi

[velostar]

Saygılarımla,

ekli dosyanın birinci sayfasında b sütununa girdiğim verilerle b7 veya b8 hücresinde tab tuşuna basarak word belgesi ile tebligat zarfı yazdırıyorum. sormak istediğim b7 veya b8 hücrelerinden birinde tab tuşuna bastığımda sayfa1 b3 hücresinde bulunan veriyi sayfa2 b sütununun en son boş hücresine ve sayfa1 b6 hücresindeki veriyi sayfa2 c sütununun en son boş hücresine aktarmak mümkün müdür?

 

[veyselemre]

Ac makrosunu da normal modüle koyun, yanlış anlamadıysam aşağıdaki gibi deneyin.

Sub auto_open() 'Enter tuşu ile makroyu ilişkilendirdik
Application.OnKey ("{TAB}"), "ENTER"
End Sub
Sub ENTER()
If Intersect(ActiveCell, [B7:B8]) Is Nothing Then Exit Sub
Call ac
End Sub
Sub ac()
With Sheets("Sayfa2").[a65536].End(3).Offset(1)
    .Value = .Offset(-1) + 1
    .Offset(, 1) = Sheets("Sayfa1").[B3]
    .Offset(, 2) = Sheets("Sayfa1").[B6]
End With
Shell "WINWORD.EXE " & "C:\tebligat\25.doc", vbNormalFocus
End Sub

 

[velostar]

yanlış ne demek, tam süper olmuş, ellerinize emeğinize sağlık.