Jeg har en problemstilling jeg godt kunne tænke mig hjælp til:
Jeg har brug for at kontrollere om der er tomme celler i en kolonne. Det kunne være en kolonne hvor der skal indtastes en dato, efter endt indtastning vil det gerne kontrolleres om der i alle række er tastet en dato.
Jeg bruger lige pt. denne løsning som ikke er holdbar nok.
For i = 1 To 1000
If Cells(i + 7, 1) = "" Then If Cells(1 + 7, 8) <> "" Then Range(Cells(i + 7, 1), Cells(i + 7, 8)).Select a = MsgBox("Dato feltet i linje nr. " & i + 7 & " Er blankt!, Skal linjen slettes ", vbYesNo) If a = vbYes Then Cells(i + 7, 1).EntireRow.Delete End If
End If End If
Next i 10 Call bilag_fejl
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.