Hücre degeri degisince makro calissin

[shadow_45]

Arkadaslar bir yerde takildim ve sizin yardimlariniza ihtiyac duydum
ekteki dosyada belirttim nasil olacagini yardimlariniz icin simdiden tesekkürler

 

[Korhan Ayhan]

Merhaba,

Moduldeki kodunuzu aşağıdaki gibi değiştirin.

Sub sil1()
Tabelle1.Range("A15:E15").ClearContents
Tabelle1.Range("D14").Activate
End Sub

Sub sil2()
Tabelle1.Range("J15:N15").ClearContents
Tabelle1.Range("J14").Activate
End Sub

Sayfadaki kodunuzu aşağıdaki gibi değiştirip deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    'On Error Resume Next
    If Not Intersect(Target, [D14]) Is Nothing Then
        If Tabelle1.Range("D14").Value = "3 BACKEN FUTTER" Then
            Tabelle1.Range("A15").Value = "Backen"
            MsgBox " Hauptspindel Backen Auswählen"
            Tabelle1.Range("D15").Activate
        Else
            Call sil1
        End If
    End If
    If Not Intersect(Target, [J14]) Is Nothing Then
        If Tabelle1.Range("J14").Value = "3 BACKEN FUTTER" Then
            Tabelle1.Range("J15").Value = "Backen"
            MsgBox " Hauptspindel Backen Auswählen"
            Tabelle1.Range("M15").Activate
        Else
            Call sil2
        End If
    End If
End Sub

 

[shadow_45]

Bir haftadir ugrasiyordum yapamamistim Allah razi olsun