i.value

Hi all I want to use a select case instruction to change the colour of a series of active x texboxes based on their values, I've got that working for a fixed reference e.g. Textbox1 but I want to be able to cycle through the rest of the textboxes on the active worksheet. I've tried...

I'm losing my mind and need some help. I might just be missing something having stared at my screen for way too long today. I have some code that puts a formula in a cell which references a closed workbook, spits out the result, and then pastes it as a value. What I can't figure it is: 1) Why...

Need help, here is my code.. I want it to loop through all available sheets, but on the i + 1 sheets I want it to paste to the next available empty row (i.e. I need "i" to be changing to in my range).. Sub Paste_NextRow() Dim wsCopy As Worksheet Dim wsPaste As Worksheet i =...

Good morning, i am trying to get the following code to work, have tried various combinations of if ,or, else, elseif but to no success. I have not copied all the statements , but effectively what i am tying to do is. i column 6 (f)is between 1 an 8 it completes the relevant sum. If greater...

Evening, Last post before bed. Below is a section of code from my userform,i think the section i have supplied will be ok for what is required as opposed to showing it all. My userform has 15 textboxes. All 15 must be filled & not left empty when i click on save,currently if any are left empty...

I am trying to find data from access using the below code. The variable R is the date which it will search in the table. If date find in table, it will pickup data from some of the field else it will close the connection and loop will forward. Now the statement "On Error GoTo ST2" is working for...

Hi all, I am updating an old macro and trying to use the replace function instead of two nested loops that process every character in the columns to remove all spaces, commas and dashes in the strings (addresses). My macro runs but does not replace anything. At the moment, I can get neither...

Hi I hope you can help. I have a range of cells on one sheet - this range can change depending upon contents. So, For example, the entire range is between cells B19 and G31 I am thinking - if I copy this range to an Array then how do i tell the array that I don't want blank cells when I copy...

This line of code is not running: .Attachments.Add Range("I" & i).Value within this code: Sub CreateMail() Dim objOutlook As Object Dim objMail As Object Dim i As Integer Const olMailItem As Long = 0 Dim strbody As String For i...

Hello Friends, This Macro will loop through rows to match column A on Sheet1 with column A on sheet2. On a non-match "No Match" will be put in Sheet1 column Q. On a match Sheet2 columns A,B,C,D and E will be copied to Sheet1 columns O,P,Q,R and S. What needs fixing is, while searching for an...

Hi There I am reasonably new to VBA and managed to cobble together an audit trail for an FISH enumeration sheet. The only issue is that 0 (a valid score) won't register as a change in a blank cell. I cannot change the formatting of the cell to text as I have data validation set to only...

Hi, I have two worksheets. The first contains the production plan with dates for column headers and products for rows. <tbody> Product 7.2.2018 7.3.2018 7.4.2018 7.5.2018 7.6.2018 7.7.2018 7.8.2018 7.9.2018 a 150 200 550 0 0 0 0 0 b 50 200 400 600 0 0 0 0 c 0 0 600 500 500 400 0 0 d 0...

The code I have below works well with the exception of one thing: Everything in row 1 is a heading and I don’t want the macro to look there. When I run this macro, if column E=”Complete” and the next cell in column F is blank it works well, but then it looks back at cell F1. How do I stop that...

I am fairly new to coding in VBA and was wondering how to add an error formula to the following string of code: For I = a To lastRow If Range("I" & I).Value / Range("H" & I).Value > 1 Then Range("P" & I).Value = "Review" Range("Q" & I).Value = "Review" Range("R" &...

Hi to everybody.. I'm renaming my pdf files in one folder from the excel sheet list which my PDF filename are drawing number only but I want to add in my pdf filename the drawing title which is in the excel sheet. So I made this vba code but now its not wor What is the wrong in my vba code, i'm...

Good morning, i have been trying various code, and copied some i have found on the internet, but am unable to get any to work. I am trying to remove the character "/" from column i , which contains numbers in this format 111111/22/11111111///11 this was the latest attempt, is there a reason...

Creating a validation sheet with comparing two sheets & Columns. Result should be "Match" or "Miss Match" Sheet1 "A" = Sheet2 "A" Result in Sheet2 "D". Sheet1 "B" = Sheet2 "B" Result in Sheet2 "E" Sheet1 "C" = Sheet2 "C" Result in Sheet2 "F" Rows may vary between 2 sheets. I did the below...

Dear all, I intended to split a large excel table (~ 7,000 rows) into different sheets. Take the following image as an example, I wish to copy the rows from 2 (marked with an "s" in column B) to 3 (row above "E" in column B) into a separate sheet named under the "action list" column (in this...

This is just infuriating me! Within my macro is the following code: For i = lr To 2 Step -1 If InStr(Range("J" & i).Value, Range("K" & i).Value) Then Rows(i).Delete End If Next i As an example, for 3 of the rows, the value in J is <colgroup><col...

Hi, I have one Excel Userform, Under which I have 7 Different comboBox and for source for the every single combobox I had used the below quoted VBA under Private Sub UserForm_Activate() Under Sheet2("Source") - under column range A:G - I had listed all the value which I required to show under...