200+ Video Lessons
50+ Hours of Video
200+ Excel Guides
Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)
Hi
I have this code
Option Explicit
Dim vT As String, vT2 As String
Sub OnePlus()
vT = [G6]
vT2 = Trim(Mid(vT, 7, Len(vT) - 1))
[G6] = Left(vT, 7) & CLng(vT2) + 1
End Sub
in G6 I have A 2345678
what I expect to incerement the last number like A2345679 but will show this
A 23456679 and this A 234566679
so how can i fix it guys?
hi Halk
If you need "A 23456680" putting back in G6, use RIGHT instead, so:
Option Explicit
Dim vT As String, vT2 As String
Sub OnePlus()
vT = [G6]
'vT2 = Trim(Mid(vT, 7, Len(vT) - 1))
vT2 = Trim(Right(vT, 3))
'write back to cell
[G6] = Left(vT, 7) & CLng(vT2) + 1
End Sub