Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
Function FindRangeRowColumn(xlRange As Range, BeginLastcell As String) As String Dim Firstrow As Long, lastRow As Long, firstCol As Long, LastCol As Long, strFirstCell As String, strLastCell As String Dim lRow As Long, lCol As Integer, mRow As Long, mCol As Integer lCol = xlRange.Columns.Count mRow = 0 For i = 1 To lCol lRow = Range(Cells(xlRange.Rows.Count, i), Cells(xlRange.Rows.Count, i)).End(xlUp).Row If lRow > mRow Then mRow = lRow mCol = i Else End If Next i lastRow = mRow LastCol = xlRange.Find(What:="*", After:=xlRange.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Column strFirstCell = BeginLastcell strLastCell = Cells(lastRow, LastCol).Address(False, False) FindRangeRowColumn = strFirstCell + ":" + strLastCell lastRow = mRow end function
|In Excel 2010, how do I to use countif for a number of tabs listed on the first sheet of a spreadsheet?||4||28|
|Sum Per Month||7||23|
|Excel 2013 Drop down help with data||3||36|
|Excel - If every cell in row has "Done" then give a 100%||8||23|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
24 Experts available now in Live!