cell.value

Hello, I am using this VBA code but it does not run automatically when I enter data in the sheet, I have to run it manually! Sub Pop_Up() Dim cell As Range For Each cell In Range("c1:U439") If IsDate(cell.Value) Then If cell.Value < Now() Then MsgBox...

I need help creating a code that searches for multiple "items", grabs the offset and pastes it in another sheet. My final goal is to track leave used. I started with Sunday, Sunday is the only day that uses special WK codes. The rest of the week uses the same code. I will be pasting the rest of...

I would like to find the first cell in a column different from the rest For instance column "Z" has hundreds of rows with the cell value "Fe" I want to select the first cell in the column different from "Fe" I set the range of the first instance of "Fe" as bastart and was trying this code...

I have posted this on another board but I am now on a time crunch so I am grasping at straws. I would use a formula but this is something that will be used again and again by persons other than myself. I need to move the "-" from the end of the number to the beginning. I have cobbled together...

Dear Experts Until yesterday the following code was working well for me. But for some reasons it has started behaving strange and deletes the column "Date" from the table. I'm unable to identify the problem so have stoped using the delete command for now. But need your help to find and rectify...

Hey friends, I have two sheets where I have the same colored cells that each have a number. On the first sheet I only want the numbers below 50 and in the other above 50. I wrote a code for a command button to do so. The one code that deletes all the numbers above 50 takes about half a second...

hello, i am trying to increment the cells that hold a numerical value within a range whilst ignoring blank cells. i am using the code below, but it has no affect: Set cellrange = Range("M8:M44").Cells.SpecialCells(xlCellTypeConstants) For Each cell In cellrange cell.Value =...

Trying to find time gaps based off each cell and its offset (the next cell down) in a dynamic range. My error message right now is 'object required' in the if statement. For Each cell In picks() If WorksheetFunction.Abs(cell.Offset(-1, 0).Value - cell.Value) > 0.02083 Then do something ElseIf...

Having a mismatch error trying to compare a range of cells (Which is my date column) to todays date. I have Cell A1 =TODAY(), and range B2:B29 are expiry dates. I initially had the message box within the "For each cell" statement, which did work and format the cells properly, but then gave the...

Hi, I've got a piece of code I found online and it works awesome in Excel for Windows. It takes a long list of data and saves out separate files for each unique value in column A. However, when running it on Excel 2019 for Mac, it does not use the unique values in Column A for the file name, but...

I am struggling with figuring out the VBA code to use the cell value in the previous row in a formula. The formula is applying a simple filter to data from an accelerometer that is a little noisy. The data is in column format. Trying to create the equation that basically states...

Good evening All, I have a form with 2 combo boxes. For the first combo box, combobox1, I have has unique list from Column A as record source using the following code Private Sub UserForm_Initialize() Dim myCollection As Collection Dim cell As Range On Error Resume Next...

Hi, Im trying to look at multiple ranges and check each cells with an if sentence in order to replace letters with words e.g. If the cells reads "AR" replace it with "Night"..This works perfectly if I say Range("D10:D40") but not if i say Union(Range("D10:D40"), Range("L10:L40")...

Ok, so I am working on a macro seen below: Sub Data_Parse() Dim ER As Long ER = ThisWorkbook.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row Dim Cell As Range Dim CriteriaRange As Range Set CriteriaRange =...

Hi all!! Very new here. Having a hard time to debug.. I am currently trying to make the macro work as the following: create new sheets and rename it to cell.Value in range, and if there is a workbook (also named as the sale cell.Value) in the same folder as the macro, copy this sheet into the...

One more question... For Each Cell In Range("Contact") If Cell.Value = "I&S" Then Cell.Offset(0, 1).Value = "No" Cell.Offset(0, 2).Value = "Yes" end if The code works fine, but is it possible to include both outcomes in one line without a block if? something like - If Cell.Value =...

Sub changetoacertainpercentage() Application.Run ("SelectBold") Dim cell As Range, askedchange As Double, answer As String, answer1 As String If ActiveCell.NumberFormat <> "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)" And ActiveCell.NumberFormat <> "$#,##0.00" And...

Hi Experts Need some urgent help I'm working on a macro where I want macro to go to a particular date and then perform another function. So I picked coding from my previous macros and compiling a new one... But the problem is - My earlier Macro Says "EXIT SUB" after it finds a particular date...

Hoi, Ik wil op een sheet zodra er ergens een waarde wordt aangepast (tekst in dit geval) dat de macro IF_Loop runt. De macro zelf doet het goed (al zoek ik nog naar als er geen text staat (die verwijderd wordt bijv) de cel dan weer gewoon zonder opmaak wordt. Zodra ik echter de Worksheet_Change...

I have the following code to swap the order of names, buthave just noticed one strange problem. The names are formatted surname forename and I am swappingthem to forename surname. However if the surname is only 3 letters it does not swap,if I add an additional letter, or an extra space between...