16. oktober 2006 - 14:49Der er
6 kommentarer og 2 løsninger
Hvis svar er No så skal det oprendelige tal sættes end
Hvis et tal bliver ændret i en celle har jeg lavet en MSGBox der sprørg om man vil bevare ændringen, hvis ikke skal det tal der stod der før sættes ind i cellen igen.
Jeg har lavet denne Makro men den sætter ikke det tal der stod der før ind igen ved svar No
If Target.Column = 2 And (Target.Offset(0, 9) <> "Tekst" Or Target.Offset(0, 10) <> "Ekstra udstyr") Then strConveyorType = Target.Offset(0, 9) test1 = Target svar = MsgBox("Er det Ok at antal er ændret", vbYesNo, "Antal er ændret") If svar = 7 Then Exit Sub
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Dim oprVærdi, chOn As Boolean Private Sub Worksheet_SelectionChange(ByVal Target As Range) oprVærdi = Target.Value chOn = True End Sub Private Sub worksheet_change(ByVal Target As Excel.Range) If Target.Column = 2 And (Target.Offset(0, 9) <> "Tekst" Or Target.Offset(0, 10) <> "Ekstra udstyr") Then strConveyorType = Target.Offset(0, 9) test1 = Target
If chOn = True Then svar = MsgBox("Er det Ok at antal er ændret", vbYesNo, "Antal er ændret") End If
If svar = 7 Then chOn = False Target.Value = oprVærdi End If End If End Sub
Hvis "If chOn = True Then" bliver ændret til "If chOn <> True Then" kommer MsgBox frem og Ja svar virker. Men nej svar virker ikke MsgBox forsvinder først når man trykker Ja.
Eller smid koden herind. Har kigget lidt med på sidelinjen, og Supertekst´s kode virker perfekt hos mig, så jeg er da lidt nysgerrig over hvad der driller i din kode
Lidt misforståelse ryddet af vejen - så fungerer den viste kode hos SanderJL.
Synes godt om
Ny brugerNybegynder
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.