5.value

Hello I a working on a program to email invoices to a distribution list for my team. The program filters by the reps BillingCode then by if the group gets emails or online notifcatons. It then runs a loop based on a subcount on the workbook (in B2). The filters are working correctly but when...

I can't figure out why this won't work. Can someone take a look? Private Sub ClearContents() Worksheets("Costing").Activate If Cells(7, 5).Value = "Other %" Then Cells(7, 7).ClearContents End Sub

Hello, I am busy with make a code that we can use de UserForm, fill in the Form and the button OK will copy the information into the first empty row and in differen colums. This is the code I Use: Private Sub OK_Click() Dim emptyRow As Long 'Make Sheet1 active Blad5.Activate...

Hello, This is my first time trying to tackle things in excel using VBA, so some of the items were shamelessly stolen off of various message boards and youtube tutorials and modified to fit my needs. However, this seems to be unreliable and very slow. It takes about 20 seconds to update and...

I have a tool that contains a list of all employees and their associated stamp number. Many of the employees have more than one stamp and so we type in multiple values in the cell. Some people just enter the stamp number with several spaces in between but some people use the "ALT+ENTER" when...

Hi, I am trying to copy certain ROWS from my "DATA" sheet to my "Planning" worksheet with a MACRO, and am having some issues with adding more than 1 Keyword to my search. Right now my Key word is "PFP", and the only way I found to search for another keyword is write out the formula below it in...

I have the following line and I would like to modify it to reference the column by its header name - 'Last Name" vs. the placement - Offset(0, -5). Is this possible? .Cells(Row, 6) = Found.Offset(0, -5).Value Thank you.

Hey there, I'm currently stuck on how to do this. Below is an example of what the worksheet looks like. I have provided what userform1 does and performs the way i want it to. First row that contains data begins at "4". Rows 1 through 3 have merged cells, not sure if thought would effect the...

Well, i am sure this looks silly, but why wouldn't this error checking method work when both cells are blank? Sub Populate_Data() Sheet3.Select Dim a As Integer a = Application.WorksheetFunction.CountA(Sheet3.Range(Cells(7, 1), Cells(1040000, 1))) Sheet2.Select For b = 1 To a For c = 1 To...

Hello, i want to transorm this type to a vba code so to run it when i want the type is IF(DAY(E3)=DAY(EOMONTH(E3;0));IF(F3>TODAY();EOMONTH(E3;1);TODAY());IF(F3>TODAY();DATE(YEAR(F3);MONTH(F3);DAY(F3)+1);TODAY())) i try this but is not working If Day(Cells(Selection.Row, 5)) =...

Hi, I have the following code. I think I have the syntax correct but somehow I got error message: Compile error: Else without If. Not sure why. Wonder if someone could help point out the problem? finalRow = sht.Cells(sht.Rows.Count, "a").End(xlUp).Row finalRow_minMax =...

Not sure what I am doing wrong. Any assistance or suggestions would be great.. Thank You Trying to copy to another worksheet if meets two criteria. Code I am using is; Application.ScreenUpdating = False lr = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row...

Hi, I want to look up a couple of values based on a If then code, for instance: If Cells(x, 1) = Cells(1,4).Value Then mycount= mycount + Cells(x,2).Value End if Cells(1,5).Value = mycount Then I want to see if there's a difference between the Values in E1 and F1 (Value of F1 is given), so...