Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding 1
Hi
here's the scenario....... Default number = 06/0241 .... i have a userform (US1) with a button (CMD1), upon executing CMD1 ColumnA cellA1 in the worksheet must be selected and a number inserted i.e. 06/0241 + 1. thiss cell should now display 06/0242, upon 2nd execution of CMD cellA2 should display 06/0243 etc... is this posible to be done usin code.... Please assist |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding 1
something like the below might work:
'===================================== Private Sub CMD1_Click() Dim myRow As Integer myRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row If Range("A1") = "" Then Range("A1") = "06/0242" Else Cells(myRow + 1, 1) = "06/024" & myRow + 2 End If End Sub ===================================== Rgds J On Oct 18, 1:46 pm, Zaahir wrote: Hi here's the scenario....... Default number = 06/0241 .... i have a userform (US1) with a button (CMD1), upon executing CMD1 ColumnA cellA1 in the worksheet must be selected and a number inserted i.e. 06/0241 + 1. thiss cell should now display 06/0242, upon 2nd execution of CMD cellA2 should display 06/0243 etc... is this posible to be done usin code.... Please assist |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding 1
Function incr2nd(celltoinc As Range)
parts = Split(celltoinc, "/") incr2nd = parts(0) & "/" & Format(parts(1) + 1, "0000") End Function Sub test() x = incr2nd(ActiveCell) End Sub Regards, Stefi Zaahir ezt *rta: Hi here's the scenario....... Default number = 06/0241 .... i have a userform (US1) with a button (CMD1), upon executing CMD1 ColumnA cellA1 in the worksheet must be selected and a number inserted i.e. 06/0241 + 1. thiss cell should now display 06/0242, upon 2nd execution of CMD cellA2 should display 06/0243 etc... is this posible to be done usin code.... Please assist |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Adding using IF? | Excel Discussion (Misc queries) | |||
Help with adding 10% | Excel Worksheet Functions | |||
Adding every 5th row (e.g. B5 + B10 + B15 etc) | Excel Discussion (Misc queries) | |||
Adding Up! | Excel Discussion (Misc queries) | |||
Adding with & | Excel Worksheet Functions |