Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by lgclims

  1. lgclims

    Find a letter

    For an answer using VBA see below. Sub test() Dim Found(255) 'array containing cells with letter at the end Dim r 'row Dim x 'array counter r = 1 x = 0 Do ActiveSheet.Cells(r, 1).Select If (Asc(UCase(Right(ActiveCell.Value, 1))) >= 65 And...
  2. lgclims

    Hide empty rows

    If sheets(destsh).Range(reportlocation) = null then Rows("r:r").EntireRow.Hidden = True end if where r = current row

Part and Inventory Search

Back
Top