cell in sht2 = cell in sheet 1

[brh01]

I,m trtying to make cell "L1" of sheet1, copy to cell "N1" on sheet 2, using this info

Sub test()
Set srcSht = Sheets("Sheet1&quot
Set tgtSht = Sheets("Sheet2&quot
'will copy A1 to A1
tgtSht.[n1] = srcSht.[l1]
End Sub

but it,s not working. Can anyone tell me what I'm doing wrong

Brian

 

[TonyJollans]

Hi brh01,

It should work. Where is it, and how are you running it? Do you get an error message, or does it simply not work? If the latter, are you sure it's running?

Enjoy,
Tony

------------------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading FAQ222-2244 before you ask a question.

 

[SkipVought]

brh01,

Your code works perfectly. Are you sure that macros are enabled with Tools/Macros/Security?

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[SkipVought]

BTW,

Your code does NOT assign A1 to A1. Rather L1 to N1 on sheets 1 and 2 respectively.

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[brh01]

Hi all and thanks. the problem is it only works when I maually run the macro. how and where would I include code to automate this?

Brian

 

[SkipVought]

What event do you want to trigger this code?

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[brh01]

The info that's in the cell comes from a calendar control.when the date loads in the cell, I'd like it to trigger the code

Brian

 

[SkipVought]

You can use the Worksheet_Change event to fire the code. Right click the sheet tab to activate the VB Code window for that sheet object. Select the drop-down in the upper left to select Worksheet and select Change in the drop=down in the upper right.



Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[brh01]

but what do i write to fire it? I,m not very good at this



Brian

 

[SkipVought]

Private Sub Worksheet_Change(ByVal Target As Range)
   test
End Sub

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884