MsgBox - pop up

I arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("Omrade"), Target) Is Nothing Then
        If Target = "SH" Then MsgBox ("OK")
    End If
End Sub

hej kabbak

det virker efter hensigten, men kan man få det indbygget således, hvis indholdet i en af cellene i det navngivet område blive slettet, at der ikke kommer en fejlbesked på skærmen.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("Omrade"), Target) Is Nothing Then
    Dim Cell As Range
        For Each Cell In Target.Cells
            If Cell = "SH" Then MsgBox ("OK")
        Next
    End If
End Sub

jeg har prøvet at tilføje en ekstra "betingelse, men jeg får fejl

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("AV"), Target) Is Nothing Then
    Dim Cell_AV As Range
        For Each Cell In Target.Cells
            If Cell_AV = "SV" Or Cell = "sv" Then MsgBox ("OBS! Der skal betales skyggeløn. Personalet foretager beregningen.")
        Next
    End If
   
  If Not Intersect(Range("Sum_FT"), Target) Is Nothing Then
    Dim Cell_FT As Range
        For Each Cell In Target.Cells
            If Cell_FT = "ja" Then MsgBox ("OBS! .")
        Next
    End If
   
End Sub


Hvordan skal koden se ud?

If Cell_FT = "ja" Then MsgBox ("OBS! .")
skal være

  If Cell = "ja" Then MsgBox ("OBS! .")

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("AV"), Target) Is Nothing Then
    Dim Cell_AV As Range
        For Each Cell In Target.Cells
            If Cell_AV = "SV" Or Cell = "sv" Then MsgBox ("OBS! Der skal betales skyggeløn. Personalet foretager beregningen.")
        Next
    End If
 
  If Not Intersect(Range("Sum_FT"), Target) Is Nothing Then
    Dim Cell_FT As Range
        For Each Cell_FT In Target.Cells
            If Cell_FT = "ja" Then MsgBox ("OBS! .")
        Next
    End If
 
End Sub

her er den rettet

jeg har rettet til i den sidste du lavede, for ellers vil den ikke virke rigtig, men jeg kan stadig ikke få den sidste betingelse til at virke rigtig, der poppe ikke en meddelse op på skærmen, når en af cellerne i området "SUM_FT" automatisl bliver udfyldt med ja/nej, når en betingelse (lavet med en hvis formel) er opfyldt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("AV"), Target) Is Nothing Then
    Dim Cell_AV As Range
        For Each Cell In Target.Cells
            If Cell = "SV" Or Cell = "sv" Then MsgBox ("OBS! Der skal betales skyggeløn. Personalet foretager beregningen.")
        Next
    End If
 
  If Not Intersect(Range("Sum_FT"), Target) Is Nothing Then
    Dim Cell_FT As Range
        For Each Cell_FT In Target.Cells
            If Cell = "ja" Then MsgBox ("OBS! .")
        Next
    End If
 
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("AV"), Target) Is Nothing Then
    Dim Cell_AV As Range
        For Each Cell In Target.Cells
            If UCase(Cell) = "SV" Then MsgBox ("OBS! Der skal betales skyggeløn. Personalet foretager beregningen.")
        Next
    End If

  If Not Intersect(Range("Sum_FT"), Target) Is Nothing Then
    Dim Cell_FT As Range
        For Each Cell_FT In Target.Cells
            If UCase(Cell_FT) = "JA" Then MsgBox ("OBS! .")
        Next
    End If

End Sub

jeg takker for løsningen.

Er det muligt, at MsgBox kun skal dukke op, hvis en bestemt celle, hvor der er lavet en hvis formel (HVIS(a1="SV";HVIS(SUM(B1:G1)>0;1;0);"")), viser resultatet af hvis betingelsen.

fx. der tastet SV i celle a1 og c1 - her skulle der meget gerne poppe en besked op. er dette muligt

  a    b    c    d    e    f    g    h
1 SV        1                        her står hvis formel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("AV"), Target) Is Nothing Then
        Dim Cell As Range
        For Each Cell In Target.Cells
            If UCase(Cell) = "SV" And Cells(Target.Row, "H") <> "" Then
                MsgBox ("OBS! Der skal betales skyggeløn. Personalet foretager beregningen.")
            End If
        Next
    End If

    If Not Intersect(Range("Sum_FT"), Target) Is Nothing Then
        Dim Cell_FT As Range
        For Each Cell_FT In Target.Cells
            If UCase(Cell_FT) = "JA" Then MsgBox ("OBS! .")
        Next
    End If

End Sub

If Not Intersect(Range("NFT_PK"), Target) Is Nothing Then
        Dim Cell_PK2 As Range
        For Each Cell_PK2 In Target.Cells
            If UCase(Cell_PK2) > 0 And Cells(Target.Row, "AP") = 2 Then
                MsgBox ("OBS! Der kan ikke indstilles flere tillæg til denne funktion.")
                Cell.Selection.ClearContents
            End If
        Next
    End If

Hvordan kan jeg kode sådan, at den valgte celle automatisk (indenfor den valte celle i det navngivet område) blive slettet, efter at MsgBox er blevet vist.

hvordan laver man linjeskift i en msgbox

Carrie return og linjeskift: vbCrLf
MsgBox ("OBS! Der kan ikke indstilles" & vbCrLf & " flere tillæg til denne funktion.")

eller
Linjeskift:  vbLf
MsgBox ("OBS! Der kan ikke indstilles" & vbLf & " flere tillæg til denne funktion.")

Cell.Selection.ClearContents
skal være

Cell_PK2.ClearContents

NB, Hold tjek på dine navne

Hej kabbak, kan du ikke komme med et svar, så kan lukke denne ned.

Jeg takker for dit hjælp.