.NET [$ Bonus] For Each Shortcut Press Copy Column To The Right

[.NET] [$ Bonus] For Each Shortcut Press Copy Column To The Right - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] [$ Bonus] For Each Shortcut Press Copy Column To The Right (/showthread.php?tid=6192979)

[$ Bonus] For Each Shortcut Press Copy Column To The Right - QU35T - Feb 10, 2022

Okay so below you can find a screenshot and the code I have.

Basically, I have two workbooks
- What I have is workbook where I have macro with a shortcut (CTRL-SHIFT-M) this macro needs to open second workbook (data.xlsm) select and copy the first column, 01/15 (as you can see below), then I will need to do something manually with the copied content, and after I press the shortcut again, it will move onto another column -> to the right and again select and copy that column, and repeat.

[Image: gXErc8K.png]

Code 
Sub Copy_From_Another_Workbook()

'

' Copy_From_Another_Workbook Macro

'

' Keyboard Shortcut: Ctrl+Shift+M

'

    Dim radky As Range

    Set radky = Range("I04:I409")

    souborData = "C:\Users\cza19785\Desktop\Data.xlsm"

    souborReport = "C:\Users\cza19785\Desktop\konsolidovaný report_VBA.xlsm"

    Workbooks.Open (souborData)

    Set souborData = ActiveWorkbook

    radky.Select.Copy

End Sub

What I have is this, I only select the column in the second workbook.

Somebody who can help me out I'll send some $ onto your paypal, btc, shib, whatever. Thanks.

RE: [$ Bonus] For Each Shortcut Press Copy Column To The Right - HFDone - Feb 10, 2022

try Range("I04:I409" & Target.Row).Copy in Worksheet_SelectionChange

RE: [$ Bonus] For Each Shortcut Press Copy Column To The Right - QU35T - Feb 10, 2022

(Feb 10, 2022 09:31 AM)HFDone Wrote: try Range("I04:I409" & Target.Row).Copy in Worksheet_SelectionChange

This didnt work I need to copy a next column to the right everytime I press the shortcut. Thanks though.