From 3ee4dc6dec4c3f2964ff083fd7d5905b494ec4e4 Mon Sep 17 00:00:00 2001
From: Believe82 <pedroaugusto2@yahoo.com>
Date: Wed, 10 Apr 2024 12:14:31 +0100
Subject: [PATCH] Create Get_data.md

---
 Get_data.md | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 Get_data.md

diff --git a/Get_data.md b/Get_data.md
new file mode 100644
index 0000000..4adde39
--- /dev/null
+++ b/Get_data.md
@@ -0,0 +1,42 @@
+Code to get data:
+
+Sub get_data()
+Dim PasteWs As Worksheet
+Dim CopyWs As Worksheet
+Dim LastRow
+Dim LastColumn
+'Code that will get the data:
+
+'Opens the other workbook and sets the sheet to copy from
+open_wb_onedrive
+Set CopyWs = openwb.Worksheets("data")
+
+'Set the sheet you would like to paste into:
+Set PasteWs = ThisWorkbook.Worksheets("Sheet 1")
+
+'clear contents of the paste area to make copy easier
+PasteWs.Range("A1:AA100000").ClearContents
+
+Application.ScreenUpdating = False
+
+With CopyWs
+
+    'Finds the last Row and last Coloumn of our data
+    LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
+    LastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column
+    
+    'copy and paste the data from our data workbook to our main one
+    .Range(.Cells(1, 1), .Cells(LastRow, LastColumn)).Copy
+    PasteWs.Activate
+    PasteWs.Range("A1").Select
+    PasteWs.Paste
+
+End With
+
+'closes the data workbook and saves
+openwb.Save
+openwb.Close
+objLogExcel.Quit
+
+Application.ScreenUpdating = True
+End Sub