Started by diagostimo, April 28, 2012, 09:28:12 pm
Sub Macro1() Dim t t = Split(Worksheets("Sheet1").Range("d5").Text, "/") t(0) = Format(t(0) + 1, "0") Worksheets("Sheet1").Range("d5") = Join(t, "/")'End SubSub Macro2() Dim t t = Split(Worksheets("Sheet1").Range("d5").Text, "/") t(0) = Format(t(0) - 1, "0") Worksheets("Sheet1").Range("d5") = Join(t, "/")'End Sub '
Sub Macro1() Dim t t = Split(Worksheets("Sheet1").Range("d5").Text, "/") If Not t(0) = 5 Then t(0) = Format(t(0) + 1, "0") Worksheets("Sheet1").Range("d5") = Join(t, "/") End If'End SubSub Macro2() Dim t t = Split(Worksheets("Sheet1").Range("d5").Text, "/") If Not t(0) = 0 Then t(0) = Format(t(0) - 1, "0") Worksheets("Sheet1").Range("d5") = Join(t, "/") End If'End Sub '