activecell.offset0

Greetings all, I am updating an estimating spreadsheet that I wrote probably 15 to 20 years ago. I wrote a macro back then that transferred information from the cost part of the sheet to the estimate sheet below, but it was in the old XLA format and I can no longer save it or make changes to...

What is a less rigorous way or writing this? Sub COSTPLANBREAKDOWN() Dim rngstart As Range Dim tst As Range, lastrow As Long Dim cl As Object Dim L As Long, strcells As String, lsr As String, toplvl As String, comm As String, flat As String Dim CLT As String, PLT As String...

I have the following code that drops a calendar value and 2 textbox values into a 3 cells on my spread sheet that then triggers an email to be sent if the total of the 3 values that are dropped is below a certain value, but what is happening is when the values get dropped rather than being...

Hello, I have a workbook with multiple sheets and I'd like to run this macro on all sheets. The code below will run on the first worksheet, but not on all. If anyone can see why it's not looping through all the sheets I'd appreciate it. <Code> Sub Add_On_Time_Or_Not_To_Each_Sheet() Dim ws As...

Hello Everyone, Can someone kindly help meas I’m new to VBA. I have a userformthat contains a listbox with several lines of data. When the user double clicks on a row in thelistbox, it populates a series of textboxes below. Right now, I can’t seem to get the ADD bottomto work. What I’d like...

Hello: I'm trying to get rid of select on the following bit of code. This works: Range(ActiveCell.End(xlToRight), ActiveCell.Offset(0, 7).End(xlDown)).Cut ActiveCell.End(xlToRight).Select ActiveSheet.Paste But when I try the following, I get Object Doesn't Support this property or method...

I was given this project to develop a form that by a click a button will send the answers to a separate table. It currently works. The user fills out the form in "Change Order Form (sheet1)" , when finished the submit button is clicked which then sends the responses a table in "Change Order Log...

I need help with this portion of my spreadsheet and userform and no better place than here to get it. I am wanting anytime any cell is selected in a given row (range myLEDGER, actually A19:AR71), a userform pops up (1st code). I figure I need to Offset back to A somehow and then Offset back...

Hi Below is some code I have. There's actually a lot of copying and pasting going on between workbooks (more than I show below). I would like to speed up the macro and was wondering is there better faster way to copy paste a number of cells on a worksheet that have been identified with a...

Hi all, I'm trying to record a sumif with 6 different criteria pointing at different workbooks, when I record it, it seems to cut it after a point and replace a bunch of it with a " _ & " As a result, I think I fixed it with this but I still get application or object defined error...

I will start this off, I don't program at all, I have been recording and modifying code macros to help automate some things at work. I have this code that's not working when I run it: Columns("C:C").Select ActiveSheet.Range("$C$1:$C$817").AutoFilter Field:=3, Criteria1:="202*"...

Hi, I'm lost on how to just simply copy a row from one sheet to another. I need it to copy to the other sheet that has an available empty row. Once that has been executed.. It will simply just delete the information on sheet1 after copying to sheet2. So far I have... Dim lastrow As Long...

I have a code to check for a duplicate in column B7 and downward. I need to somehow configure it so it finds a duplicate in row B7-downward AND C7-downward. Here's the kicker... I need it to be like an "AND" function. It will be OK if the unique ID's are duplicated in column B as long as the...

Hi, I have a sheet that has a Userform that has textboxes/comboboxes/etc that will be my data input. I have a header for my "table" and they're simple lines that run Vertical. Once I input the information in the userform and hit submit, it already cycles to the next available line to add...

Hello, First off this is my first post, normally i can find my solutions but i can't quite figure it out this time, so sorry if this has already been asked. I'm designing a workbook where users can update the data through a userform. Currently the userform has a listbox that pulls from a...

Dear All, Here is the code for horizontal connector for an active cell where the connector displays at the middle of that cell. Its lenght is half of the previous cell + current cell + half of the next cell. Dante gave me kindly those lines of code. l = (ActiveCell.Offset(0, -1).Left +...

Hello, I would like to loop column j and if any part of the value in Q equals the string EXCHANGE, I want to concatenate the value in column k the Q, otherwise just put the string value in column q. My wildcard doesn't seem to work and even when the word EXCHANGE is in q and only entering the...

Hello all. So I have some code that splits up a string and pastes certain parts of the string into certain columns. It works fine if you just run it from VBA editor. But it would be a nice touch if you added it to the right click mouse menu. I have some other code (not included) that works...

Hi I've one workbook that contains 31 sheets (1 for each day). I want macro to open source workbook and loop through each sheet and copy range H15:H28 and paste it in active (Target) workbook from B4. I've code that does the job. But I want some change. After pasting in 16 columns i.e. up to...

Sub AddRowForNew() Dim rngstart As Range Dim rng As Range Dim col As Range Dim l As Long, strCells As String ActiveSheet.Unprotect Password:="B28" Application.ScreenUpdating = False Application.EnableEvents = False Set...