- Katılım
- 25 Ocak 2006
- Mesajlar
- 763
- Excel Vers. ve Dili
- 2019 tr
- Altın Üyelik Bitiş Tarihi
- 04-01-2024
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?
Kod:
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