• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

vullen van textboxen

Status
Niet open voor verdere reacties.

AD1957

Verenigingslid
Lid geworden
27 feb 2016
Berichten
1.990
ik wil de textboxen in de userform achtereenvolgend vullen met de waardes in kolom A
dit dmv. willekeurig te klicken op de desbetreffende cellen.
Ben al een eind op weg, alleen dat laatste lukt niet.

wie helpt.

Groet
Albert
 
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = 1 To 7
    If UserForm_optellen_crediteuren("textbox" & i) = "" Then
     UserForm_optellen_crediteuren("textbox" & i) = Target.Value
     Exit For
    End If
 Next i
 Cancel = True
End Sub
 
hoi Harry,

Bedankt, werkt perfect, toch nog een probleempje.
De textboxen staan niet goed ingesteld.
De bedragen achter de komma worden niet meegenomen in de tellling.

Heeft waarschijnlijk iets te maken met numberformat?, ik weet echter niet hoe ik dit
goed moet krijgen, heb al van alles geprobeerd maar het lukt me niet.

Groet,
Albert
 
Bv.

Code:
Private Sub CommandButton1_Click()
Dim i As Long
TextBox8 = 0
   For i = 1 To 7
       If Me("textbox" & i) <> "" Then TextBox8 = TextBox8 + CDbl(Me("textbox" & i))
  Next i
  
 If MsgBox("KOMT TOTAAL OVEREEN MET BANKAFSCHRIFT ??", vbYesNo + vbCritical) = vbYes Then
      For i = 1 To 8
       Me("textbox" & i) = ""
      Next
  Else
MsgBox "zoek er een getal bij"
End If
 
Harry,
Bedankt voor de snelle reactie, het werkt perfect.
Groet,
Albert
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan