formül sonucuna göre makro çalışmıyor. değer olursa çalışıyor

[euphrates55]

merhaba, aşağıdaki kodun "T26" hücresinde formül var ve sonuç olarak 1,2,3,4,5 ya da 6 bulunuyor. formül ile makrom çalışmıyor ama bu hücreye el ile rakam yazınca çalışıyor. kodda nereyi değişmem gerekiyor?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("T26")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target <> "" Then
        Dim Resim, adress, ResimAdi
        On Error Resume Next
        For Each Resim In ActiveSheet.Shapes
            adress = Resim.TopLeftCell.Row
            If Target.Row = adress Then
                Resim.ShapeRange.LockAspectRatio = msoFalse
                Resim.Delete
                Exit For
            End If
        Next
        For Each Resim In Sheets("Kesitler").Shapes
            adress = Resim.TopLeftCell.Column
            If adress = 2 Then
                ResimAdi = Sheets("Kesitler").Cells(Resim.TopLeftCell.Row, 1).Value
                If ResimAdi = Target Then
                        Resim.Copy
                        ActiveSheet.Paste Destination:=Cells(Target.Row, 12)
                        With Cells(Target.Row, 12)
                            Selection.ShapeRange.LockAspectRatio = msoFalse
                            Selection.Height = .MergeArea.Height - 4
                            Selection.Width = .MergeArea.Width - 4
                            Selection.Top = .Top + 2
                            Selection.Left = .Left + 2
                            Selection.Placement = xlMoveAndSize
                        End With
                        Target.Select
                        Exit Sub
                    End If
                End If
        Next
    End If
End Sub

 

[Levent Menteşoğlu]

Kodlarınızı Change olayı yerine Calculate olayına yazarak deneyin.

Private Sub Worksheet_Calculate()
.
.Kodlarınız
.
End Sub

 

[euphrates55]

Kodlarınızı Change olayı yerine Calculate olayına yazarak deneyin.

Private Sub Worksheet_Calculate()
.
.Kodlarınız
.
End Sub

merhaba, target kısmında hata verdi. sanırım calculatede target olmuyor.

 

[Cengiz Demir]

Calculate içinde Target değişkeni tanımlanmamış oluyor. O yüzden hata veriyor.
Çalışırmı bilmiyorum ama isterseniz ilk satırı bu şekilde değiştirip deneyin.

Private Sub Worksheet_Calculate(ByVal Target As Range)

merhaba, target kısmında hata verdi. sanırım calculatede target olmuyor.

 

[euphrates55]

Calculate içinde Target değişkeni tanımlanmamış oluyor. O yüzden hata veriyor.
Çalışırmı bilmiyorum ama isterseniz ilk satırı bu şekilde değiştirip deneyin.

Private Sub Worksheet_Calculate(ByVal Target As Range)

merhaba, olmadı... konuyu başka türlü hallettim. teşekkürler.