Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketAdvarsel ved forkert valgt celle

 Besvar Besvar
Forfatter
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Emne: Advarsel ved forkert valgt celle
    Sendt: 06.Sep.2014 kl. 15:07

Hej

 

Jeg har et problem med en makro, som jeg skal bruge i en større sammenhæng.

Det jeg har lavet, virker efter hensigten, men koden bliver monster stor hvis den skal bruges efter hensigten.

Den skal nemlig bruges på mange Rows.

Jeg har vedhæftet et lille test program, med beskrivelse af hvad det skal kunne og det jeg har lavet.

 

Jeg håber, at der er nogen som kan hjælpe mig J

Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top



Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 06.Sep.2014 kl. 15:12
Excel filen kommer lige her.
 
 
Jeg bruger EXCEL 2010
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 06.Sep.2014 kl. 18:38
Hej Peter,
 
Jeg har lavet en ny kodestump til sig, som forhåbentlig gør det ønskede Smile
Bemærk at BlokerRedigering kan ændres fra FALSE (det er muligt at taste i cellen som udløser advarsel) og TRUE (det er ikke muligt at redigere cellen som udløser advarsel)
 
Håber du kan bruge det
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim BlokerRedigering As Boolean
BlokerRedigering = False 'Sættes denne til TRUE vil brugerenikke kunne taste i cellen
If Target.Row < 2 Or Target.Column > 2 Then Exit Sub
If Target.Column = 1 And InStr(1, Range("C" & Target.Row).Value, "ESDV") > 0 Then
    MsgBox "HUSK drift stilling på en ESDV !!!!", vbExclamation
    If BlokerRedigering = True Then Range("A1").Activate
End If
If Target.Column = 2 And InStr(1, Range("C" & Target.Row).Value, "BDV") > 0 Then
    MsgBox "HUSK drift stilling på en BDV !!!!", vbExclamation
    If BlokerRedigering = True Then Range("A1").Activate
End If
End Sub
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 06.Sep.2014 kl. 19:29
Hej Allan
 
Det er lige som det skal være.Smile
 
Jeg takker mange gange Clap
 
Mvh.
Peter
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 06.Sep.2014 kl. 20:56
Velkomme dejligt at du kunne bruge det.

//Allan
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 06.Sep.2014 kl. 21:28
Hej igen
Jeg har lige finpudset det lidt, så nu er det helt perfekt.
Nu er den ligeglad med store og små bogstaver og så skifter den over til den modsatte celle, hvis man har markeret den forkerte.
 
Men det er dig, som skal have æren for det.
 
Endnu engang tak Smile
 
Oploader det lige Clap
 
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk