Data transfer from online excel to offline excel only specfic columns

[KAMRAN AJ]

Hi,everyone hope you are doing great
I want to transfer specific column data from my online excel to offline excel dynamic range.
In the screenshot, I have shown you online excel data and how I can transfer it offline to excel dynamic range automatically
for better understanding, I have attached a youtube video link for you.

https://www.youtube.com/watch?v=Sv1_eZYcd5Q


here I also attached an example video link what I want you can see

https://www.youtube.com/watch?v=V6dNzy1RATE


Can we can do this Excel with Vba code ?oh let suppose i transfer this online excel sheet to offline then run a macro to seperate a specfic columns

if you need further detail please tell me i will help you

[arnelgp]

you can use Power Query to Import your Online data?

30641

[Aussiebear]

Please stop referring us to videos that are woeful to watch. In the first video your mouse is like a moth around a light (very distracting) and the second video you are clearly rambling. Simply take the time to explain in words what you are wanting to achieve.

[KAMRAN AJ]

sorry brother, but I make a video to try to make you understand in a better way next time I will try my best to explain all in words.

[Aussiebear]

sorry brother, but I make a video to try to make you understand in a better way next time I will try my best to explain all in words.

Try this time.... so we can assist you. With that in mind you should be aiming to do the following;

1. Explain in real terms what you have and what you would like to see happen
2. Supply a sample workbook
3. Only supply Images if it's very complicated to explain e.g. error messages

if you don't understand how this can be done, sing out and we will help you.

[Grade4.2]

I'll give it a go :)

Make sure to place this into the "OFFLINE" workbook as the information is going to be copied into it.


Option Explicit

Sub CopyDynamicColumns()
Dim sourceWorkbook As Workbook
Dim offlineWorksheet As Worksheet
Dim sourceWorksheet As Worksheet
Dim lastRow As Long
Dim dynamicColumns() As Variant
Dim col As Variant
Dim i As Integer
Dim destCol As Integer


' Define the columns you want to copy (1-based index)
dynamicColumns = Array(2, 4, 6) ' Change this array to include the columns you want to copy from. It is currently set to copy columns B, D & F


' Set the offline worksheet where you want to paste the data
Set offlineWorksheet = ThisWorkbook.Worksheets("Sheet1") ' Change "Sheet1" to your OFFLINE (Targets) sheet's name


' Open the online workbook
Set sourceWorkbook = Workbooks.Open("https://your_online_excel_file_url_here.xlsx") ' Replace with the online Excel file URL


' Set the source worksheet from which you want to copy the data
Set sourceWorksheet = sourceWorkbook.Worksheets("Sheet1") ' Change "Sheet1" to your ONLINE (Source) sheet's name


' Find the last row with data in the source worksheet
lastRow = sourceWorksheet.Cells(sourceWorksheet.Rows.Count, "A").End(xlUp).Row


' Loop through each column you want to copy
destCol = 1
For Each col In dynamicColumns
' Copy the column from the source worksheet
sourceWorksheet.Range(sourceWorksheet.Cells(1, col), sourceWorksheet.Cells(lastRow, col)).Copy


' Paste the copied data into the offline worksheet
offlineWorksheet.Cells(1, destCol).PasteSpecial xlPasteValues


' Move to the next destination column
destCol = destCol + 1
Next col


' Close the online workbook without saving changes
sourceWorkbook.Close SaveChanges:=False


' Clean up
Application.CutCopyMode = False
Set sourceWorkbook = Nothing
Set offlineWorksheet = Nothing
Set sourceWorksheet = Nothing
End Sub