lstrow

Hi, have these codes to remind me bill payments (this workbook has two sheets) the problem having if I am working the other sheet when times for the pop up get error message is there any way the message pop up even I am the other sheet. codes: Sub popup()Dim lstRow As Long Dim i As Long Dim...

Hi Anyone able to help me debug my code below? it kept prompting me compile error: else without if where did i make a mistake? Dim s As String Dim r As Long Dim c As Long 'set active sheet Set ws = ActiveSheet 'finds the last row lstrow = ws.UsedRange.Rows.Count c = 2 For r = 1 To...

Hi, how can i make the codes below popup display reminder every 2 hour message. Sub popup()Dim lstRow As Long Dim i As Long Dim msg As String msg = "The following items are almost due" & vbCrLf & vbCrLf lstRow = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To lstRow If Range("A" & i) -...

My code have this line which is to insert current date in a cell: Application.ScreenUpdating = False with sheets(1) .Range("I" & LstRow) = Day(Now) & "/" & Month(Now()) & "/" & Year(Now()) .Range("I2:K2").Copy .Range("I" & LstRow & ":K" & LstRow).PasteSpecial...

Hi i have the following VBA code to create folders - however, how can i edit this code so if i have two folders with the same name for eg 02052018 02052018 the code will make it do 02052018 02052018 - 2 ( or - 3...depending the number of times it has been copied over) Sub MakeFolders()...

Hello, I am looking to do a Dynamic AutoSum function in VBA. Here is my code: Rows(1).Find(what:="Qty $", lookat:=xlWhole).Select LstRow = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row + 1 Cells(LstRow, ActiveCell.Column).Formula = "=SUM(ActiveCell:ActiveCell.Column" & LstRow - 1 & ")"...

I am having a heck of a time finding the last columns and rows. I know I'm missing something simple and I've gotten this far with some help (Thanks KD!) but I still can't find the missing link. I see and understand all the articles, but I'm missing something obvious. I have the following but...

Below code only work to select single cell. Let say last row is row 50. How do I select range of last row between A50 to Z50. Cells(LastRow + 1, "A").Select Is it possible to combine below codes into single line? Cells(LstRow, "C").Formula = "=SUM(C4:C" & LstRow - 1 & ")" Cells(LstRow...

Trying to create a range variable that will be the next available cell in the column (after the last used cell in that column, or just below the last used cell in that column) When I step through the code, I get an error on the line of code that begins "Set LSTROW= ....." Can anyone help me...

Hi Can someone help me to correct my syntax below As i am getting error Wrong number of Arguements or Invalid property Arguement Dim a as Variant Dim matchValueString as String Dim curRow as Long Dim lstRow as Long a = Application.Match(matchValueString, (xWk.Range(Cells(3, curRow), Cells(3...