Waarde vergelijken van een Textbox en Cellen op diverse tabbladen

[AdOAdO]

@emields

Waarom krijg ik de foutmelding dan?

 

[VenA]

Zeer waarschijnlijk is er dan iets niet geheel compleet. Waarom werkende code verbasteren tot iets wat niet werkt? Waarom bestudeer je de aangedragen opties niet? Gegevensvalidatie voorkomt foute invoer. Hoef je dan niet meer af te vangen in de code.
Spelen met VBA is leuk maar dan moet je wel een beetje basiskennis hebben.

With iets
  code
[COLOR="#FF0000"]End With[/COLOR]

If voorwaarde Then actie1 Else actie2

If voorwaarde Then
  actie1
 Else
  actie2
[COLOR="#FF0000"]End If[/COLOR]

 

[AdOAdO]

Helaas kom ik er zo niet uit.
Ik weet niet meer wat ik zou moeten veranderen dat het gaat werken.
Is er een mogelijkheid dat iemand via helpmij.nl op afstand mee kijkt?

 

[emields]

plaats eens je volledige code

 

[AdOAdO]

Private Sub knp_invoegen_Click()


Dim tot As Long

tot = Range("totalen") - 1
rgo = tb_rijnummer_vrije_invoer.Value


If tb_rijnummer_vrije_invoer > tot Then
MsgBox "test", vbCritical, "Waarschuwing"

Else


If tb_rijnummer_vrije_invoer = emptry Then
MsgBox "test1", vbCritical, "Waarschuwing"

Else


If tb_rijnummer_vrije_invoer < 42 Then
MsgBox "test2, vbCritical, "Waarschuwing"

Else

Range("B37").EntireRow.Copy

Cells(tb_rijnummer_vrije_invoer).Rows(tb_rijnummer_vrije_invoer).EntireRow.Insert

Cells(tb_rijnummer_vrije_invoer.Value, 2).Value = tb_MMW_nr_vrije_invoer

Cells(tb_rijnummer_vrije_invoer.Value, 3).Value = tb_vrije_invoer

Cells(tb_rijnummer_vrije_invoer.Value, 4).Value = "st."

Cells(tb_rijnummer_vrije_invoer.Value, 5).Value = ""

Cells(tb_rijnummer_vrije_invoer.Value, 6).Value = tb_omschrijving_vrije_invoer

Cells(tb_rijnummer_vrije_invoer.Value, 8).Value = cb_status

Cells(tb_rijnummer_vrije_invoer.Value, 29).Value = tb_prijs_vrije_invoer

Cells(tb_rijnummer_vrije_invoer.Value, 29) = CDbl(tb_prijs_vrije_invoer)

Cells(tb_rijnummer_vrije_invoer.Value, 30).Value = tb_prijs_vrije_invoer

Cells(tb_rijnummer_vrije_invoer.Value, 30) = CDbl(tb_prijs_vrije_invoer)

If cb_status.Value = "JA" Then
Cells(tb_rijnummer_vrije_invoer.Value, 16).Value = tb_prijs_vrije_invoer
Cells(tb_rijnummer_vrije_invoer.Value, 17).Value = tb_prijs_vrije_invoer
End If

If cb_status.Value = "NEE" Or cb_status.Value = "Prijs ingediend" Then
Cells(tb_rijnummer_vrije_invoer.Value, 16).Value = Empty
Cells(tb_rijnummer_vrije_invoer.Value, 17).Value = Empty
End If

Cells(tb_rijnummer_vrije_invoer.Value, 2).EntireRow.Hidden = False

Cells(rgo, 2).Select


Unload Vrije_invoer

End If
End If
End If
End Sub

 

[VenA]

Laatste poging:

Een voorbeeldbestand is iets anders dan een kladblok.