Transfering/Duplicating Course Information to a seperate tab using VBA

ddoctor

New Member
Joined
Aug 30, 2017
Messages
27
I work in EMS and organize the training for everyone in our service. I'm working on a realistic way to track main categories and sub categories for each of our service members so that I know what they are needing to re-certify.

I have a worksheet with 3 tabs, 'Training Log', ' Course List', 'Personnel Info'. I would like to be able to enter a class once under the course list, then after a button push have that data transferred to the training log, and duplicated so that everyone on our roster has that class assigned to them.


I've began playing around with VBA code that I'm finding online, but I can't get any of it to work. I'm able to update the training log from the course list from a push button macro, but I can not get it to replicate itself in the manner I'm needing. I also tried recording and editing macros, but now I'm just getting errors forcing excel to crash when I think I'm getting close.

I can't figure out how to add files to this post, but this is the code I'm using to be able to update the training log as of right now.
HTML:
Sub TransferData()
    Dim sht1 As Worksheet
    Dim sht2 As Worksheet

    Set sht1 = ThisWorkbook.Sheets("ss2")
    Set sht2 = ThisWorkbook.Sheets("ss1")
    sht2.Range("E13:F213").Value = sht1.Range("D6:E206").Value
    sht2.Range("C13:C213").Value = sht1.Range("C6:C206").Value

End Sub
Like I said, this works but it's still far from what I need to accomplish. Also attached are two screen shots. The first being a view of the course list, the second being an example of what I would like the training log to look like after it is updated.

Thank you very much for any help. I don't exactly want someone to do it for me, at the very least I would really appreciate some advice/strategies towards figuring this out myself if need be.

Screenshot2.png


screenshot1.png
 

Excel Facts

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)
I'm thinking I can can just add new lines of code to what I already have, but what I have been trying has not been working so far.
 
Upvote 0

Forum statistics

Threads
1,224,825
Messages
6,181,190
Members
453,020
Latest member
Mohamed Magdi Tawfiq Emam

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top