Problem med Makro hvis felt er tomt

Prøv med

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Target) Then
    If ((Target.Column = 10) Or (Target.Column = 15)) Then
        d = Target.Value
        MsgBox d

Msgbox d skal ikke med. Det var fra min test :-9

Fungerer desværre ikke... Den fortsætter ind i if-sætningen selv om jeg er ved at slette.

Det er når jeg vil tømme et fyldt felt. Altså vha. backspace/delete.

If Not IsEmpty(Target) or Target <>"" Then

Samme fejl :( Den fejler når jeg vil slette indholdet af et felt som er omfattet af koden.


Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Target) Or Target <> "" Then
    If ((Target.Column = 10) Or (Target.Column = 15)) Then
        d = Target.Value             
...
    End If
End If
End Sub


HJÆLP!!

Jeg kan ikke se, hvad der skulle være galt. Denne kode virker fint

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not IsEmpty(Target) Or Target <> "" Then
        If ((Target.Column = 10) Or (Target.Column = 15)) Then
            d = Target.Value
        MsgBox d
        End If
    End If
End Sub

så måske ligger problemet i selve dine kodelinjer. I hvilkenc linje fejler den?

Altså det kan godt være jeg er komplet åndssvag, men nu har jeg kogt koden ned til følgende (Det er alt koden). Har vendt rundt på tjek for tomt felt.

Private Sub Worksheet_Change(ByVal Target As Range)
If ((Target.Column = 10) Or (Target.Column = 15)) Then
    If Not IsEmpty(Target) Or Target <> "" Then

    End If
End If
End Sub

Denne fejler hvis jeg sletter indholdet i et felt (delete). Får en "Run-Time error '13': Type mismatch. Og så markerer den med gult linjen hvor der tjekkes for IsEmpty.!

/MHQ

H'øjasr besyndetligt. Hos mig kører din kode helt perfekt uden fejl. Har du evt. mulighed for at sende mig dit konkrete regneark?

Hej igen,

Tror sq jeg har fundet ud af det... Det sker kun når jeg rammer et felt som er flettet over flere rækker... eks. (C1,C2,C3) flettet til et felt. Det virker perfekt bortset fra når man deleter... findes der en work-around til det??

/MHQ

Problemet ligger i, at Excel ikke opfatter en flettet celle som én celle, men som et range besåtende af alle de celler, der er flettet sammen.

Flettede celler giver tit problemer i makroer, men jeg kigger lige lidt nærmere på den.

Ja, det kunne jeg næsten forstå. Jeg kan bare ikke rigtig komme udenom det. Det virker sjovt nok fint i alle andre tilfælde end ved at slette.

/MHQ

Prøv med

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 10 Or Target.Column = 15 Then
        If Not IsEmpty(Target) Or Target <> "" Then
            MsgBox "The cell content has been changed"
        End If
    End If
End Sub

SÅDAN!! Det er simpelthen kanon !

Godt klaret !

Smid et svar!

et svar :-)

en rigtigt svar :D

Sådan kan det gå, når eftermiddagstræthende sænker sig :-)