İki kodu uyarlama (Sub Worksheet Change)

[vivident]

Pivot tablom var.
1) Tablomun K1 hücresi değişince R1 ve R2 hücreleri silinsin
2) R1 Hücresi değişirse R2 hücresi silinsin

Aşağıdaki makroyu uyguladım ama çalıştıramadım. Çünkü sayfaya ait modül içinde Sub Worksheet ile başlayan başka kod var. İkisini birbirine uyarlayamadım. Acaba sayfanın içine değilde,ayrı modül içinde mi çalıştırmalıyım

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [K1,R1]) Is Nothing Then Exit Sub
    Select Case Target.Address
    Case Is = "$K$1"
    Range("R1:R2").ClearContents
    Case Is = "$R$1"
    Range("R2").ClearContents
    End Select
End Sub

 

[NBATMAN]

Pivot tablom var.
1) Tablomun K1 hücresi değişince R1 ve R2 hücreleri silinsin
2) R1 Hücresi değişirse R2 hücresi silinsin

Aşağıdaki makroyu uyguladım ama çalıştıramadım. Çünkü sayfaya ait modül içinde Sub Worksheet ile başlayan başka kod var. İkisini birbirine uyarlayamadım. Acaba sayfanın içine değilde,ayrı modül içinde mi çalıştırmalıyım

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [K1,R1]) Is Nothing Then Exit Sub
    Select Case Target.Address
    Case Is = "$K$1"
    Range("R1:R2").ClearContents
    Case Is = "$R$1"
    Range("R2").ClearContents
    End Select
End Sub

Merhaba,

dosyanızda ListON sayfanızda bulunan kodlarınızı aşağıdaki kırmızı renkli satırları değiştirerek deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E5:K500")) Is Nothing Then
Exit Sub
Else
Dim Alan As Range
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    For Each Alan In Range("E5:E500")
        If Alan.Value <> "" And Alan.Value = 2 Then
            Alan.EntireRow.Hidden = False
        End If
    Next
       For Each Alan In Range("E5:E500")
        If Alan.Value <> "" And Alan.Value = 1 Then
            Alan.EntireRow.Hidden = False
        End If
    Next
    For Each Alan In Range("E5:E500")
        If Alan.Value = " " Then
            Alan.EntireRow.Hidden = True
        End If
    Next
    For Each Alan In Range("I5:I500")
        If Alan.Value <> "" And Alan.Value = "TPL" Then
            Alan.Font.Size = 13.5
        End If
    Next
    For Each Alan In Range("I5:I500")
        If Alan.Value <> "TPL" And Alan.Value > 0.9 Then
            Alan.Font.Size = 8
        End If
    Next
End If
[COLOR=red]If Intersect(Target, [K1,R1]) Is Nothing Then Exit Sub
    Select Case Target.Address
    Case Is = "$K$1"
    Range("R1:R2").ClearContents
    Case Is = "$R$1"
    Range("R2").ClearContents
    End Select[/COLOR]
End Sub