Avatar billede Torben1970 Nybegynder
22. september 2015 - 17:12 Der er 4 kommentarer og
1 løsning

Fortsæt hvis der indtastes et tal

Hej.

Jeg har en makro i Excel, der laver nogle sorteringer for brugerne, alt afhængig af hvilket tal de taster i en celle.

Hvis brugeren ikke taster et tal, ønsker jeg at der kommer en popup box frem og beder om at der tastes et tal.

Nedenstående er et stykke af makroen som udløser popup boksen hvis cellen er tom, men hvilken kommando skal jeg skrive for at det sker hvis alt andet end tal tastes?

Mvh.
Torben

If Range("J7") = "" Then
   

MsgBox "HOVSA - Kun tal kan bruges her :-)"
Avatar billede store-morten Ekspert
22. september 2015 - 17:57 #1
Prøv:

Sub test()
If Not IsNumeric(Range("J7")) Then
MsgBox "HOVSA - Kun tal kan bruges her :-)" _
& vbNewLine & "Prøv igen"
Range("J7").Clear
Range("J7").Select
End If
End Sub

Hvad med Datavalidering
Avatar billede claes57 Ekspert
22. september 2015 - 18:03 #2
Avatar billede store-morten Ekspert
22. september 2015 - 19:02 #3
Avatar billede Torben1970 Nybegynder
24. september 2015 - 14:43 #4
Hej store-morten

Tak for input vedr. Datavalidering.
Den løsning egner sig perfekt til mit projekt, jeg havde bare slet ikke tænkt på det.

Skriv et svar så jeg kan give point og lukke tråden.

Mvh.
Torben
Avatar billede store-morten Ekspert
24. september 2015 - 16:42 #5
Velbekomme 😃
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



IT-JOB

Udviklings- og Forenklingsstyrelsen

Erfarne udviklere til agilt udviklingsteam

Cognizant Technology Solutions Denmark ApS

Senior Delivery Manager

Netcompany A/S

Test Specialist