Need a macro that well copy paste mutiple input cells across everal different worksheets

[brockmane]

Hello,

I pray that everyone is having a great holiday! Much needed for me, but still working! smile! anyway, I need some assistance -- I need to find a way to consoldated the attached Macro. I have one workbook with several worksheets, the problem I am having is that the data in sheet1 -- has to populate the rest of the worksheets in difference cell locations. I wanted to try vLookup and hLookup, I just don't have the time to learn it. i.e.

Made up example -- see attachment!

Sheet1
A3 = username
C4 = Job Role
etc...
I need to copy & paste A3 to Sheet2:B5; Sheet3:A9; Sheet4:E17 etc.. and C4 across Sheet5:C7; Sheet 14:A8 etc... Can anyone assist me with this.

[HaHoBe]

Hi, brockmane,

nice idea to copy the code into a worksheet and color the code. IŽd preferred to have a sample of how the workbook looks like.

Instead of Copy&Paste like you use it by now you could try to simplify the code to something like

With Sheets("Sheet1 ")
  With .Range("A3")
    Sheets("Sheet2").Range("B5").Value = .Value
    Sheets("Sheet3").Range("B2").Value = .Value
    Sheets("Sheet4").Range("B2").Value = .Value
  End With
  With .Range("B3")
    Sheets("Sheet3").Range("B3").Value = .Value
    Sheets("Sheet4").Range("B3").Value = .Value
  End With
  With .Range("D3")
    Sheets("Sheet3").Range("B4").Value = .Value
    Sheets("Sheet4").Range("B4").Value = .Value
  End With
  '... More to copy
End With

which will leave you on the active sheet and avoid all the selecting, switching and copying (code produced by macro recorder).

Alternatives might be a loop or arrays for the columns to which to copy.

Ciao,
Holger

[brockmane]

Hey Ciao,

Thanks so much -- I really do appreciate your support! this means a great deal to me. I plan to post some of my code as I finished different modules. I have seveal more questions that I can use help wtih regarding consolidating some of these coded modules!

Eric B.

[HaHoBe]

Hi, Eric,

youŽre welcome. And good luck for your project.

Ciao,
Holger