rcell

Hello, I am working on a schedule for work at this moment. I am using a range of colors, however, I wish that when I put green color on a person I wish it to count as a 1 FTE resource, and if I put orange I wish the function to count it as ½ FTE resource. I have been googling but cannot get my...

Hello I'm looking for some help on the below code. I basically want the cell K15:O16 to update the value from the range C6:C8 and K9:O10 to update from D6:D8 range. I am able to get this working when only updating one cell after each print, but I cannot seem to get both cells updating. The...

When right clicking within cell range A1 : D4, cell turns green. I want to expand further on this and add that when right clicking on green cell, cell turns yellow. And when right clicking on yellow, cell turns white. How would that look like? And is there a cleaner way by not using Elseif...

Private Sub cmbSDPFLine_Enter() Dim rng As Range Dim rcell As Range Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:F1") cmbSDPFLine.Clear For Each rcell In rng.Cells cmbSDPFLine.AddItem = rng.Cells.Value If rcell.Value = "Line 4" Then...

Hello , This code is to rank data from my table Section | Score 1 | Score 2 | Score 3 | Rank 1 | Rank 2 | Rank 3 | It's doing that nicely. However, I want to switch the section from column A to C. So that my new table looks like : | Index | Name | Section | Score 1 | Score 2 | Score 3...

Hello all, I am looking for a vba code that will give a input form with 2 drop boxes that will define the data to pull from a sheet that is specified. I have a workbook that covers the years down time, each sheet is a separate month. I will be required to select at the end of the month a...

I have a workbook with multiple sheets which are exactly the same(User Input templates). Each sheet has about 100 cells of information which I am copying by looping through the worksheets and then pasting into a summary file called "Master". I would like to loop through all the worksheets copy...

I'm still having trouble with this... found this code Sub AddCommaToESIID() Dim rCell As Range If TypeName(Selection) = "Range" Then For Each rCell In Selection.Cells If Not rCell.HasFormula Then rCell.Value = "," & rCell.Value End If...

Picture of spreadsheet: https://prnt.sc/ly46pc Hi all, I Would like to be able to filter the data shown based on a dropdown in D5. The 3 options are the teams: Estate Planner, Advisor Team, Review Team (employee names have been blanked out for the image) When a team is selected in D5 I would...

Hi, I currently have this: Private Sub CalcPUnit_Click()Dim rCell As Range Dim rRng As Range Worksheets("Inventory").Select Set rRng = Range("E3:E50") For Each rCell In rRng rCell.Value = rCell.Offset(, 2) / rCell.Offset(, 1) Next rCell End Sub Basically to say each cell in a range...

my code says to find the last empty cell (in a column) but i would like it to select that cell if its empty, but still has a border around it (or possibly it wont... point is, it shouldnt matter if it has a border or not, just that if it doesn;t contain a string, then it should select that cell...

the code simply needs to find the first empty cell in row 1 (starting with column H(8), and going over to the last column that has text in it, then plus 1 column), and then from that point select all the way down, and all the way to the right. Then clear all, then delete. I have it working...

Hi, Could I please aks for some help on the following code It currently places todays date into column B when an entry is made in Column D, this works perfect, What I would like if possible is to add the username into Column C here is my code Private Sub Worksheet_Change(ByVal Target As...

Hi all, I'm scratching my head here. I have a range of data which has a list of names in Column 1 and dates in row 4. My objective is to find cells with the text "SCSL" and copy the corresponding date and name to create a list in another sheet. The code runs, but only returns the last instance...

Hi All, I have the below VBA code which does what I need but it is very slow. Can someone tell me if there is a way this can be done in one step rather than looping through all 2500 cells. Application.ScreenUpdating = False Dim Current_Date As Date Dim Date_String As String...

I have a macro that is building an array. The array has 400 columns and 1000 rows. I need outliers identified from each data column, not the total data cloud. I have to post the data in the worksheet first and then do the calculation. I'm using the code below. The code calculates the values in...

I have a problem if I want to filter the table in worksheet. I have 3 columns, supplier name, status and action. Here I am trying to change action (cmb change event). Sometimes it doesnt work for suppliers, sometimes I have one additional supplier on the list, sometimes some suppliers are...

Hello, I have the below code that is not doing what I need. It is clearing theadjacent data even if the date is less than the look-up date. I need the code to find all "Completed" statuses in column C, thencompare the date in column D. If the date is greater than the date in cellT1, then...

I have items in Col D which is colored in yellow using a fill color I use a UDF to sum these items. However, when I add color additional values using the fill color the values are not updated. I have to edit the function and enter and then enter in order for it to update I have added code...

Hi all - working on a function that copies formulas from one worksheet to another. I'm looping through every sheet in the workbook - when I get to a sheet that has no formulas, I get that "1004 - No cells Found" error. Now I guess I can handle this through error handling, but is there a simple...