How to add days in date by macro

[K]

Hi all, I have TextBox1 on Sheet1 and in that TextBox1 I have date
like "15/02/2010". I made macro (see below) in which I tried to get a
date in cell A7 of Sheet2 which should be the date of 42 days ahead of
the date in TextBox1. My macro is not working and I am getting error
saying "Run-time error '13': Type mismatch". Please can any friend
help that what i am doing wrong.


Sub dd()
tx = Sheets("Sheet1").TextBox1.Value
With Sheets("Sheet2")
..Range("A7").Value = tx + 42
End With
End Sub

 

[Bob Phillips]

Try

Sub dd()
tx = Sheets("Sheet1").TextBox1.Text
With Sheets("Sheet2")
..Range("A7").Value = CDate(tx.Text) + 42
End With
End Sub

HTH

Bob

 

[Mike H]

Hi,

When you get your 'date' from the textbox it's a srtring and you have to
convert it to a date. Try this

Sub dd()
tx = Sheets("Sheet1").TextBox1.Value
Stop
With Sheets("Sheet2")
..Range("A7").Value = DateValue(tx) + 42
End With
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[Mike H]

Hmm,

And of course you don't need the STOP command I left in by mistake!!

Sub dd()
tx = Sheets("Sheet1").TextBox1.Value
With Sheets("Sheet2")
..Range("A7").Value = DateValue(tx) + 42
End With
End Sub

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[K]

Hi,

When you get your 'date' from the textbox it's a srtring and you have to
convert it to a date. Try this

Sub dd()
tx = Sheets("Sheet1").TextBox1.Value
Stop
With Sheets("Sheet2")
.Range("A7").Value = DateValue(tx) + 42
End With
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.






- Show quoted text -

Thanks guys. it works now