Question

Need help with creating an excel macro
when you click on the new button it would look in sheet2 in column c row 2 and find the last number that was input and then add 1 and return that new number in cell D3

so in sheet2 column c row 2 would be CI300 and it would add CI301 underneath and return that number in sheet1 column d row 3

Ive been trying to find examples for the past 2 days on something similar found a few but only one was close but it had errors and was not the same

thanks

Answer 1

This should work …

Sub Btn_NextNum_Click()
Dim KeyStart As Range, LastNum, NewNum

    Set KeyStart = Sheets("Sheet2").[C2]   ' bad bad hard coding, but you asked for it
    If KeyStart(2, 1) = "" Then
        LastNum = KeyStart
    Else
        LastNum = KeyStart(KeyStart.End(xlDown).Row - 1, 1)
    End If

    NewNum = "CI" & Val(Mid(LastNum, 3)) + 1

    If KeyStart(2, 1) = "" Then
        KeyStart(2, 1) = NewNum
    Else
        KeyStart(KeyStart.End(xlDown).Row, 1) = NewNum
    End If

    Sheets("Sheet1").[D3] = NewNum         ' bad bad hard coding, but you asked for it

End Sub

Note I hate hard coding of cell addresses … IMHO it would be better to use range names for the start of the key column and the output cell or direct the output to Selection so that the button places your NextNum whereever the cursor might be.