erow

  1. D

    Unique count on filtered data

    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...
  2. B

    Macro not pulling the correct data - Help!

    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...
  3. B

    Running VBA on hidden worksheets

    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...
  4. A

    help code transfer data from sheet to another sheet

    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 =...
  5. G

    Increasing 3 variables in For Next loops

    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...
  6. B

    Help with VBA ....Please

    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...
  7. C

    AutoFill If Formulas - Help

    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")...
  8. M

    Disabling an Autofilter during the execution of a userform command and then reenabling after a particular step

    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...
  9. M

    Application-defined or object-defined error (1004) in With

    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, _...
  10. M

    Type mismatch (13) with If statement with multiple Ors

    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...
  11. K

    Object Error

    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...
  12. T

    Macro isn't consolidating data

    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...
  13. S

    Code not copying range from all sheet in folder

    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)...
  14. C

    Help with Pivot update event

    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...
  15. W

    Taking data from one tab and splitting into two based on values of cells

    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...
  16. F

    InStr Function

    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...
  17. J

    VBA autofilter loop macro amendment

    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...
  18. M

    Runtime error '424' issue

    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...
  19. A

    copying data from multiple sheets into single sheet using DATE criteria

    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 =...
  20. M

    Using checkbox in userform

    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...

Some videos you may like

This Week's Hot Topics

Top