activecell.value

I currently have a macro that selects data based on the current date: If ActiveCell.Value = Date Then I need to change that to select the data in that cell that is equal to not only todays date but every date for 1 week in the future. Ostensibly, it would be If ActiveCell.Value = DATE + 1 week.

I have the below line of code as part of my VBA . As shown below, the first "find " section looks for the word "Paris". When it finds the work Paris, it updates the cell value as France and then moves on to the 2nd "find" section where it looks for the word "London and then updates the cell...

Hi all, I'm quite new here and new to vba. I have a worksheet that opens a pop up calendar when I click on a certain cell. When I then click on a date on that pop up it puts the date into that particular cell and then the calendar closes. This is all good and working. Is there a way that when...

Hi again. I would like to prevent duplicate entries to be entered into a spreadsheet when attempting to add with a error message saying "Duplicate Entry". VBA Script below; Private Sub ScanTB_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim LastRowFilled As Long Dim DataArray(1...

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

Hey Everyone, I have been working on a function to linear interpolate some data- I got it to where it was giving values however they seem to be incorrect. I cant find an error in the equation so far so i am not sure where to fix things. I am also extremely new to VBA to bear with me on the...

The following code has worked before, but now it doesn't and I can't figure out why. I just determine the value in the activecell and if it's more than one I just copy the row and insert it below the selected row, but for some reason I get a runtime error 1004 and the insert method fails. I...

This may be an easy one but I am just starting to learn all of this. below is a code that works great, only i would have to type it over and over again until i reach row 250 :( i want to loop through the E Column cell rows from 2 - 250 until it reaches the end. Any help would be greatly...

Hi I have the following section of code within a large macro: Worksheets("Dubai Data").ActivateActiveCell.Offset(0, 2).Copy detail = ActiveCell.value Sheets(detail).Select ActiveCell.Offset(-2, 1).PasteSpecial xlPasteValues ActiveCell.Font.Bold = True Range(cells(ActiveCell.row, "C")...

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

Is there anyway to speed up how Im doing this? I have more code like this but only posted a portion of it. Takes about 5 seconds to run the macro, would really like to lower that time. ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate ActiveCell.Value = B1...

Hello, I have a piece of code that I have used successfully many times going through different ranges in excel (mainly containing charts) and pasting theme into powerpoint as images. Now I need to do the same but paste the charts as chart objects instead. Any tips? * Sub open_ppt() Dim...

Hi Guys, I am struggeling with an anoying problem. I have made a userform in an Excelsheet. This form has 2 textboxes (one for date and one for time). The Date is allready filled in with the date of today. The user has to fill in the time and after hitting 'enter' the form saves automatictly...

hi I really hope someone can help me in how to code this correctly, the sub does work perfectly i am pulling a motorcycle from a list and the next one in the list is copied to line 31 this works perfectly when I use the same code for say 300 but for 897 it throws up the error, I just don't know...

I have the following code. Essentially, looking to find any duplicates in column B. The problem, is it continues to duplicate the function. Basically, what I want it to do is once it finds a duplicate in sheet names "Control Sheet" then display message and stop. No need to continue looping. Is...

I am trying to write a do if loop command that takes a look at data in 3 different columns and then outputs a value to a 4th column (F in the command). When I run this command, Excel stops responding, I have even left my computer for a few hours and still not responding, please help with what...

Greetings, I have some code that works, but but now I need to make it loop upwards through the blank cells and stop before overwriting the first non-blank cell. I just can't seem to figure out that whole "i = / Next i" thing. Also, in the last "Else" statement if the cell (0,-13) from Active...

Hi there. I have been trying to write some code that will compare the value of a cell to all the values in a multidimensional array that a person establishes while using the program. If the value in the active cell matches one of the values in the first dimension (column) of the array, then...

Just imported a load of CSV values that came across as 1/15/2019 12:22 date and time I was following > https://www.mrexcel.com/forum/excel-questions/1086344-formatting-dates.html which works when no time value is involved. Just wondering if a small vba script could be developed that would strip...

I use the following formula to extract postcodes from addresses and it works perfectly. TRIM(RIGHT(SUBSTITUTE(A2,"",REPT(" ",10)),20))<o:p></o:p> However, when I insert the same formula in a vba loop, it does not allow me to execute. REPT is highlighted and the dialogue box says "Compile...