activecell.offset0

What I need to achieve is as the second column below. I am a noob to VBA so any help will be much appreciated. <code>abc1200 abc1200 MACHINE supplier cost address invoice number abc2400 abc2400 MACHINE supplier cost address...

Hi all, Code below simply updates all cells with values of the textbox/combobox. It doesn’t matter if I change the values or not, it will simply paste all 23 boxes again. This operation takes around 45 seconds as I have lots of formulations in over 30 pages linked to the database. I need a...

Hi Everyone, I'm sure this has been asked before, but I can't seem to find the answer. I have a userform that is currently submitting data to the "Database" tab by userform, I want to be able to edit a row of data by clicking on the name of the person in the listbox, which will then prefill...

Hello to all As the title says, I made a sub for anactiveX button, witch is in Sheet1, it works perfectly, but only whenSheet3 is active and I run it from VBA window. If I try to run it from Sheet1, wherethe button is: "Run-time error 1004. Select method classfailed." I'm newbie in VBA and...

I am wondering if someone can give me some input as to why this may not be working! I have the following code that I am using and it has been attached to a sheet called Main Table and for some reason I am not getting any errors with the code however when I try to input anything into the input...

Hey everyone! So, what I want to do is essentially repeat a formula that applies to only one row of the sheet to the rest of the rows. I want to count all 999's in a single row, and print this number in a separate variable (named Grit_Tot_Miss). I want to do this for all rows in a given...

I have been trying to use CountIf to retrieve data from a work sheet other than the one that provides the search criteria for the countif function. This works Cells(x, 3) = Application.WorksheetFunction.CountIf((Worksheets(WorkS).Range("A3:A1300")), ActiveCell.Offset(0, -1).Value)...

Hi All, The code below reviews each row and returns "ERROR" in column P if the sum of the MONTHS does not equal the hard number stated in YTD; if the numbers match the code just moves on to the next row for evaluation. The code works perfectly EXCEPT when the sum total and the YTD ends with...

Hey All, I have a user form for tracking orders i need to follow up on. When the status of the order changes I update the sheet via the same form I used to submit the data initially. I have an "update" button to do this. The problem i'm having is, if the information is being offset by 1 based...

Hi all I am new to this forum. I have seen some pretty amazing VBA codes/help here. I would like to get involved. I am a management accountant and I often create workbooks for myself and colleagues to save time and improve efficiency. To start off, I am sharing the following code which I...

Hi, Can someone help me on the coding of the below condition? basically, ActiveCell.Offset(0, 25).Value should be equal to "Asia" if the activecell in column F contains the below list and ActiveCell.Offset(0, 25) is blank. list: (note that the text can have XXX at the end of the word, so it is...

Hi Team, What is the VBA code for something like if activecell. value contains ".ts" And ActiveCell.Offset(0, 25).Value = "" Then ActiveCell.Offset(0, 25).Value = "MM" I am unsure on how to correctly code the contains part. Thanks!

Hello all, Brand new user and new to Excel Coding. I am working on a userform that asks for specific inputs. Depending on what those are, we could have the response to the Questions, we could have the need for between, 3 to 6 more Fields for entry. Example, if I state in my user form I want...

How would I state the following in VBA? ... If ActiveCell.Offset(0, 1) > -1 AND _ ActiveCell.Offset(0, 2) > -1 Then ActiveCell.Offset(1, 0) Else Below is my question on how to state in VBA. Would go right after "Else" in the above code" ... Thanks for any help everyone

I am trying to list all the files within a specific directory and it's subdirectories. The following code is working for that. However, I want to only get .png & .pdf files listed. I also want to skip specific folders, either that contains a word or is listed in specific cells. Sub...

I am trying to loop the long code below until ... ActiveCell.Offset(1, -11) = "" If I cannot loop the code using the condition then looping the code for a specified number of times will suffice ... I am a novice with VBA so forgive me if I am going at this wrong to begin with but my desired...

I have the following code: Debug.Print InStr(1, ActiveCell.Offset(0, 14).Value, "1", vbTextCompare) = 0 Debug.Print InStr(1, ActiveCell.Offset(0, 14).Value, "2", vbTextCompare) = 0 Debug.Print InStr(1, ActiveCell.Offset(0, 2).Value, "3", vbTextCompare) = 0 Debug.Print InStr(1...

Is there a way to offeset the cell selection without using .select? I have a macro that requires a lot of cell offsetting as it runs, but the .select commands are slowing things down to much. I've read a lot about ways to remove .select, but with all the copying and pasting this macro does I...

I have two small 5c x 20r tables separated by a single column. When my macro gets to the last row (numbered 20 in column 2 and column 8) I would like it to go the top row of the next/previous table. The code is listed below. It works just fine on all of the rows except when it gets to the last...

Hello Everyone, First of all, I have to say, this forum has helped me immensely and I am so thankful for all the help offered here! I have not been able to find a solution to this despite the extensive research I have attempted. I have a VBA code that will prevent the user from modifying any...