üveyin
Altın Üye
- Katılım
- 24 Nisan 2022
- Mesajlar
- 115
- Excel Vers. ve Dili
- 2016 tr
- Altın Üyelik Bitiş Tarihi
- 24-04-2027
merhabalar, arkadaşlar excel sayfamdaki resimleri diger sekmedeki sayfada liste oluşturuyorum mevcut kodum işlemlerimi yapıyor fakat eksik olan hücreye göre resmi boyutlandırması ve hücre rengini değiştirmesini istemiyorum yardımlarınız için şimdiden teşekkür ederim.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2:C1000]) Is Nothing Then Exit Sub
Application.EnableEvents = False
KalacağıSatır = Target.Row + 1
ActiveSheet.Pictures.Delete
SonSatır = ActiveSheet.Cells(Rows.Count, "C").End(3).Row
For Satır = 10 To SonSatır
On Error Resume Next
Yol = "B" & WorksheetFunction.Match(Range("C" & Satır), Worksheets("Resim Listem").Range("C:C"), 0)
If Err.Number > 0 Then
Err.Number = 0
Else
Worksheets("Resim Listem").Range(Yol).Copy
ActiveSheet.Range("B" & Satır).Select
ActiveSheet.Paste
End If
Next Satır
Range("C" & KalacağıSatır).Select
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2:C1000]) Is Nothing Then Exit Sub
Application.EnableEvents = False
KalacağıSatır = Target.Row + 1
ActiveSheet.Pictures.Delete
SonSatır = ActiveSheet.Cells(Rows.Count, "C").End(3).Row
For Satır = 10 To SonSatır
On Error Resume Next
Yol = "B" & WorksheetFunction.Match(Range("C" & Satır), Worksheets("Resim Listem").Range("C:C"), 0)
If Err.Number > 0 Then
Err.Number = 0
Else
Worksheets("Resim Listem").Range(Yol).Copy
ActiveSheet.Range("B" & Satır).Select
ActiveSheet.Paste
End If
Next Satır
Range("C" & KalacağıSatır).Select
Application.EnableEvents = True
End Sub