See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
Option Explicit Public Sub ImportFile() ' Get workbook... Dim ws As Worksheet Dim filter As String Dim targetWorkbook As Workbook, wb As Workbook Dim Ret As Variant Dim Caption As String Dim TargetRng As Range Dim MyLastRow As Integer Dim MyLastColumn As Integer Set targetWorkbook = Application.ActiveWorkbook ' get the customer workbook filter = "Excel files (*.xls),*.xls" Caption = "Please Select an input file " Ret = Application.GetOpenFilename(filter, , Caption) If Ret = False Then Exit Sub Set wb = Workbooks.Open(Ret) With wb.ActiveSheet 'find last used row in column A MyLastRow = Cells(Rows.Count, "A").End(xlUp).Row 'find last used column in row 1 MyLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column Range("a2", .Cells(MyLastRow, MyLastColumn)).Select End With Set targetWorkbook = ActiveWorkbook 'Note for activating target workbook: Workbooks("Book1").Worksheets("Sheet1") With targetWorkbook.Worksheets("imported") MyLastRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A" & MyLastRow + 1).PasteSpecial Paste:=xlPasteValues End With End Sub
|How to extract and populate data based on 2 matching cells||3||30|
|Excel: Comparing the Values in One Column with the Values in Another||2||30|
|onOpen. check dates in column, colour background||6||22|
|Populate data based ona criteria||6||20|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!