Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Microsoft error
Hi!
I have this code: Private Sub ComboBox3_Click() Range("priskalk!$L$12").Value = ComboBox3.Value pr_ekstrapris pr_pakkepris pr_hotelpris If hotelpris < "" Then txt_hotel.Text = hotelpris txt_hotel.Enabled = False End If End Sub And its working But if i change the code into a IF then i get this Microsoft error and excel crass The code i use is: Private Sub ComboBox3_Click() Range("priskalk!$L$12").Value = ComboBox3.Value If fradato.Text < "" And Tildato.Text < "" Then pr_ekstrapris pr_pakkepris pr_hotelpris If hotelpris < "" Then txt_hotel.Text = hotelpris txt_hotel.Enabled = False End If End If End Sub And the only diff between the first code and yhe next is: If fradato.Text < "" And Tildato.Text < "" Then I don't understand why ? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Microsoft error
Let us know what the error is and in which line
Few suggestions 1. Declare your variables and use 'Option Explicit' statement 2. Getinto break mode F8 and anlayse in which line in breaks If this post helps click Yes --------------- Jacob Skaria "alvin Kuiper" wrote: Hi! I have this code: Private Sub ComboBox3_Click() Range("priskalk!$L$12").Value = ComboBox3.Value pr_ekstrapris pr_pakkepris pr_hotelpris If hotelpris < "" Then txt_hotel.Text = hotelpris txt_hotel.Enabled = False End If End Sub And its working But if i change the code into a IF then i get this Microsoft error and excel crass The code i use is: Private Sub ComboBox3_Click() Range("priskalk!$L$12").Value = ComboBox3.Value If fradato.Text < "" And Tildato.Text < "" Then pr_ekstrapris pr_pakkepris pr_hotelpris If hotelpris < "" Then txt_hotel.Text = hotelpris txt_hotel.Enabled = False End If End If End Sub And the only diff between the first code and yhe next is: If fradato.Text < "" And Tildato.Text < "" Then I don't understand why ? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Microsoft error
Yes but thats the problem
I don't get what error, i just get this microsoft error, where i can say yes to send the error. But i solve it this way: If fradato.Text < "" And Tildato.Text < "" Then i change to If formname.fradato.Text < "" And formname.Tildato.Text < "" Then Alvin "Jacob Skaria" skrev: Let us know what the error is and in which line Few suggestions 1. Declare your variables and use 'Option Explicit' statement 2. Getinto break mode F8 and anlayse in which line in breaks If this post helps click Yes --------------- Jacob Skaria "alvin Kuiper" wrote: Hi! I have this code: Private Sub ComboBox3_Click() Range("priskalk!$L$12").Value = ComboBox3.Value pr_ekstrapris pr_pakkepris pr_hotelpris If hotelpris < "" Then txt_hotel.Text = hotelpris txt_hotel.Enabled = False End If End Sub And its working But if i change the code into a IF then i get this Microsoft error and excel crass The code i use is: Private Sub ComboBox3_Click() Range("priskalk!$L$12").Value = ComboBox3.Value If fradato.Text < "" And Tildato.Text < "" Then pr_ekstrapris pr_pakkepris pr_hotelpris If hotelpris < "" Then txt_hotel.Text = hotelpris txt_hotel.Enabled = False End If End If End Sub And the only diff between the first code and yhe next is: If fradato.Text < "" And Tildato.Text < "" Then I don't understand why ? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Microsoft error
You can even try
Me.fradato.Text -- If this post helps click Yes --------------- Jacob Skaria "alvin Kuiper" wrote: Yes but thats the problem I don't get what error, i just get this microsoft error, where i can say yes to send the error. But i solve it this way: If fradato.Text < "" And Tildato.Text < "" Then i change to If formname.fradato.Text < "" And formname.Tildato.Text < "" Then Alvin "Jacob Skaria" skrev: Let us know what the error is and in which line Few suggestions 1. Declare your variables and use 'Option Explicit' statement 2. Getinto break mode F8 and anlayse in which line in breaks If this post helps click Yes --------------- Jacob Skaria "alvin Kuiper" wrote: Hi! I have this code: Private Sub ComboBox3_Click() Range("priskalk!$L$12").Value = ComboBox3.Value pr_ekstrapris pr_pakkepris pr_hotelpris If hotelpris < "" Then txt_hotel.Text = hotelpris txt_hotel.Enabled = False End If End Sub And its working But if i change the code into a IF then i get this Microsoft error and excel crass The code i use is: Private Sub ComboBox3_Click() Range("priskalk!$L$12").Value = ComboBox3.Value If fradato.Text < "" And Tildato.Text < "" Then pr_ekstrapris pr_pakkepris pr_hotelpris If hotelpris < "" Then txt_hotel.Text = hotelpris txt_hotel.Enabled = False End If End If End Sub And the only diff between the first code and yhe next is: If fradato.Text < "" And Tildato.Text < "" Then I don't understand why ? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Microsoft windows Error | Excel Discussion (Misc queries) | |||
Microsoft Windows Error | Excel Discussion (Misc queries) | |||
Error using "IF" in Microsoft Excel | Excel Worksheet Functions | |||
Error following Microsoft Article | Excel Programming | |||
Microsoft Excel Error | Excel Programming |