23. januar 2004 - 17:10Der er
2 kommentarer og 1 løsning
VBA koden virker ikke - hvorfor?
Jeg har en kode der skal teste indholdet af en celle og derefter aktivere 1 af 2 sub's, alt efter indholdet. Det virker bare ikke, den starter den samme sub uanset indholdet, gør jeg noget forkert?
Her er koden: Sub OK_ændring() ' Checker om alle felter er udfyldt
ScreenUpdating = False Sheets("liste").Select If Range("O2").Select = """True""" Then Medl1 Else Medl2 Sheets("Start").Select ScreenUpdating = True End Sub
Hvis jeg gør det, tager den bare den anden. I første omgang prøvede jeg med en hvis-formel, der skulle returnere teksten "True" eller "False" - deraf "". Efterfølgende har jeg prøvet med en OG-sætning, men lige lidt hjælper det. Det virker som om cellen ikke bliver checket.
Jeg kan ikke finde ud af, hvad der går galt med den første kode, men nu har jeg siddet og kigget lidt i hjælpefunktionen og fået konstrueret nedenstående kode der tilsyneladende gør arbejdet rigtigt.
Sub OK_ændring() ' Checker om alle felter er udfyldt
Screenupdating = False For Each c In Worksheets("Start").Range("C13:C17") If c = "" Then GoTo t1 Next c Medl1 t1: Medl2 Screenupdating = True End Sub
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.