28. oktober 2017 - 19:56Der er
3 kommentarer og 1 løsning
Tjekke om den efterladte celle er tom
Hej med Jer
Jeg har selv forsøgt at lave en VBA kode, som slet ikke fungere. Så håber lidt I kan hjælpe mig lidt. Koden virker sådan set fint nok, hvis ikke der er en formel på cellen. Men selvom cellen er tom, så skriver den det ikke. Jeg ønsker at, uanset om der er formel eller ej. Så længe cellen er tom, så skal den smide en msgbox.
Dim celle As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo MyEnd
Dim leaving As Range
For Each leaving In Range("A1:A10") If celle = leaving.Address And IsEmpty(leaving.Value) Then MsgBox leaving.Address & " ER ET TOM FELT", vbInformation, "TEST" End If Next leaving celle = ActiveCell.Address
Private Sub Worksheet_Change(ByVal Target As Range) If Target.HasFormula = False And Target.Text = "" Then MsgBox "Cellen " & Target.Address & " er efterladt tom" End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub If adr <> "" Then If IsEmpty(Range(adr).Value) Or Range(adr) = "" Then MsgBox "Celle " & adr & " ER ET TOM FELT", vbInformation, "TEST" End If adr = Target.Address End Sub
#excelent Kan man lave en macro, som kører hvergang man flytter rundt på cellerne. Således, at den tjekker om A1:A10 er blanke og hvis der cellerne i C1:C10 er data - så skal den rense hele vejen igennem fra A1:E10.
Noget i stil med: Target.Offset(0, 1).ClearContents Target.Offset(0, 2).FormulaLocal = "=HVIS.FEJL(B" & Target.Row & "/C" & Target.Row & ";"""")" Target.Offset(0, 3).ClearContents Target.Offset(0, 4).ClearContents
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.