VBA melding in scherm van waarden cel

[Hylas]

nou ben wel aan het prutsen hoor

 

[edmoor]

Nogal ja en helemaal fout dus. Maar aan een plaatje heb ik niks om je te helpen.

 

[Hylas]

Sub afboeken()
  With Sheets("Afboeken")
    Sheets("Data").Columns(3).Find(.Range("B10"), , , 1).Offset(, 9) = .Range("B17")
    Sheets("Data").Columns(3).Find(.Range("B10"), , , 1).Offset(, 11) = .Range("B15")
End Sub
End With

Private Sub Worksheet_Change(ByVal Target As Range)
    With DelayMSG
        .Show False
        .Label1.Caption = Range("C8").Value
        Application.Wait (Now + TimeValue("0:00:05"))
        .Hide
    
End Sub

 

[edmoor]

Lees #20 nog eens.

 

[HSV]

Een msgbox die vanzelf weer verdwijnt.

Sub hsv()
    CreateObject("WScript.Shell").Popup "Deze popup duurt drie seconden.", 3, "Waarschuwing: Je moet niet op OK te klikken, duurt alleen weer drie seconden", vbCritical
End Sub

 

[Hylas]

bestand

Bekijk bijlage TRA-F-01 ontvangst grondstoffen 02-07-2017.xlsm zo heb ik het nu in het tabblad afboeken staan en gebruik hiervoor de knop afboeken in module 4

 

[edmoor]

Daar zit dus niet het userform in waar ik het eerder over had. Maak die er dus bij of gebruikt het voorbeeld van HSV.
Het gebruik van een userform geeft je echter meer vrijheid in het uiterlijk van het schermpje en de tekst.

 

[Hylas]

Ben al blij dat je me zo helpt, en ik leer er ook weer van, want ik borduur er weer op door en gebruik veel van dit soort oplossingen bij andere documenten