rng

I'm trying to check if certain column titles are present in a header row lcol = Sheets("UPDATE TOOL").Cells(Columns.Count).End(xlToLeft).Colum Set Rng = Sheets("UPDATE TOOL").Range("A1", Sheets("UPDATE TOOL").Cells(1, lcol)) If Not IsError(Application.Match("Last reissue date", Rng, 0))...

Hi I need a little help please I have put some code together to delete an entire row if a cell in a list starting from B4 and is a variable length. The code is sort of working but once it gets to a point where there are two or more blank cells in the list it is leaving some blank cells. I know I...

Hi there, I'm trying to create a macro to auto recolor cells based on some criteria: Blue for numbers Cyan for direct links from other worksheets Magenta for links to other workbooks I've made the following code to all execute on a single sub, which is where the issue arises I think. Is...

I have code that stores ranges like "D4" and "E4" in variables x and y respectively. However, I run into a bug with the .delete command... Any ideas on how I can fix this? I also want to have excel move that column up where the clear contents took place. Private Sub CommandButton1_Click()...

Hi, Please help on the following code supposed to delete rows with duplicate values in P column and keep the first instance after combining the values in the 8th and 10th columns, but I get the 1004 Delete method of Range class failed error on the EntireRow. Sub MG02Sep59() Dim Rng As Range...

Hello and thank you in advance if you can help, I am using excel 2019 64 bit on a PC. I have a VBA macro that I have used to create hyperlinks in the past. It has always worked fine, and it "sort of" is working now, but it is not keeping the absolute hyperlink I need, so it will not open the...

Hi all, I have a file with all data in column A. In addition, I have a number of unique identifiers in column G. I would like to group all the data in column A based on the identifiers in column G. The goal is to get multiple named ranges where each range consist of the cells that have a value...

Hello Can anyone help me to get the right syntax which is mentioned in RED bold below Option Explicit Public idx As Long Private IsArrow As Boolean Private Sub UserForm_Initialize() Load UserForm1 UserForm1.Show vbModeless Dim rng As Range For Each rng In...

I have this code that does not appear to work as expected. If I select the name using the Dropdown arrow, it finds and selects the name in the sheet. However, when I type a name that is listed in the sheet, it selects the header. Whenever I type in the name, even though there may be a name...

Hi, I am interested in changing the color of partial text within a cell. I am able to do this with regular text in cells, but when there is a formula that concatenates 2 strings of text or text and if formula then code doesn't work. The cell includes a text string and if statement. "If losses...

Hi All, please help me find a solution on this error. When I enter emp ID on the combobox and if I enter more than the usual number of digits, I get the error. Error is found on this line: theValue = Application.VLookup(CLng(ComboBox1), rng, 11, False) Please assist. Here's the code: Private...

Hi, In need of your help. Cant seem to move forward on this problem. I have a combobox with a list of emp ID's, when I choose one from the list, it should populate an info to the textbox(workstream) but to no avail. Alwas goes to the error "not found". Please see attached Private Sub...

Greetings, I have found the below google search tool to be a big help. It simply runs a google search on whatever cells that I've highlighted with a single button press. I'd like to modify to only return specific sites in the results via these two additions: site:Bloomberg.com AND...

Hi all, Really need your help, I apologise for my lack in knowledge but really trying I am trying to edit some code, to copy cells if the value is greater than 0 So if there is a value in worksheet "inventory" column A to copy cells A1 A2 A3 onto Worksheet "Sales Invoice" cells A16 and down...

Hi, I am trying to loop through all cells in the range J10:J25. When a cell is smaller than the value in cell "D12", I want it to change color to red. This is probably simple, but I am unsure how I can target each cell to check for the if function. ActiveCell does not seem to work. I could...

Hello, The following is attempting to iterate an array (2D String array) and use the values in order to create new powerpoint slides- Dim rng as range Dim loopI As Integer For loopI = 0 To arrayLength - 1 'array starts at 0 so 1 'Add a slide to the Presentation...

Hello all, I am having some difficulty determining why this code crashes at times. Sub GL_to_TB_RECON_TEM() Dim wb As Workbook, wbGL As Workbook, wbTB As Workbook, wbRECON As Workbook Dim wsGL As Worksheet, wsTB As Worksheet, ws As Worksheet, wsRGL As Worksheet, _ wsRDTB As Worksheet...

Hi! Every time I run the following macro, Excel crashes. I've tried it on two different machines one with 365, and the other with Microsoft Office Professional Plus 2016. I've turned off add-ins, and copied and pasted the code from the workbook module to the personal file. The file I'm...

I am trying to create one single combobox list by combining values from 2 separate ranges in a worksheet. With ws_vh lrow_a = .Cells(.Rows.Count, "L").End(xlUp).Row lrow_p = .Cells(.Rows.Count, "M").End(xlUp).Row For Each Rng In Array(.Range("L2:L" &...

Hi to all. I ve been searching around but found nothing similar except the code i will paste below (hope to do it properly) What i look for is to resize a table to specific rows and columns. How many rows and columns will be given by values in specific cells. So in the following code i managed...