21. marts 2018 - 08:38Der er
6 kommentarer og 2 løsninger
Hjælp til vbakode
Hej Eksperter Jeg har brug for Jeres hjælp, har et regneark hvor der skal udfyldes nogle celler, som så bliver flyttet over i en database med en makro. Mit problem er når en medarbejder glemmer, at udfylde en eller flere celler og kører makroen, så har jeg en frygtelig bøvl med at få udfyldt de manglende celler i databasen. Så tænkte jeg om der er et klogt hoved herinde, der hjælpe med en vbakode der tester om celle B10, B13, B16, B19, B22 og B25 er udfyldte, hvis de alle er udfyldte skal den køre den eksisterende makro, hvis ikke skal der poppe en tekstbox op med teksten "Udfyld venligst alle celler"
If Range("B10").Value = "" Or _ Range("B13").Value = "" Or _ Range("B16").Value = "" Or _ Range("B19").Value = "" Or _ Range("B22").Value = "" Or _ Range("B25").Value = "" Then MsgBox "Udfyld venligst alle celler" Exit Sub End If
Lad selv de andre kode linjer for de øvrige celler, som du vil have testet på....
Set rng = Range("B10, B13, B16, B19, B22, B25 ") For Each cell In rng If cell.Value = "" Then MsgBox "Udfyld venligst celle " & cell.Address cell.Select Exit Sub End If Next
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.
