/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

0 vote347 views1 answer
Excel vba protect worksheet without password
VBA
0 vote289 views1 answer
How to sort datagridview in vb.net
VBA
-1 vote355 views1 answer
Code for reading letters only in vb 6
VBA
0 vote330 views1 answer
Backspace key has stopped working visual studio
VBA
5 votes391 views1 answer
Vba low byte from INTEGER
VBA
3 votes323 views1 answer
Excel vba read registry key value
VBA
0 vote340 views1 answer
Vba sheet hide unhide
VBA
0 vote333 views1 answer
Ribbon show/hide
VBA
0 vote356 views1 answer
Vbnet convert charatcer to binary
VBA
2 votes334 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA