Advarsel ved forkert valgt celle
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1796
Udskrevet den: 21.Nov.2024 kl. 19:10
Emne: Advarsel ved forkert valgt celle
Besked fra: zpjj
Emne: Advarsel ved forkert valgt celle
Posteringsdato: 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 |
Svar:
Besked fra: zpjj
Posteringsdato: 06.Sep.2014 kl. 15:12
|
Excel filen kommer lige her. uploads/856/Peter_TEST_ESDV.xlsm" rel="nofollow - uploads/856/Peter_TEST_ESDV.xlsm Jeg bruger EXCEL 2010 ------------- Med venlig hilsen Peter Juul Jeg bruger EXCEL 2010 |
Besked fra: Allan
Posteringsdato: 06.Sep.2014 kl. 18:38
|
Hej Peter, Jeg har lavet en ny kodestump til sig, som forhåbentlig gør det ønskede  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 ------------- MVH Allan https://www.excel-regneark.dk" rel="nofollow - Excel-regneark.dk - Gratis skabeloner til Excel Få over 120 ekstra funktioner med Danmarks bedste add-in |
Besked fra: zpjj
Posteringsdato: 06.Sep.2014 kl. 19:29
|
Hej Allan Det er lige som det skal være. Jeg takker mange gange  Mvh. Peter ------------- Med venlig hilsen Peter Juul Jeg bruger EXCEL 2010 |
Besked fra: Allan
Posteringsdato: 06.Sep.2014 kl. 20:56
|
Velkomme dejligt at du kunne bruge det. //Allan |
Besked fra: zpjj
Posteringsdato: 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 Oploader det lige uploads/856/Peter_TEST_ESDV1.xlsm" rel="nofollow - uploads/856/Peter_TEST_ESDV1.xlsm ------------- Med venlig hilsen Peter Juul Jeg bruger EXCEL 2010 |