Return value from function

[Certified]

Hi

How do I return a value to my sub procedure from a function?

I created two functions to get the last row and column of a worksheet. However, after the function is ran, it resets to zero. How do I save the function amount?

Option Explicit
Option Base 1
Dim colNm As String
Dim rowNum As Integer
Sub bu_Mapping()

Sheets("Write Sheet").Activate

Sheets("1. Voting Copy").Activate

    colNm = "A": rowNum = 1
    
    wColLastRow (colNm)
    
    wRowLastColNum (rowNum)

End Sub

Function wColLastRow(colNm As String) As Integer
    wColLastRow = Range(colNm & Rows.Count).End(xlUp).Row
End Function

Function wRowLastColNum(rowNum) As Integer
    wRowLastColNum = Range(colNm & rowNum).End(xlToRight).Column
End Function

 

[RoryA]

You need to assign the function result to another variable. Your sub doesn't do anything with the information so it's not really clear what you want, but your row function should return a Long, not Integer, and the lastColNum function needs to take the colNm as an argument as well.

 

[Leith Ross]

Hello Certified,

If you want to save to results to the worksheet, say A1 and B1, you would do this...

Option Explicit
Option Base 1
Dim colNm As String
Dim rowNum As Integer
Sub bu_Mapping()


Sheets("Write Sheet").Activate


Sheets("1. Voting Copy").Activate


    colNm = "A": rowNum = 1
    
    Range("A1").Value = wColLastRow (colNm)
    
    Range("B1").Value = wRowLastColNum (rowNum)


End Sub


Function wColLastRow(colNm As String) As Integer
    wColLastRow = Range(colNm & Rows.Count).End(xlUp).Row
End Function


Function wRowLastColNum(rowNum) As Integer
    wRowLastColNum = Range(colNm & rowNum).End(xlToRight).Column
End Function

 

[Certified]

Thanks. Works perfectly.