Soru Kod Yardım

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki Kodun sadece C2 hücresinde çalışmasını istiyorum, yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Target.Columns.Count = 2 Then Exit Sub


If Target.Column = 3 Then


          
            If Range("C2").Value = "" Then
            
            
                    MsgBox Target.Value & vbCrLf & "Toplam Adet Sıralaması : " & Target.Offset(0, 14), vbInformation, "Bilgi"
                    
            End If
End If



End Sub

 

[Cengiz Demir]

Tüm kodları silip bu kodları dener misiniz ?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 3 And Target.Row = 2 Then


          
            If Range("C2").Value = "" Then
            
            
                    MsgBox Target.Value & vbCrLf & "Toplam Adet Sıralaması : " & Target.Offset(0, 14), vbInformation, "Bilgi"
                    
            End If
End If

End Sub

 

[bulentkars]

Cengiz Bey,
Çok Teşekkür ederim,

 

[Cengiz Demir]

Rica ederim