Macro for name transfere

[grizzly6969]

this is my first post on this site so I hope I post it properly

I have posted this on MrExcel and recieved a macro but not working properly and no further help

I have an employee calendar and when I enter a name I would like the name to appear on another sheet in column A. I have attached a calendar for july and the macro I was sent

Sub LinkText()

Dim Dd As Date, Sname As String
Dim Lrow As Long, I As Long, Rcol As Byte, K As Byte, J As Long


J = 1

Rcol = Range("IV1").End(xlToLeft).Column

For K = 1 To Rcol

Lrow = Cells(65536, K).End(xlUp).Row
Dd = Cells(1, K)

For I = 2 To Lrow

If Len(Cells(I, K)) > 0 Then

Sname = Cells(I, K) & "-----" & CStr(Dd)
Sheet2.Range("A" & J) = Sname
J = J + 1

End If

Next I

Next K


End Sub

[pike]

dude can you please add code tags and zip the file?
the problem wont be to hard to solve

[grizzly6969]

Please Login or Register  to view this content.

[pike]

hi grizzly6969
one way is to place this code in the july worksheet module

Please Login or Register  to view this content.

[grizzly6969]

The macro works is there a way to have the date added and is there a way to have it update automatically --- I noticed if I add a name I have to go to view code and hit F5 to get new name to appear

[pike]

shouldnt if you change sheets it triggers a change sheet event and the macro
its is in the jly sheet module and events are enabled?

[grizzly6969]

were do I check to see if events are enabled

[pike]

try this one

[grizzly6969]

yep yours works great

[grizzly6969]

I deleted the code and copied it in again and it works would like it to display a date if possible ---- if not it still works good
THanks for your help

[pike]

hi grizzly6969
the dates in the shapes are apain can the link contain the date?

[grizzly6969]

not sure if I can get the date in the link but would it be any easier if in place of 1 -- I put in July 1 --- and 2 --- put in july 2 etc etc.

[pike]

no , not realy as its difficult to find the right shape

[grizzly6969]

Thank you very much for your help . This will work fine

[pike]

Ok maybe ...what you could is have the cell behind the shape equal the shapes value then
then look at cells address and if it is within an area it will equal the dates vaalue

[grizzly6969]

I will give it a try
again thank you for your time

I would tag this solved but I cant find were to change it

[pike]

I keep think and to mark the thread solved
go back to your very first post and click EDIT
then click GO ADVANCED
then scroll up to the thread title and change the PREFIX combobox to solved
then save
all done