rangea1

I have a sheet called "Costing Sheet" I have written code to put todays date - 5 days in col A1 on Sheet "Costing Sheet" and the copy the sheet after the last sheet and then to name sheet based on month and year in A1 for eg Oct-2019 I get an application defined or Object defined error and...

I would like to delete all rows that don't contain multiple specific text in column D. The below code works great for two options but I have a list of twelve words that I would like to add. Thanks in advance

Hi I need to select a range of data from row 5 to the end of the number of columns, then the end of the number of rows. I've used this, but get a Compile error. Range("A1", Range("A1").End(xlToRight).End(xlDown).Select Can someone please point out where I've gone wrong? Thanks in advance

Hi All, I am sure this is fundamental but I just don't understand why. I have a userform with a combobox and a listbox. I can add items to the listbox no problem but I wanted to be able to delete from the listbox. If I assign the following macro to a button then it works fine. However, when I...

Evening All Question I am converting a text value to a percentage with the below script. If there is no value in the cell I am receiving a #VALUE ! error. What is the most efficient approach. I believe I can insert a zero value if the cell is blank and then covert, however this does not...

On Yahoo finance, the line in the HTML code below is the number (13.00) and I would to display a msgbox with the results . I manage to put together some code watching youtube videos, however i can not get the number to display in a msgbox. Then msgbox should say 13.00. Can you assist. Many...

Hi, I need 4 pivot tables to set their criteria to match cell A1. I have below code which is working great for the first pivot (Pivottabel2), but how do I add Pivottabel3, Pivottabel4 and Pivottabel1: _______ Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target...

The following code does one of three things 1. Copies 3. Pastes 2. If copy and paste have already been done, the Double click transfers you to the event sheet. I use a counter in "A1" to establish what we are doing (1 or zero) My problem is, that if someone starts the process, with a zero and...

Hi and thanks in advance! In my company I have 5 printers I know howto select as the ActivePrinter one of them Application.Dialogs(xlDialogPrinterSetup).Show But If I do not want to put as the Activeprinter one of them, I want only put the selected printer within a cell eg: RANGE("A1") I do...

hi want to find and activate cell. Get syntax error dim t as String Worksheets("Sheet1").Activate Range("A1"). Select t = ActiveCell Columns("D:D").Select Selection.Find(What:=t. Activate help!

Private Sub CommandButton1_Click() If Range("A1") = 0 Then Range("A1") = 1 Exit Sub End If If Range("A1") > 0 Then Range("B1") = 1 Exit Sub End If If Range("B1") > 0 Then Range("C1") = 1 Exit Sub End If If Range("C1") > 0 Then Range("D1") = 1 Exit Sub End If End Sub I have tried the above code...

I have not used a specific workbook for over 12 months, but it worked before. I suspect the web page owner's security upgrades may have changed things, or the web browser I use on this specific computer is no longer compatible, I'm not sure. The VBA URL references is With...

Trying to copy the background (plain and gradient fills) from one cell to another based on the Dropdown value selected in the first cell. The attached file has macros and conditional formatting. I'm able to make the following code work if I MANUALLY set the background fill and THEN type in a...

Hey guys, Is there a way to shorten the following code so that I do not have to write or Range ("A1") = every time I wanna add an or statement? Thanks for the help in advance. ElseIf Range("A1") = "Location 1" Or Range("A1") = "Location 2" Or Range("A1") = "Location 4" Or Range("A1") =...