cel

Hello, I'm stuck and need help please help me I need the following macro to work across 35 tabs after tab7 Sub FDADATE2() Dim SrchRng As Range, cel As Range Set SrchRng = Range("A:C") For Each cel In SrchRng If InStr(1, cel.Value, "FDA") > 0 Then cel.Offset(0, 2).Value =...

Hi, I have the following code. When I run it - this line of code triggers an error: Set rng_clients_prev = ThisWorkbook.Worksheets("Daily Totals").Range(Cells(4, col_Arr(0)), Cells(finalRow_clients, col_Arr(1))) error message: Run-time error '1004': Application-defined or object-defined error...

Hi, I have the following code. However this line of code throw an error message. col_Arr = return_column(rng_column_loop, previous_Month) Error message: Compile ErrorByRef argument type mismatch The function requires range as argument. I passed in range. So why was the mismatch? thank you...

Hi I have a work book where on sheet 1 I have a lot of data where I have highlighted different cel with text in different colours, On sheet 2 I have set for certain colums from sheet 1 to copy across using the generic ='sheet1A1' function, I also want the cel colour to transfer with this but...

I'm using a VBA code (that I found and modified by lurking here, kudos!) to create a dynamic index that I then use 15 different Indirect formulas to populate cells with values that create a summary. Basically each cel from B2-P2 is populated with some variation of...

Hello All, thank you for your help I am looking for a VBA/Macro that will sort through each cell in column "E" (dates) and compare it to each cell in a row 1 "H1:BE1". When a matching date is found I would like the code to insert a shape or value into the respective cell. My code is below...

Hi all I have code belove in sheets(A) and work well Private Sub Worksheet_Change(ByVal Target As Range)Dim rngB As Range, rngC As Range, cel As Range Dim wksB As Worksheet, wksC As Worksheet, wksD As Worksheet Dim lngRowB As Long, lngRowC As Long, lngRowD As Long, lngRowsCopied As Long...

Hey all, I have this neat little macro that runs on every start of a sheet. It's (supposed to be) pretty simple, checking for rows that are older than 180 days and then deleting part of the content of the row. My boss was so happy over this GDPR-compliant macro. :rolleyes: But then a few days...

Hi All On m work book I have shifts in put in to cels. Such as 13:00 - 21:00 in one cel. However on another worksheet I want that to show as a 1. So basically when ever numbers are typed in on a sheet I want a 1 to show, However if a word is typed I want a blank cel Can anyone advise?

Hi, Can anyone help with below? My code is running for around 5 minutes or more with data of only 10 records in the worksheet. Dim nameCol As Range Dim aCell As Range Dim Cell As Range Dim Cel As Range, N& N = 0 Set nameCol = .Range("A1:AU1").Find("apple") Set...

I would like to find the first empty cell on a worksheet after I define a starting point for the range. Here is where I am stuck: Rng = Sheets("Sheet 1").Range("X:X") For Each Cel In Rng If Cel.Value >= 50 Then Rng.Offset(, -21).Copy 'Paste to cell on...

I have a workbook that will run 27/7 on a pc and also another workbook I will use scheduler to open 2 times a day, save and close. The code I will run in the workbook I will open 2 times a day is below. Can this be edited to open in a new workbook and close so it does not disturb the other...

I am trying to not include cells which contain certain strings in my For Each Loop. I have the following: For Each Cel In Rng If Cel.Offset(, -5).InStr(1, Cel.Value, "Part of" Or "NOT REQUIRED" Or "Need breakdown for") Then GoTo Skip 'the -5 is trying to Offset to the left rather than...

I'm using this code right now but would like to have an additional feature. Can this save and close unless the user hits a key or command button. That way when it opens I can be kept open if someone wants to view it longer. I will have this open, save and close once a day to keep it updated...

Hi all, So I've been looking on the internet and trying myself, but I can't seem to make it work. I'm looking to make a formula that's changing every month, so want to use INDIRECT. The file has two sheets: a tab calles "Parameters" and an information tab to be filled. On the information tab...

Beste, is het mogelijk om een ​​formule te koppelen aan de waarde van een cel? Bijgevoegd een deel van een werkblad. Als mannen in kolom BJ, de rijen 1,2,3,4 en 5 wijzigd in NEE, dan verandering de waarde in cel BJ7. Bedoeling is dat de kolombreedte BI wordt automatisch aangepast aan de...

Hi to all, I’m tried to make a formula to get the last value acomulative in cels from B thru E. This is the formula and the result that I obtain is 0. =if(E2<>””,E2,if(D2<>””,D2,if(C2<>””,C2,B2))) The last value is in Cel D and it’s supposed to be 3. Value in Cel B is 1, Cel C is 2 and Cel D...

am trying to give the user the option to do simple arithmetic operations on selected cells. The thing is that most cells are merged ranges. I got the following already but the problem with it is that it loops through all cells while I only want it to only affect those cells that are not merged...

Hello, I am new to loops but learning. I cannot figure out why I am getting a compile error: Sub DeleteRowsandComboboxes() Dim Cel As Range Dim Shp As Shape Dim ro As Integer Set Cel = Cells(1, 1) Do Until Cel.End(xlDown).Row = 1048576 Set Cel = Cel.End(xlDown) ro = Cel.Row If Cel = "Yes"...

Hello, Another board member provided me with this VBA but has since vanished, leaving me with an error. I am teaching myself about loops (pretty cool!), but still cant figure out what is missing. I get a compile error, with the first Next highlighted. But I think its the start of the code...