/VBA/Vba find last row in range for certain criteria

Vba find last row in range for certain criteria

Excel vba last row of range

Dim rRange As Range
Dim rDuplicate As Range

Set rRange = ActiveSheet.UsedRange
lFirstRow = rRange.Row
lLastRow = rRange.Rows.Count + rRange.Row - 1
lFirstColumn = rRange.Column
lLastColumn = rRange.Columns.Count + rRange.Column - 1
' New reference to current range (can be truncated)
Set rDuplicate = Range(Cells(lFirstRow, lFirstColumn), _
      Cells(lLastRow, lLastColumn))

Vba find last row in range for certain criteria

Range("E3:E" & Cells(Rows.Count, "F").End(xlUp).Row) = DateSerial(Right(Range("Q1"), 2), 4, 1)

Source: mrexcel.com

Similar codes

1 vote202 views1 answer
Random number generator vb.net
VBA
0 vote211 views1 answer
Vba array of integers
VBA
1 vote204 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
13 votes477 views2 answers
Vba write text file
VBA
0 vote219 views1 answer
Vbnet round to nearnest thousand
VBA
1 vote203 views1 answer
Add control vb
VBA
0 vote204 views1 answer
Move bindingnavigator vb
VBA
-1 vote203 views1 answer
VBA check if a cell contains a letter or string
VBA
0 vote206 views1 answer
How to format a textbox as date vb net
VBA
0 vote205 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA