Private Sub Birleştirme

[akmes]

Selamlar

Aşağıdaki iki kodu nasıl birleştirebilirim?

Birinci Kod
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
Range("A4:F9").ClearContents
If Target.Value = "" Then
MsgBox "A2 hücresi boş." & vbLf & "İşlem İptal edildi!" & vbLf & "A2 Hücresine bir Takım adı giriniz", vbCritical, "U Y A R I -- E V R E N"
Exit Sub
End If
Call bul_59(Target.Value)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

İkinci Kod
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A12]) Is Nothing Then Exit Sub
Range("A14:F19").ClearContents
If Target.Value = "" Then
MsgBox "A12 hücresi boş." & vbLf & "İşlem İptal edildi!" & vbLf & "A12 Hücresine bir Takım adı giriniz", vbCritical, "U Y A R I -- E V R E N"
Exit Sub
End If
Call bul_59(Target.Value)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[hsayar]

örnek dosya ekleyin düzenleyip göndereyim.

 

[akmes]

örnek dosya ekleyin düzenleyip göndereyim.

Tabiki ekte yolluyorum.

 

[leumruk]

Merhaba,
Aşağıdaki gibi kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2,A12]) Is Nothing Then Exit Sub
adr = Target.Address(False, False)
If adr = "A2" Then
Range("A4:F9").ClearContents
Else
Range("A14:F19").ClearContents
End If
If Target.Value = "" Then
    MsgBox adr & " hücresi boş." & vbLf & "İşlem İptal edildi!" & vbLf & adr & " Hücresine bir Takım adı giriniz", vbCritical, "U Y A R I -- E V R E N"
    Exit Sub
End If
Call bul_59(Target.Value)
End Sub

 

[akmes]

Merhaba,
Aşağıdaki gibi kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2,A12]) Is Nothing Then Exit Sub
adr = Target.Address(False, False)
If adr = "A2" Then
Range("A4:F9").ClearContents
Else
Range("A14:F19").ClearContents
End If
If Target.Value = "" Then
    MsgBox adr & " hücresi boş." & vbLf & "İşlem İptal edildi!" & vbLf & adr & " Hücresine bir Takım adı giriniz", vbCritical, "U Y A R I -- E V R E N"
    Exit Sub
End If
Call bul_59(Target.Value)
End Sub

Denedim olmadı.A12 ye başka takım ismi yazdığımda siliniyor.