cells2

Hi I have a userform which has a label as a question and 3 radios buttons as an answer. The form is this http://tinypic.com/r/6gaj2q/9 http://i65.tinypic.com/6gaj2q.jpg When use click on Math button, math cell value will be incremented by 1. Everything is working fine if a user will click on...

Hello, I have code set up to create and send a task to one recipient, but am having trouble getting to send to multiple recipients. With CreateObject("Outlook.Application").CreateItem(3) .Assign .Subject = Cells(2, 1) & " XXX Completed" .StartDate = Now...

Hi all, Here's some code which is frustrating me! The last part of the macro RowRead below does not paste the value to the selected cell. When I click in the selected cell manually it works. I need the macro to achieve this automatically, any suggestions or solutions. All answers gratefully...

hi there, can someone pls help. I'm trying to add found cell address to a formula but can't get it to work my code so far Dim LL l = Application.Match("Delivery", Range("1:1"), 0) If IsError(l) Then On Error Resume Next End If Columns(l).Select LL = Cells(2, ActiveCell.Column) 'LL =...

Would like to apply the value of the cell in row 2 to all rows below if the adjacent column is <> blank. This code works, however I have to repeat for the next (possible) several columns. Any assist would be appreciated. Initial ex. dim c as long, rng as long Set rng = Range("E2", Range("E"...

Hi, I'm trying to copy multiple ranges using the cell properties. I have tried a bunch of alternate combinations of the second macro below but have been unable to get any to work. The first macro was a recording and it works, but it will always be the same four ranges, I wanted to try and use...

My worksheet is as follows: Key Metric1 Metric2 1 a aa I am trying to retrieve a value using the dictionary's key: Dim dic As Scripting.Dictionary Set dic = New Scripting.Dictionary dic.Add Cells(2, 1), Cells(2, 2) Debug.Print dic.Item(1) but it does...

Hi, I'm trying to make a function to count the instances where one cell has a different value to the cell beside it. the columns are effectively pairs so I'm only looking to where count every pair of cells do not match. I tried the following formula, but cant get the syntax right, am not sure if...

I thought this would work but it doesn't, can anyone advise where I've gone wrong please ? Cells(2, 11).Formula = "=IFERROR(VLOOKUP(J2,'Staff Data'!B:G,2,0),"")" Cells(2, 12).Formula = "=IFERROR(VLOOKUP(J2,'Staff Data'!B:G,6,0),"")" Cells(3, 13).Formula = "=IFERROR(VLOOKUP(J2,'Staff...

Hello, In my script in some part Im useing autofill and it works proprly but when I have 2 or more records. If there is non or one record my macro is crushing. I have something similar in several places in my code. I just need to have Id in column A from A2 going downn (1, 2, 3 etc) and none...

Hi, Before starting the question, just want to let you guys know that I am not expert in excel vba. My knowledge is average. I am working on creating the list of excel files in the folders and subfolders. I found a macro which can list all the files in the folder and subfolders which is working...

I'm having a nightmare with the consistency of the below code. On some worksheets it works and others it doesn't although it doesn't fail so I have to check everything! In the Validation Sheet, it looks up the users that should be able to access the range (which is the whole worksheet) and...

Hello! I am recording a macro to process sheet. Here is the code: Dim r As Integer r = Range("U1").Value i = Cells(2, r + 7).Select Range("O2").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT formula here.... Range("O2").Select Selection.Copy...

Evening All Could someone provide a bit of explanation to the reference below. Range(Cells(2, "D"), Cells(2, "F")).Cells(1) = "A" Range(Cells(2, "D"), Cells(2, "F")).Cells(2) = "B" Range(Cells(2, "D"), Cells(2, "F")).Cells(3) = "C" Thnks