View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
konpego konpego is offline
external usenet poster
 
Posts: 7
Default Copy-Paste between sheets in dif WB's

Hello,

I seem to miss some vital info in how to copy-paste
a selection between one WS in a WB to the WS name in another
WB. I wan to do this in VB and I tried to record a macro
and translate it into my VB-code.
This is what I have done:

Application.ScreenUpdating = False

' Set copy range for WS in secondary WB
mySel = gci_FirstRow_Data & ":" & nLastRowNo
Rows(mySel).Select
' Copy source range
Selection.Copy

' Activate primary WB where the
' selection will be pasted
Windows(sPrimaryPAP).Activate
' Activate and unprotect right worksheet
' where the selection will be pasted
Worksheets(sPrimConfigWSName).Activate
ActiveSheet.Unprotect
' ----- Set paste range in primary WB
mySel = gci_FirstRow_Data & ":" & nLastRowNo
Rows(mySel).Select
' ----- Paste source range
Selection.Insert Shift:=xlDown

' Protect Sheet...
ActiveSheet.Protect

' ... and activate secondary WB
Windows(sSecondWBName).Activate
Worksheets(sSecConfigWSName).Activate

Application.ScreenUpdating = True

Can anybody help me with this. It seems that the range to
be copied are not collected from the other WB.

Thanks in advance!

/konpego