1.value

I'm trying to get the last 4 digits from a text box, to populate a worksheet. The issue is, when there are preceding zeroes in the 4 digits, they're not coming over. Example, if the text box has 1230456, I'm only getting 456 to come over. I need to get the 0456 to come over. I tried these...

Hi guys, I am trying to run VBA macro to search the words "Red" or "Blue" in columns I, and if the condition is true it would need to process an RC[-9] formula in column N, accordingly. However, I keep getting a 424 error per the red font below. Any help would be great. Sub test()...

Greetings, I have a relatively simple script. I assign a variant variable using worksheet inputs like: b = ActiveWorkbook.Worksheets("WorksheetName").Range("B10").Value Later in the script I attempt to use the value of b: Selection.Offset(0,1).Value = b When I check the related sheets I am...

Is there a easier/shorter way to sum below each of the columns. Right now I have - Cells(8, 1).Value = WorksheetFunction.Sum(Range(Cells(1, 1), Cells(7, 1))) Cells(8, 2).Value = WorksheetFunction.Sum(Range(Cells(1, 2), Cells(7, 2))) <colgroup><col width="64" span="4"...

Private Sub CommandButton3_Click() Dim r As Long If ComboBox1.Value <> -1 And ComboBox2.Value <> -1 Then ListBox1.Clear With Worksheets("list").Range("A1:A30000") For r = 1 To .Rows.Count If ComboBox1.Value = .Cells(r, 1).Value And ComboBox2.Value...

Can someone tell me why the font formatting isn't working? There is data in row 1 and row 2, but the font type and size are not changing when I activate the worksheet. Private Sub Worksheet_Activate() Application.ScreenUpdating = False Dim csws6, csws7 As Worksheet Dim csLastRow7 As Long...

I found some code that I'm trying to deploy in my workbook. It relates to another post I made, but since I found what appears to be an alternate solution, I started a new thread. Hopefully that's not against protocol...

I have some code where I'm evaluating the value of the last cell in column CB. If that value <> "Current", then that row is copied and pasted into the row below it. I had code that works fine for that, but it was only performing on one row at a time. I did some googling and it seems as though...

I have this code in the "This Workbook" section. It functions well, but not perfectly. I'd like for it to continue the copy and paste routine until the value in column BZ, in the LastRow, = "Current". For some reason, it only pastes 2 or 3 rows at a time. What change do I need to make to the...

Hi everyone, hew to the board here and I'm in need of some assistance. I have a macro built in excel to send out an email and I have my template and everything set up, but I'm having issues with the hyperlink functionality. I can get it to point to a specific location (ex...

I have a userform code that it runs perfect but it is very slow, and trying to make it run faster. When I ran the code below, all combobox/optionbutton that have values in it show as TRUE on the overall sheet (Column A), or else if blank, it show false. Instead of having all these line run one...

Hy, I have a combobox i want to it fill from a dynamic range. I can fill the combobox with all the data from the range but I don't want to show the rows where the column U has a cell with value. (I need to expand the code below to show only the rows where a cell in column U is empty) Column U...

I need some guidance on how to best approach a situation. I have a workbook that will have 40+ sheets. One of the sheets is mean to serve as a Summary sheet, containing data from the others. In creating this summary sheet, I enter a slew of formulas (from column F through column BV). This...

Hi, I need some help with the below - I have a spreadsheet which contains a filter and "rng=.SpecialCells(xlCellTypeVisible)". For example, it will always copy from range A17 to G25". I wish for it to start from B17 and end at the last G cell of the filter. Can anyone enlighten me on how to...

I'm having some trouble with entering this formula through VBA. It works fine in Excel, and the syntax shown below was taken from the macro recorder, so I'm not understanding why I'm getting an error. ws3.Range("AB" & LastRow3 + 1).Value "=IF(ISNUMBER(R[-1]C[-1]),RC[-1]-R[-1]C[-1],0)". Here...

Hi Guys, I have a raw excel sheet with rows of data that all have an account number in he first row. And i want to transfer those rows of data to a dedicated sheet per the account number. Now here is the thing. This i got with this code If (InStr(1, Cells(i, 1).Value, "55711") > 0) Then...

I have been trying to use CountIf to retrieve data from a work sheet other than the one that provides the search criteria for the countif function. This works Cells(x, 3) = Application.WorksheetFunction.CountIf((Worksheets(WorkS).Range("A3:A1300")), ActiveCell.Offset(0, -1).Value)...

Hi, i found this code from google and trying to work and apply to my worksheet, I have a large data around 35K rows and being updated everyday. column A to AU are being updated by pasting value the large data all the way down. I am trying to apply the below code to populate the data from column...

Hell why am I getting code error (1004) on this code/ Highlighted in red. ' Get the last row with text Dim LastRow As Long Dim i As Long LastRow = Cells(Rows.count, 34).End(xlUp).row ' Use LastRow in loop For i = 3 To LastRow ' Check if cell has text name...

I am trying to get a macro to hyperlink to a folder while checking to see if a folder exists for the hyperlinked item. My problem is that the first DIR$ call is unreliable. Sometimes it works as written while other times it fails with a Runtime error '76' Path not found. Why would it work...