VBA melding in scherm van waarden cel

[Hylas]

Hoi,

ik ben op zoek naar een melding waarin de waarden van een bepaalde cel in het scherm bijv 1 sec zichtbaar zijn als bijgaande code is uitgevoerd, is dat mogelijk

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 With
End Sub

 

[edmoor]

Maak een formulier met de naam DelayMSG en zet daarin 1 label control. Vanuit je code kan je dan dit doen:

With DelayMSG
    .Show False
    .Label1.Caption = Range("A1").Value
    Application.Wait (Now + TimeValue("0:00:01"))
    .Hide
End With

 

[Hylas]

Ik dacht dat ik het meer kon vinden in MsgBox aan het eind van de code

Maak een formulier met de naam DelayMSG en zet daarin 1 label control. Vanuit je code kan je dan dit doen:

With DelayMSG
    .Show False
    .Label1.Caption = Range("A1").Value
    Application.Wait (Now + TimeValue("0:00:01"))
    .Hide
End With

 

[edmoor]

Een MsgBox verdwijnt niet na een opgegeven aantal seconden. En een formuliertje ter grootte van, of kleiner dan een MsgBox is toch geen enkel probleem? Dat stukje code wat ik plaatste kan je ook zo aan het einde van je code toevoegen.

 

[Hylas]

Een MsgBox verdwijnt niet na een opgegeven aantal seconden. En een formuliertje ter grootte van, of kleiner dan een MsgBox is toch geen enkel probleem? Dat stukje code wat ik plaatste kan je ook zo aan het einde van je code toevoegen.

ik krijg dan deze fout

 

[edmoor]

Dan heb je vast geen label object met de naam Label1 aangemaakt. Tevens moet die code niet in het formulier staan maar in je eigen code, zoals ik al zei.

NB:
Quoten is niet nodig als je direct op een vorig bericht reageert.

 

[Hylas]

Dan begrijp ik niet goed hoe je een label control moet maken in het formulier

 

[edmoor]

Plaats je document of een relevant voorbeeld er van.

 

[Hylas]

bestand

Bekijk bijlage Kopie ontvangst grondstoffen.xlsm

 

[edmoor]

En op welk blad moet dat dan gebeuren?

 

[Hylas]

Op het tabblad afboeken

 

[edmoor]

Volgens je code wil je dan de inhoud van B14 tonen, dat is op dat blad een verborgen en lege cel.

 

[Hylas]

Nee heb voor de test gewoon iets willekeurig gedaan het gaat er om dat de invoerder ziet dat hij een aantal stikstof kg heeft geristreerd, een bevestiging als hij op een knop druk dat uitgevoerd is

 

[edmoor]

Dat mag je dan zelf invullen, ik heb er even C8 van gemaakt.
De code zit achter het blad Afboeken.
Bekijk bijlage Kopie van ontvangst grondstoffen.xlsm

 

[Hylas]

Ik snap nu wat je gedaan hebt en een beetje hoe het in elkaar steekt, misschien heb ik de vraagstelling niet goed verwoord, ik zoek het het juist als de knop afboeken word gebruikt dan boekt hij een aantal gegevens af, met als je op de knop drukt is het definitief en dan is het een bevestiging wat hij precies heeft afgeboekt, het gaat dus om de knop afboeken zoals in de code hierboven staat

 

[edmoor]

Dan zet je die code toch achter die knop?

 

[Hylas]

Hoi Edmoor, ik heb nu weer ff de tijd ;-) maar heb je oplossing geprobeerd maar dat kan niet hoor dan krijg ik de gekste foutmelding

 

[edmoor]

Dan doe je het niet goed want het werkt prima.

 

[Hylas]

gewoon achter de code zoals boven, ik ga het proberen man ;-)

 

[edmoor]

Plaats anders je document zoal je deze nu hebt.