Hüseyin
Yeni Üye
- Katılım
- 16 Ağu 2018
- Mesajlar
- 20
- En iyi yanıt
- 0
- Puanları
- 3
- Yaş
- 52
- Konum
- Rize
- Ad Soyad
- Hüseyin Ferahlı
- Office Vers.
- office 2010 tr
Aşağıda yazmış olduğum kodda b sütününe eklemiş olduğum ürünün resmini +2 kolona getiriyorum gelen resme manüel olarak değişiklik yapıyorum fakat bir at satıra ekleme yaptığımda resimde manüel olarak yapmış olduğum değişiklik ilk haline geliyor.
Yapmak istediğim ;
- Farklı Satırdan ürünü sildiğim de eklediğimde sadece o satır da olan ürünün resmi silinsin vede diğer satırlarda olan ürünlerin şekillerinde hiçbir değişiklik olamasın.
Konuyla ilgili yardımlarınızı bekliyor şimdiden teşekkürler ederim.
SonSatır = ActiveSheet.Cells(Rows.Count, "b").End(xlUp).Row
ActiveSheet.Pictures.Delete
For i = 2 To SonSatır
On Error Resume Next
ResimAdı = ActiveSheet.Range("B" & i)
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & ResimAdı & ".png").Select
If Err.Number > 0 Then GoTo son
Selection.Top = ActiveSheet.Range("B" & i).Offset(0, 2).Top + 2
Selection.Left = ActiveSheet.Range("B" & i).Offset(0, 4).Left + 2
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = ActiveSheet.Range("B" & i).Offset(0, 2).Height + 45
Selection.ShapeRange.Width = ActiveSheet.Range("B" & i).Offset(0, 4).Width - 2
Target.Offset(1, 0).Select
son:
Err.Clear
Next i
Yapmak istediğim ;
- Farklı Satırdan ürünü sildiğim de eklediğimde sadece o satır da olan ürünün resmi silinsin vede diğer satırlarda olan ürünlerin şekillerinde hiçbir değişiklik olamasın.
Konuyla ilgili yardımlarınızı bekliyor şimdiden teşekkürler ederim.
SonSatır = ActiveSheet.Cells(Rows.Count, "b").End(xlUp).Row
ActiveSheet.Pictures.Delete
For i = 2 To SonSatır
On Error Resume Next
ResimAdı = ActiveSheet.Range("B" & i)
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & ResimAdı & ".png").Select
If Err.Number > 0 Then GoTo son
Selection.Top = ActiveSheet.Range("B" & i).Offset(0, 2).Top + 2
Selection.Left = ActiveSheet.Range("B" & i).Offset(0, 4).Left + 2
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = ActiveSheet.Range("B" & i).Offset(0, 2).Height + 45
Selection.ShapeRange.Width = ActiveSheet.Range("B" & i).Offset(0, 4).Width - 2
Target.Offset(1, 0).Select
son:
Err.Clear
Next i