erow

ws.Range("A3:H3000").Select Selection.AutoFilter wb.ActiveSheet.Range("$A$3:$H$275").AutoFilter Field:=5, Criteria1:= _ "=*Update*", Operator:=xlAnd The following is the output after running the filter above a b c d e 1 2 3 Name Title 5 D001...

Hi Guys, I hope you can help with the below macro. It runs well as long as Sheet1 is visible (Ideally I'd like it to work even when sheet1 is hidden) however I've also now noticed that it's actually pulling the data from the last tabbed saved in the workbook rather than referencing Sheet1. So...

Hi All, I currently run this macro on multiple documents in a folder. What I'd like to do is hide the worksheet - Sheet1 but still allow the macro to run. Can anyone help with the below to allow the macro to extract the data from sheet1 whilst the worksheet remains hidden Many thanks, Paul...

hi guy i hope help me the code is somthing wrong i try to transfer data of invoice from sheet1 to sheet 2 but give me this mistake RED LINE AND GIVE ME RUN TIME ERROR13 Option Explicit Sub transferData() Dim i As Long Dim lastrow As Long Dim erow As Long lastrow =...

Hello I need to loop through a range from column 27 through 40 and row 3 through 17,694 (dimmed drow) performing a vlookup in every cell using a lookup table with 16 columns. p=3 'row tc =3 'column index in vlookup v = 27 'destination column For tc = tc to 16 For v = v to 40...

Hi guys, I was hoping you can help. I have the below VBA macro running in a master file (named ZMasterFile). The idea is I have this file in a folder where up to 100 excel workbooks are stored and I use it to extract some data from each of the workbooks and collate on the ZMasterFile. It is...

To whom it may concern; I am getting an error of Run-tim error '1004 Application-defined or object-defined error with the following code. Can you tell me why? Are we not able to do autofill on If formulas? Thanks, Cora Sub FillFormulas2s() Dim ws As Worksheet Set ws = Sheets("OCT ADJ")...

Hi, I have an AutoFilter on Worksheet("Tracker"), and I'd like to disable it while this sub runs as part of a UserForm. At the moment, it autofilters the copied range and then finds the last empty row again and inputs the information from the UserForm. What I'd like it to do is input that info...

Hi, in addition to the If statement causing error 13, I'm getting 1004 in the With statement. Thoughts? Private Sub OK_Click() Dim ERow As Long Dim ws As Worksheet Set ws = Worksheets("Tracker") 'find first empty row ERow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _...

Hi, I am getting a type mismatch for the If statement in the following code: Private Sub OK_Click() Dim ERow As Long Dim ws As Worksheet Set ws = Worksheets("Tracker") 'find first empty row ERow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious...

Hi Everyone, I am having trouble on two fronts with this code. First it doesn't like ("Sht") so the person can identify which sheet to activate. Second it doesn't like the erow statement. Dim Sht As String Sht = InputBox("Please enter the period name") Worksheets("Sht").Activate...

Hello, I am trying to code macro to consolidate all workbooks in a file on my computer. My macro seems to work but is not pasting in data from the other files into my master (zbook1). Can anyone assist? Sub LoopThroughDirectory() Dim MyFile As String Dim erow Dim Filepath As String...

Only paste the values from the first workbook and then it appears to not locate the next open row?? Sub Loopthrudirectory() Dim myfile As String Dim erow myfile = Dir("C:\AA_HISTORY") Do While Len(myfile) > 0 If myfile = "activity Log.xlsm" Then Exit Sub End If Workbooks.Open (myfile)...

Hi, I uses pivotable to create financial statements from data. There are three different group accounts (Ks, Ps and As). I want each group account to have its own color. My pivot table Range is from A to E. The last column (F) is for users to make comments. When my user clicks on an...

Good Morning All, I am wondering if it is possible to take the code below and add a next step. In this step i want to take the data from sheet 2 (Tab 2) and split it into two additional tabs called "s breaks" and "c breaks". So, if the cells in column "N" contain "Working with Client" or...

Dim LastRow As LongDim erow As Long Dim i As Long Dim strComp LastRow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row Sheet2.Select Range("A1").Select For i = 2 To LastRow strComp = Cells(i, 3) If InStr(1,strComp,"Fuel Consumed")= 1 Then erow = Sheet4.Cells(Rows.Count...

Hello, I am trying to write a macro, which will loop through all headers in a specific sheet and in case last 12 characters are "_TEAM_OFFICE", it will copy/paste the filtered results into another sheet. Same procedure will go for all other columns in range. Unfortunately, my code doesn't seem...

I am running into the runtime error '424' Object required issue. I am using the variable eRow in order to enter data from a userform into the next available row in a excel sheet. I can't find any issues with the code, it was working a couple weeks ago. Here is a shortened version of what I am...

hi, i want to know the error in the below code. i am applying this code to copy data from sheet2 to sheet1 based on DATE criteria. Sub CommandButton1() Dim lastrow, i, erow As Integer Dim sh As Worksheet Dim cell As Range Dim sheets As Worksheet Set sheets =...

Hello, I am using a UserForm for data entry with eRow commands. Within the UserForm I have some check boxes. How do I output a Y or N result from the UserForm using eRow commands or is there an easier way to output the results? I am a VBA coding novice, as in I have worked my way through using...