1.endxlup.row

Hi all I have a form with two combo boxes, both populate from the same column. I want to amend the second combo box list to exclude the value selected on the first combo box. the column is a list of locations, the form allows two locations to be selected <Code>Private Sub UserForm_Initialize()...

Hello All I am lost as to why my Macro won't work. The Macro actually runs and then just stays processing forever without the final result. I keep having to quit excel as it keeps going and going. Basically I want to copy and paste anything that matches the criteria below and then delete the...

Hello all, I am using the below code to copy specific cell values and paste the entire row into a new worksheet. I am having trouble finishing the code. After the last ElseIf statement i want to add another ElseIf or Else (not sure which one i would use) that will move the rest of the data...

Hello, I'm quite new to VBA and I just recently wrote this code to extract data from one main worksheet to copy/paste into each respective client worksheet. Contained in the workbook is a main worksheet with currently over 5000 entries and then the 14 separate client worksheets. Two...

hi, please help me to find the error. when i run this code, it says the path not found Public Sub process() Application.DisplayAlerts = False Application.ScreenUpdating = False 'DECLARE AND SET VARIABLES reset Dim wbk As Workbook Dim Filename As String Dim Path As String Dim sheet_four As...

Hello, I have the codes below to basically copy and paste some data from one workbook (book23) to other workbooks. the problem is that sheet "WDed15" may not exist. Can someone show me how to add an if statement to test if sheet("WDed15") exists, if it does, continue to execute the entire...

I have one workbook that does some stuff, then opens another workbook, copies some stuff to it, updates some pivot tables, then saves and closes it. The second workbook has 3 tabs, but only 1 visible (PivData) When I run the code, everything seems to be working as it should, but then I go out to...

Hello all Is there a difference or efficient way to find the last data in a column of the two. In the Forum I see both methods used. Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row Sheets("Sheet1").cells(Rows.Count, 1).End(xlUp).row

Hi everyone, I am trying to name a range from VBA with ranges that changes. Here is my code RowNum = iReport.Cells(Rows.Count, 1).End(xlup).Row iSht.Names.Add Name:="NamedRange", RefersToR1C1:="=iSolReport!R2C2:R2229C22" I want to be able to change R2229 to RowNum Thanks

Hi everyone, I will like to assign the Top and Bottom values on my filtered sheet to the start and last values on the for loop but I am not getting it right. see code below: Sub MList() Dim TempBk As Workbook, ContactBk As Workbook, ExportBk As Workbook Dim TempSh As Worksheet, ContactSh As...

Hi, I have just become involved in VBA and macros Its a new Challenge in my retirement I have followed to the letter the VBA code shown in you You Tube Posting Learn Excel - Create an Invoice Register - Podcast 1808Finding it extremely helpful However when I compile it I get error messages The...

Hello all Trying to copy all rows to another sheet if column 8 value is not today's date. this is the loop I am using. Thank you Sub copyif() Dim Lr As Long, lr2 As Long Lr = Sheets("Report").Cells(Rows.Count, 1).End(xlUp).Row lr2 = Sheets("Sheet1").Cells(Rows.Count...

Hi All, I have a macro that work fine run from the editor but seems to skip a step when assigned to button. the part it seems to skip is LRC = Sheets("Changes").Cells(Rows.Count, 1).End(xlUp).Row If Count2 > 0 Then...

i am a biginner of vba i need help in coding i trying to get filter data in same sheet please find the attachment below for further verification Private Sub CommandButton1_Click() a = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To a If Worksheets("sheet1").Cells(i...

Not sure what I am doing wrong. Any assistance or suggestions would be great.. Thank You Trying to copy to another worksheet if meets two criteria. Code I am using is; Application.ScreenUpdating = False lr = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row...

Dim lastRow As Integer lastRow = Sheets("CustomReport").Cells(Rows.count, 1).End(xlUp).Row For i = 1 To lastRow If WorksheetFunction.IsErr(WorksheetFunction.Find(Sheets("CustomReport").Cells(i, 15), Sheets("Sheet8").Range("A2:A" & Sheets("Sheet8").Cells(Rows.count, 1).End(xlUp).Row))) =...