Start makro når celle ændres

Prøv med:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("$BQ$23").Value <> "" Then
[Udfør din makro]
End If
End Sub

Hej natkatten

Der sker ikke noget. Jeg fik først en besked om "Ambiguous name",
og skiftede derfor navn til:

Private Sub Worksheet_Change1(ByVal Target As Range)

Altså med 1 efter change. Jeg har nemlig en anden Private sub Worksheet change procedure ovenover. Ved ikke om det har nogen betydning, men der var ingen protester, men altså heller ingen handling.

Prøv at vise den "første" Worksheet_Change med kode.

Hej supertekst
Her er første kode:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
  Dim DoSendSMS As Boolean
    Dim besked As String
    Dim result As String
    DoSendSMS = False
    For Each c In Application.Names("WatchArea").RefersToRange.Cells
        If c <> "" Then
            DoSendSMS = True
            besked = besked & c.Text & " "
        End If
    Next
    If DoSendSMS Then
        For Each c In Application.Names("Specialtegn").RefersToRange.Cells
            besked = Replace(besked, c.Value, c.Offset(0, 1).Value)
        Next
        besked = Replace(besked, Chr(10), "%0A%0D") 'Håndtering af linjeskift
         
        If Len(besked) > 459 Then
          ' MsgBox "Besked for lang " & Len(besked) & vbCrLf & besked
            besked = "For mange data til, at de kunne sendes"
        End If
        'result = sendSMS(Application.Names("SendFra").RefersToRange.Value, Application.Names("SendTil").RefersToRange.Value, besked)
    End If
End Sub

Du kan kun have en Worksheet_Change i arket. Du er derfor nødt til at skrive koden sammen.

Måske kan dette bruges:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
  Dim DoSendSMS As Boolean
    Dim besked As String
    Dim result As String
    DoSendSMS = False
   
    If Target.Address = "$BQ$23" And IsNumeric(Target.Value) = True Then
        testMakro
    Else
        For Each c In Application.Names("WatchArea").RefersToRange.Cells
            If c <> "" Then
                DoSendSMS = True
                besked = besked & c.Text & " "
            End If
        Next
        If DoSendSMS Then
            For Each c In Application.Names("Specialtegn").RefersToRange.Cells
                besked = Replace(besked, c.Value, c.Offset(0, 1).Value)
            Next
            besked = Replace(besked, Chr(10), "%0A%0D") 'Håndtering af linjeskift
             
            If Len(besked) > 459 Then
              ' MsgBox "Besked for lang " & Len(besked) & vbCrLf & besked
                besked = "For mange data til, at de kunne sendes"
            End If
            'result = sendSMS(Application.Names("SendFra").RefersToRange.Value, Application.Names("SendTil").RefersToRange.Value, besked)
        End If
    End If
End Sub
Private Sub testMakro()
    MsgBox "BQ23 indeholder nu et tal"
End Sub

Hej jkrons

Jeg har flettet koden ind i bunden af den første Worksheet_Change
Men der sker stadig ikke noget. Hvordan vil du skrive den sammen?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
  Dim DoSendSMS As Boolean
    Dim besked As String
    Dim result As String
    DoSendSMS = False
    For Each c In Application.Names("WatchArea").RefersToRange.Cells
        If c <> "" Then
            DoSendSMS = True
            besked = besked & c.Text & " "
        End If
    Next
    If DoSendSMS Then
        For Each c In Application.Names("Specialtegn").RefersToRange.Cells
            besked = Replace(besked, c.Value, c.Offset(0, 1).Value)
        Next
        besked = Replace(besked, Chr(10), "%0A%0D") 'Håndtering af linjeskift
         
        If Len(besked) > 459 Then
          ' MsgBox "Besked for lang " & Len(besked) & vbCrLf & besked
            besked = "For mange data til, at de kunne sendes"
        End If
        'result = sendSMS(Application.Names("SendFra").RefersToRange.Value, Application.Names("SendTil").RefersToRange.Value, besked)
     
        If Range("$BQ$23").Value <> "" Then
Makro4
End If
   
    End If
End Sub

Til supertekst

Du har også flettet de to koder ( der intet har med hinanden at gøre), sammen. Jeg ser du bruger "Else". Betyder det så ikke at hvis udsagnet er sandt så udføres makro4, men ikke den "første", worksheet change kode?

Ja..

Det er jo ikke så godt. De skal virke begge to.

Er dette bedre?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
  Dim DoSendSMS As Boolean
    Dim besked As String
    Dim result As String
    DoSendSMS = False
   
    If Target.Address = "$BQ$23" And IsNumeric(Target.Value) = True Then
        testMakro
    End If
   
    For Each c In Application.Names("WatchArea").RefersToRange.Cells
        If c <> "" Then
            DoSendSMS = True
            besked = besked & c.Text & " "
        End If
    Next
    If DoSendSMS Then
        For Each c In Application.Names("Specialtegn").RefersToRange.Cells
            besked = Replace(besked, c.Value, c.Offset(0, 1).Value)
        Next
        besked = Replace(besked, Chr(10), "%0A%0D") 'Håndtering af linjeskift
         
        If Len(besked) > 459 Then
          ' MsgBox "Besked for lang " & Len(besked) & vbCrLf & besked
            besked = "For mange data til, at de kunne sendes"
        End If
        'result = sendSMS(Application.Names("SendFra").RefersToRange.Value, Application.Names("SendTil").RefersToRange.Value, besked)
    End If
End Sub
Private Sub testMakro()
    MsgBox "BQ23 indeholder nu et tal"
End Sub

Til supertekst

Ok, man kan selvfølgelig sige, at først bliver den ene udført, og derefter den anden. jeg har derfor erstatter den gamle kode med din, men stadig ingen handling.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
  Dim DoSendSMS As Boolean
    Dim besked As String
    Dim result As String
    DoSendSMS = False
   
    If Target.Address = "$BQ$23" And IsNumeric(Target.Value) = True Then
        testMakro
    End If
   
    For Each c In Application.Names("WatchArea").RefersToRange.Cells
        If c <> "" Then
            DoSendSMS = True
            besked = besked & c.Text & " "
        End If
    Next
    If DoSendSMS Then
        For Each c In Application.Names("Specialtegn").RefersToRange.Cells
            besked = Replace(besked, c.Value, c.Offset(0, 1).Value)
        Next
        besked = Replace(besked, Chr(10), "%0A%0D") 'Håndtering af linjeskift
         
        If Len(besked) > 459 Then
          ' MsgBox "Besked for lang " & Len(besked) & vbCrLf & besked
            besked = "For mange data til, at de kunne sendes"
        End If
        'result = sendSMS(Application.Names("SendFra").RefersToRange.Value, Application.Names("SendTil").RefersToRange.Value, besked)
    End If
End Sub
Private Sub testMakro()
    MsgBox "BQ23 indeholder nu et tal"
End Sub

se venligst bort fra #13..

Denne udgave skulle virke - din egen koden med en lille ændring:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
  Dim DoSendSMS As Boolean
    Dim besked As String
    Dim result As String
    DoSendSMS = False
    For Each c In Application.Names("WatchArea").RefersToRange.Cells
        If c <> "" Then
            DoSendSMS = True
            besked = besked & c.Text & " "
        End If
    Next
    If DoSendSMS Then
        For Each c In Application.Names("Specialtegn").RefersToRange.Cells
            besked = Replace(besked, c.Value, c.Offset(0, 1).Value)
        Next
        besked = Replace(besked, Chr(10), "%0A%0D") 'Håndtering af linjeskift
         
        If Len(besked) > 459 Then
          ' MsgBox "Besked for lang " & Len(besked) & vbCrLf & besked
            besked = "For mange data til, at de kunne sendes"
        End If
        'result = sendSMS(Application.Names("SendFra").RefersToRange.Value, Application.Names("SendTil").RefersToRange.Value, besked)
    End If          '<----------- flyttet
     
    If Range("$BQ$23").Value <> "" Then
      Makro4
    End If
End Sub

Yes, den virker.

Nu har jeg lige opdaget et andet problem.
Det skal faktisk ikke kun være celle BQ23, der skal indeholde tal for at makroen går igang. Hvis tal forekommer i en eller flere af cellerne BQ23:BQ43 skal eksekution forekomme.
Jeg har derfor ændret til:

If Range("BQ23:BQ43").Value <> ""

Både med og uden $ tegn, begge gange får jeg "type mismatch".

Prøv med:

If Left(Target.Address, 3) = "$BQ" And Target.Row >= 23 And Target.Row <= 43 Then

Jeg har ændret til, uden reaktion (men uden "Mismatch"):

If Left(Target.Address, 3) = "$BQ" And Target.Row >= 23 And Target.Row <= 43 Then
   
      Makro4
    End If
End Sub

Alle andre celler end BQ25 er tomme, og så virker den ikke.

Hej supertekst

Jeg fandt en alternativ løsning til det sidste problem. Rigtig mange tak for hjælpen.

Hilsen Sus

Fint og selv tak..