Selcet cases after first case not working

Hello

I have a problem where when I fill out a specific cell with "x" it's suppose to give a value in another worksheet. It's working for the first Select case, but cases that comes after isn't working.

I Run a If Isempty code to start with to avoid a Mismatch error.

My code Is

 Dim Value As Integer
  Dim Celle As String

Celle = target.Address
   
    If IsEmpty(Range("H3,H10,H16,H24,H32,P3,P10,P21,P30,P38")) = True Then
        'do nothing
        
    Else
           
        If target.Value = "x" Then
    
    
            Select Case Celle
            
                Case "$H$3"
                    Worksheets("Sheet2").Range("B2").Value = "1"
            
                Case "$H$10"
                    Worksheets("Sheet2").Range("B2").Value = "2"
                    
                Case "$H$16"
                    Worksheets("Sheet2").Range("B2").Value = "3"
                                 
                Case "$H$24"
                    Worksheets("Sheet2").Range("B2").Value = "4"
                    
                Case "$H$32"
                    Worksheets("Sheet2").Range("B2").Value = "5"
            
                Case "$P$3"
                    Worksheets("Sheet2").Range("B2").Value = "6"
                    
                Case "$P$10"
                    Worksheets("Sheet2").Range("B2").Value = "7"
                    
                Case "$P$21"
                    Worksheets("Sheet2").Range("B2").Value = "8"
                    
                Case "$P$30"
                    Worksheets("Sheet2").Range("B2").Value = "9"
                    
                Case "$P$38"
                    Worksheets("Sheet2").Range("B2").Value = "10"
                    
        End Select

    
End If
End If

End Sub

Hi Martinw94

Welcome to our Forum...

Please take a moment to read our forum rules...here
Your post does not comply with Rule # 2
2. Programming code must be enclosed in code tags to improve readability. (A, Z)

 Your Code

So...

Edit your post
Highlight the code and press the # button

This post should receive no further attention until OP has complied...

This part:

IsEmpty(Range("H3,H10,H16,H24,H32,P3,P10,P21,P30,P38"))

returns True if H3 is empty and False otherwise.

If you want to test if they are all empty, you can use:

If worksheetfunction.Counta(Range("H3,H10,H16,H24,H32,P3,P10,P21,P30,P38")) = 0 then

Perhaps...Code in sheet1.module

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Sheet2.Range("B2")
If Not Intersect(Target, Range("H3,H10,H16,H24,H32,P3,P10,P21,P30,P38")) Is Nothing Then
    Application.EnableEvents = False
    If Target = "x" Then
        Select Case Target.Address
            Case "$H$3"
                rng = "1"
            Case "$H$10"
                rng = "2"
            Case "$H$16"
                rng = "3"
            Case "$H$24"
                rng = "4"
            Case "$H$32"
                rng = "5"
            Case "$P$3"
                rng = "6"
            Case "$P$10"
                rng = "7"
            Case "$P$21"
                rng = "8"
            Case "$P$30"
                rng = "9"
            Case "$P$38"
                rng = "10"
        End Select
    End If
    Application.EnableEvents = True
End If
End Sub

this code the day before yesteday

What code...Perhaps its time you upload a sample file....