We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.
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
|Macro to delete rows where col 14 and 16 contain blank cells||10||21|
|Save and close already open Excel file using VBscript||9||51|
|collaboration tool but not sharpoint||2||11|
|excel issue taking data and formating into columns question||4||19|