Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to avoid: Error of run Time '13'
Hello,
I use follwing listing to insert two dates ina workbook: Sub InserimentoPeriodo() Dim DataInizio As Date Dim DataFine As Date If ActiveSheet.Name < "Rates1" Then Worksheets("Rates1").Activate End If DataInizio = InputBox("Inserisci la data di INIZIO periodo nel formato gg-mmm-aaaa", "Confronto Variazioni Prezzi", "1-mag-1997") If Year(DataInizio) < 1997 Then MsgBox "Usare solo date dell'anno 1997", vbOKOnly Exit Sub End If Range("E1").Value = DataInizio DataFine = InputBox("Inserisci la data di FINE periodo nel formato gg-mmm-aaaa", "Confronto Variazioni Prezzi", "10-set-1997") If Year(DataFine) < 1997 Then MsgBox "Usare solo date dell'anno 1997", vbOKOnly Exit Sub End If Range("E2").Value = DataFine End Sub If I answer to the imputbox question with "Cancel" I get the message: Error of run Time '13' How may avoid it? Thank you for helping -- dilettante |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to avoid: Error of run Time '13'
One solution would be to use "On Error GoTo Next" (without the qotemarks)
just before your IF statement. Another would be to include another IF statement that says If Data Inizio = "" Then (do something) End If" "dilettante" wrote: Hello, I use follwing listing to insert two dates ina workbook: Sub InserimentoPeriodo() Dim DataInizio As Date Dim DataFine As Date If ActiveSheet.Name < "Rates1" Then Worksheets("Rates1").Activate End If DataInizio = InputBox("Inserisci la data di INIZIO periodo nel formato gg-mmm-aaaa", "Confronto Variazioni Prezzi", "1-mag-1997") If Year(DataInizio) < 1997 Then MsgBox "Usare solo date dell'anno 1997", vbOKOnly Exit Sub End If Range("E1").Value = DataInizio DataFine = InputBox("Inserisci la data di FINE periodo nel formato gg-mmm-aaaa", "Confronto Variazioni Prezzi", "10-set-1997") If Year(DataFine) < 1997 Then MsgBox "Usare solo date dell'anno 1997", vbOKOnly Exit Sub End If Range("E2").Value = DataFine End Sub If I answer to the imputbox question with "Cancel" I get the message: Error of run Time '13' How may avoid it? Thank you for helping -- dilettante |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to avoid zero error in log log plot | Charts and Charting in Excel | |||
How to avoid error? | Excel Programming | |||
UDF/VBA Function, trap error, avoid #VALUE! | Excel Programming | |||
How to avoid an error dialog | Excel Programming | |||
Avoid error with simple subtraction function | Excel Programming |