.value

I'm running the code below, and for some reason when the Text to Columns line is hit, it appears to be saving the file, which is throwing an error further down in the code. I have looked and looked, and don't see anywhere that I'm saving the file, so is it something that happens "behind the...

Hello, i currently have the following vlookup code which works find, however i need to hopefully change it dependant on the Quarter of the calendar year we are in. With ActiveSheet LR = .Cells(.Rows.Count, 25).End(xlUp).Row - 1 With .Cells(2, 12).Resize(LR) .Formula...

Having trouble googling this querry as the Variable name Single is very common. Basically I have code that looks to see if the value in the cell is non zero, and if it is non zero then I add my variable (obtained elsewhere) to the existing .vale from the cell. But somehow the adding isn't...

I have this userform with listbox, and I want something to have a color validation depending on what the user select in the Listbox, for Example if the user selected "Review" the font will change into rgbOrange etc.. depending on the list was selected. below is the standard code with out color...

Hello all I have a code that I am trying to wright, in my code I would like to go thorough the rows and delete the entire row that does not contain the words "Filler Stock" as of right now I can delete it but I want to change that to delete every thing but that, I have a feeling I would need to...

Hey, I have a textbox on my form that manually has values entered based on a Truth Table however, I want to be able to override these fixed values and then input my own if applicable. I have an override button that activates the manual entry into these boxes however, I'm having trouble on...

I wrote this sub: Sub TextToNumbe() Dim rCell As Range Dim sMyString As String Dim LastRowIndex As Long LastRowIndex = Cells(Rows.Count, "A").End(xlUp).Row On Error GoTo ErrorHandle With Sheets("Sheet1").Range("A1:A10") .NumberFormat = "General" .Value = .Value End With...

I have created this code to help with our production schedule but the values are not returning what I would expect them to. Sub ProductCount()'Create 3 headings of Overdue,Today,Next Week and sum data next to each heading Dim OD As Range Set OD = Sheets("Weld").Range("B1") Dim TDY As Range Set...

The rudimentary code below passes a value to the macro PRINTz_ONE, runs PRINTz_ONE then introduces the next value, .......... and so on. Sub PRINTz_GRP() On Error Resume Next With Range("SITEx_PICKER") .Value = "ROLLED-UP": PRINTz_ONE .Value = "NYC"...

Hi Team, I am trying to convert the the number which are in text to number Numbers in few column(C:C and I:I) getting deleted. below are two method getting same result, plz suggest any best method to tackle this task. Sub Convert_TextNumber_Number() Dim ws As Worksheet Set ws =...

Good afternoon I am converting formulas to values with the below code. The problem I have if I select a non continuous range it does not work. Any ideas Thank You Sub ConvertFormulas() With Selection .Value = .Value End With...

Can anyone pick up my error here please I want to add a formula in cell "D3" and along this row until the last column populated starting in "C3" Dim LC As Integer [LC = Cells(3, Columns.Count).End(x1ToLeft).Column With Range ("D3" & LC) .FormulaR1C1 =...

Hi guys, I'll keep this simple. The setup: Dim header As Range ThisWorkbook.Sheets("Category 1 Tasks").Select Set header = Cells(Rows.Count, 1).End(xlUp).Offset(47, 0) 'adding the title header.Select Selection.Font.Bold = True With Selection This works fine: .Value = "=""3.2.""&(RIGHT(" &...

Hi all, I have a table column with date values that are imported from another workbook. The original source of the dates is a database system which time-stamps entries, so each item has a time value as well. Ultimately, I need to extract a count from this table capturing the number of items...

Good morning, I have 300,000 rows of data in Column A. I am using a Macro that has countif in it and it takes forever to run. I am looking to have a running count greater than 1. Can anyone offer me a different solution? Thanks in advance! Sub CountingMoreThanOne() Dim LR As Integer LR =...

Hi all, Hopefully its just a quick solution needed here: I have a table column that contains imported datetime values. I have formatted them as 'dd-mmm-yy', and am trying to extract counts that fall between different date ranges. However, I've noticed that the values are not truly integers...

I am trying to create a macro that inserts a specific formula into a cell and auto fills to the last row. It then is supposed to sort a range of a few columns and repeat on each worksheet in my workbook. I had this macro working until I added the last row verbiage. I am now receiving a...

Hi everyone, I've got this array copying to a dynamic named range (Data) to sheet (Data) but it's filling 2 rows with duplicate data instead of just one. Can't figure out what I'm doing wrong here. Private Sub cbWoodReturn_Click() Dim arrList Dim oTab As MSForms.Tab Dim var As Variant...

Hello - I currently have this macro - although it is only looking at one column and converts the numbers stored as text to number values. I need it to convert columns 2 and 12 through 167 to number values but have no idea how to. Any help is appreciated! Sub Button2_Click() With...

Hello, I'm using the code below to apply conditional formatting with pictograms to a range of cells. Now I want to check a pictogram in a cell. Whether is has a green or a red arrow or something like that. How can I accomplish that? Any help would be greatly apprecated. Saskia...