cellsactivecell.row

I have the vba worked out to create the appointment with no issues. Sub Makeapt() Dim warning warning = MsgBox("You are about to create Outlook appointments for " & ActiveCell.Value & " " & Cells(ActiveCell.Row, 10) & ". Is that right?", vbOKCancel) If warning = vbCancel Then Exit Sub Set...

Hi all, same kind of topic again. Going to start with a top-to-bottom list of nomenclature Super Automation - Main workbook which contains a list of newspapers and their requirements, houses all macro code Automation Hub - Where products are placed and ranked according to various criteria...

Hello all, This is just out of curiosity, but I have a "stop" on my Do Until loop which says when A is "", stop. It needs to run down a large list until it finds a criteria, then it saves the contents of whatever cell is in column S as a variable. Is there a way to halt it once it finds...

I have a portal that needs to be opened 600 times a week and I've made some small progress in optimising it, as it takes roughly 20 seconds to open. This is currently down to about 14 seconds on our regular machines but I'd like to get this under 10 seconds if possible. I've identified an area...

I'm looking for a VBA way to convert these troublesome dates. I have a range of dates from January to December, however there are two rogue dates placed in that reoccur a couple hundred times each. These dates are 31/01/2019 and 28/02/2019 - these are mixed in with actual date-formatted...

Hello, Have a situation developing here. There is one sheet "CT" which has a list of products and the dates next to them. The list is incomplete and I need to fill criteria from another sheet, "PP" This is what I have so far. Dim Lastrow As Long, Row As Long Set ct = Worksheets("Campaign...

Hello all, I have a Userform with 3 listboxes. One is a product listbox and the other two are dates. When you choose a product, the date listboxes automatically fill up with unique individual dates. You would then choose a date from one of the two date listboxes and continue your work...

I am such a VBA noob. ML.Activate Do Until Cells(ActiveCell.Row, "A") = "" tnam = Cells(ActiveCell.Row, "H").Value tno = Cells(ActiveCell.Row, "A").Value pup = Cells(ActiveCell.Row, "G").Value pp.Activate Range("A3").Activate Do Until Cells(ActiveCell.Row...

Hello, I am struggling to find a solid method to find the populated cells in a row. In the capacity planning below I have a table of seat numbers and dates as headers. I want to find the daterange in every row. When there is only one daterange without blank cells in between I can do this with...

I have a table of data which contains address fields across columns C to F. Column C will always be the first line of the address which is fine, however, the postcode, which needs to be in column F, can be in either D, E or F. What I need is code that can start with a Do Until, end in a...

Hi all, getting this expected expression error, it's highlighting the IF part, though I don't know why: Sub FinalEnqCopydown() ' ' Copydown Macro ' ' If ActiveCell.Row < 3 Then MsgBox "Select Last Row in Data" Else Application.ScreenUpdating = False Application.DisplayAlerts = False...

Hi, I am looking for a code that will create a new Outlook Task when someone enters a value in a specific row. I use below code that creates a automatic email when someone enters data in row D and would like the exact same result except that it creates an Outlook Task instead of a simple email...

Hello folks, I'm trying to add what's on the left of "/", but sometimes the cell does not contain that character, and I am having trouble handling the error: Dim fbormk as Variant fbormk = Left(Cells(ActiveCell.Row, rmks), InStr(1, Cells(ActiveCell.Row, rmks), "/") - 1) If...

Hi, Please can someone help me change the colour of the selected cells from this line of code: ActiveSheet.Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 14)).Select I'd like them to be red please. Thanks Dan

I've encountered a few challenges and am in need of some assistance. I have a worksheet that houses 42 data elements. Some of these are names that are split into First, Middle, Last and Suffix. I have a user form that will be used for data entry and each of these fields has their own text...

Hello dear masters: I hope that each and every one of the participants of the forum are well in health, I proceed to my request: It turns out that I have an Excel document that I will use as a database so that some of the captured in different sheets (in the example I put two sheets ) Can be...