• 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.

vreemde getalnotatie in textbox

Status
Niet open voor verdere reacties.
Hoi VenA,
Als iemand de probleemstelling ivm. textbox10 oplost ben ik al tevreden.

Eventueel nog een aanpassing zodat ik textbox9 pas als laatste kan invullen

Ik kan het proces niet verder duidelijk maken

Groet en dank,
Albert
 
Ik kan wel het een en ander met userforms, maar ben zeker geen expert.
Iemand die dat volgens mij wel is, is gast0660, hoop voor jou dat hij meekijkt
 
gast0660 heeft me div. malen heel goed geholpen met andere bestanden, maar eens even afwachten.
Groet en dank aan iedereen,
Albert
(p.s. ik laat de vraag nog maar even openstaan)
 
Code: 
Sub M_reken()
     For j = 1 To 7
       If Me("textbox" & j) <> "" Then c00 = c00 + CDbl(Replace(Me("Textbox" & j), ".", "."))
     Next
    TextBox8 = c00
    TextBox10 = Format(CDbl(Replace(TextBox9, ".", ",")) - c00, "0.00")
    TextBox10.BackColor = IIf(Val(TextBox10) < 0, vbRed, IIf(Val(TextBox10) = 0, vbGreen, vbCyan))
    C_boek.Visible = Val(TextBox10) <> 0
End Sub
 
Hallo Harry,
Bedankt voor je reactie.
Ik had zelf al iets in elkaar gefrutseld (zie bijlage)
Ben echter nog niet tevreden maar kom er zelf niet uit.

1. Textbox9 moet ik altijd als eerste invullen (is er een mogelijkheid om deze als laatste in te vullen???)
Het is nml. vaak gewoon niet nodig om deze in te vullen, als het totaalbedrag juist is hoef ik geen verschil te boeken.

2. textbox1 t/m 7 moet ik steeds apart met dubbelklic vullen.
is het mogelijk om bijv. door een aantal cellen te selecteren meteen het totaalbedrag van deze cellen in één tekstbox te plaatsen.

Het werkt in ieder geval, maar is voor verbetering vatbaar.

Groet,
Albert
Bekijk bijlage 311787
 
Hallo Harry,

inmiddels heb ik alles alweer iets verbeterd.
ALs ik op verschil boeken klic, wordt zowel kolom bank als betalingsverschillen ingeboekt.

Tevens komt in kolom 3 de tekst ---betalingsverschil---- te staan en de cursor verspringt naar kolom A

Heeft heel wat uurtjes gekost(ben maar een leek) maar het was wel leerzaam.
De twee vragen die ik eerder gesteld heb krijg ik niet opgelost.
Groet,
Albert

Bekijk bijlage BOEKHOUDING TEST helpmij.xlsb
 
Hallo Albert,

De som van je geselecteerde cellen.
Code: 
MsgBox Evaluate("sum(" & Selection.Address & ")")
 
hoi Harry,
Met deze code stuur je me een heel andere kant op, sneller een volgens mij een stuk eenvoudiger als met de userform.

Vraagje:
kan de msgbox ook met een knop yesno

yes: ga naar de eerstvolgende lege cel in kolom A
no: vul het betaling van de bank(in het voorbeeld 1324,00) in en daarna het verschil boeken.

Ergens loop het niet goed ??
de hele code moet ik nog aanpassen, maar ik kom niet verder omdat vbyesno niet lukt.

groet,
Albert Bekijk bijlage optellen crediteuren msgbox.xlsb
 
Kolom A Albert?

Code: 
Sub optellencrediteuren()
Dim bedrag As Double
bedrag = Evaluate("sum(" & Selection.Address & ")")
  If MsgBox("IS HET TOTAAL JUIST?" & vbCrLf & vbCrLf & Space(10) _
 & "€ " & bedrag, vbYesNo + vbInformation) = vbYes Then Cells(Rows.Count, 1).End(xlUp).Offset(1) = bedrag
End Sub
 
ik ga er vanavond mee aan de slag, moet echt eens naar buiten.
Wat bedoel je met de vraag Kolom A
groet,
Albert
 
als vbyes dan naar kolom A eerste lege cel
als vbno: dan moet ik het totaalbedrag van de bank kunnen inbrengen dit vergelijken met de selectie.
het verschil moet dan geboekt worden in kolom "bank" en kolom "betalingsverschillen. (zie oude userform)
groet,
Albert
 
Zo maar eerst dan.
Vermeld later ook het bedrag en het verschil in welke textbox het moeten komen.

Code: 
Sub optellencrediteuren()
Dim bedrag As Double
bedrag = Evaluate("sum(" & Selection.Address & ")")
 If MsgBox("IS HET TOTAAL JUIST?" & vbCrLf & vbCrLf & Space(10) _
 & "€ " & bedrag, vbYesNo + vbInformation) = vbYes Then
   Cells(Rows.Count, 1).End(xlUp).Offset(1) = bedrag
 Else
 UserForm_optellen_crediteuren.Show
 End If
End Sub
 
Hoy Harry,
die userform wil ik nou niet helemaal niet meer gebruiken
bij vbno moet de code uitgevoerd worden die onder de opdrachtknop "boek het verschil" in de userform uitgevoerd worden.(zoals die er nu staat gaat het niet werken)
Ik moet wel eerst nog ergens het controlebedrag van de bank kunnen invullen (anders valt er niets te berekenen.

Zal vanavond proberen een en ander iets duidelijker uit te leggen.
Groet,
Albert
 
hoi Harry,
Ben inmiddels een heel eind op weg.
De code is natuurlijk veel te ingewikkeld (lekenwerk!)

wat moet er gebeuren:
selecteer cel E8:E11
rightclik
clik nee
vul bedrag in 1324 (verschil is dan -0.56)
boek het verschil
en hier gaat het mis:

het verschil moet in dit geval geboekt worden in cel E12 en CelF12
-----betalingsverschil----- in B12
krijg het niet voor elkaar en heb alweer jouw hulp nodig.

Groet,
AlbertBekijk bijlage optellen crediteuren msgbox.xlsb
 
hoi Cobbe,
Een hele verbetering.
De bedragen en de omschrijving ---betalingsverschil----- worden in de goede rij geboekt maar niet in de goede kolom.
bedragen moeten in kolom E en F
---betalingsverschil--- in kolom C (ps. in de vorige vraag had ik hier kolom B staan, foutje)
Wat ik ook mis: de cursor gaat na afloop van beide keuzes niet meer naar de laatste lege cel van kolom A

Ik zal de code eens gaan bestuderen en hoop eruit te komen.

Nog een vraagje: hoe voorkom ik dat vervelende popup venster na het aanklicken van de msgbox?
Groet,
Albert
 
Nog even voor JanBG,
Dank voor de moeite, maar ik wil niet teveel veranderen in het systeem van de boekhouding.
Deze heb ik nml. gemaakt voor mijn zoon die hier al bijna 10 jaar mee werkt.
Een compleet ander systeem van boekhouding zal voor hem een crime zijn.
Het heeft me al genoeg moeite gekost om hem aan het boekhouden te krijgen.

Groet,
Albert
 
Hoi Cobbe,
Ik had eerst eens even naar de code moeten kijken.
Heb nu alles goed, alleen nog even kijken hoe ik de cursor naar kolom A krijg.

en dat probleempje met dat vervelende popup venster.
 
Zo beter?

Code: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 Then
  optellencrediteuren
  Application.Goto Cells(Rows.Count, 1).End(xlUp).Offset(1)
  Cancel = True
End If
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan