24. februar 2005 - 16:39Der er
4 kommentarer og 1 løsning
Stop makro når bestemte tegn er indeholdt i celle via makro
Jeg har en makro, der gemmer en Excel-fil og kalder den navnet i celle C5. Jeg har nogle problemer med specielt / da et firmanavn ofte indeholder A/S.
Hvordan får jeg makroen til at kontroller, at feltet ikke indeholder *!"#¤%&/()=?;:,. inden jeg gemmer?
Hvis et af tegnene er der, skal der komme en messegebox frem!
Her er starten af makroen:
Public Sub cmdGemSomLokal_Click() Dim Blank Dim OK Set x = Range("C5") If x = "" Then
'Hvis "C5" er " ", så kommer der en meddelse om at man skal skrive Kundenavn Blank = MsgBox(prompt:="Husk at skrive Kundenavn!", Title:="Meddelelse", Buttons:=vbInformation) Else 'Vises "Er du sikker" OK = MsgBox(prompt:="Er du sikker?", _ Title:="Gem", Buttons:=vbQuestion + vbYesNo) If OK = vbNo Then
If InStr(streng, "/") <> 0 Or _ InStr(streng, "-") <> 0 Or _ InStr(streng, "*") <> 0 Or _ InStr(streng, "!") <> 0 Or _ InStr(streng, """") <> 0 Or _ InStr(streng, "#") <> 0 Or _ InStr(streng, "¤") <> 0 Or _ InStr(streng, "%") <> 0 Or _ InStr(streng, "(") <> 0 Or _ InStr(streng, ")") <> 0 Or _ InStr(streng, "=") <> 0 Or _ InStr(streng, "?") <> 0 Or _ InStr(streng, ";") <> 0 Or _ InStr(streng, ":") <> 0 Or _ InStr(streng, ",") <> 0 Or _ InStr(streng, ".") <> 0 Then MsgBox "Der må ikke være specialtegn fx " & vbCrLf & "(-*!""#¤%&/()=?;:,.)" & vbCrLf & "i cellen" End If
Jeg har valgt at bruge Bak´ løsning, så vil du ligge et svar!
Jeg forstår ikke helt sammensætningen af "*[*!""""¤%&/()=?;:,.$]*"
Det første " er det for at fortælle at det er tekst? Det første * er det for at skrive "et eller andet sted i teksten" Hvorfor er der 4 " efter hinanden?
Hvor mon mit svar blev af ???? Det første " er det for at fortælle at det er tekst? JA Det første * er det for at skrive "et eller andet sted i teksten" JA Hvorfor er der 4 " efter hinanden? Fordi du også gerne vil finde " i teksten. Da " også er tekst og tekst er omkranset af " " bruges 4 stk til at fortælle excel at den skal finde ". Egentlig burde det kun have været 3 stk. men 4 virker
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.
