Koda göre dosyadan detay hücresi ve resim çekmek

[handamisafir3]

Merhaba arkadaşlar;
Daha önce forumda "Muygun" beyin yardımıyla belli bir noktaya gelen teklif dosyama yine siteden bulduğum kodlarla aynı satıra koda göre resim ekleme işlevini eklemek istedim. İlk satır için yapabildiğim işi kodları kopyalamadan açtığım her satır için yapabileyim istedim, başaramadım. Yardımcı olursanız sevinirim.

 

[razara]

Hocam cevap veren çıkmadı herhalde,eğer sen çözdüysen eklersen sevinirim.

 

[muygun]

Merhaba;
C sürücüsüne "resim" isimli bir klasör açıp .jpg uzantılı resimlerinizi klasöre yerleştirin.
Data sayfasınıda aynı excel dosyasına taşıdım.
Data sayfasındaki başlıklarınız ile Fiyat sayfası 21. satırdaki başlıkların aynı olmasına dikkat edin.
B sütununda Kod sayfası altındaki mavi alana kodları girin.
Sayfadaki herhangi bir işlem makroyu tetikleyecektir.

Not:Kodlar alıntıdır.

İyi çalışmalar.

 

[handamisafir3]

Muygun bey;
Emeğinize teşekkür ederim. Forumdan edindiğim bazı kodları bir araya getirerek şöyle bir şey oluşturdum. İhtiyacı olan arkadaşlar için kodları ekliyorum. Düzenlemenize ihtiyaç olabilir.

İyi çalışmalar

 

[handamisafir3]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim resim As Object, i As Long, yol As String, dosya As String
Sheets("Sayfa1").Select
yol = "c:\Resim\"

For Each resim In ActiveSheet.Shapes
If resim.Name <> "" Then resim.Delete
Next

For i = 2 To Cells(65536, "B").End(xlUp).Row

For Each resim In ActiveSheet.Shapes

Next

If Dir(yol & "\" & Cells(i, "B").Value & ".jpg") <> "" Then
dosya = "\" & Cells(i, "B").Value & ".jpg"

If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub

Set P = ActiveSheet.Pictures.Insert(yol & dosya)

With Cells(i, "D")
t = .Top
l = .Left
w = .Offset(50, .Columns.Count).Left - .Left
h = .Offset(.Rows.Count, 50).Top - .Top
End With

With P
.Top = t + 1
.Left = l + 1
.Width = w - 1
.Height = h - 1
End With
Set P = Nothing



End If





Next i

End Sub

 

[SKAYA25]

Arkadaşlar aynı soruya benzer bir sorunum var. işim icabı bir çok çek girişi yapıyorum standart rutin bilgiler bunlar, aynı anda çek'i taratıp bir resim dosyası halinde kalsörde topluyorum, çek no yu dosyanın ismi mükerrer olmasın diye kullanıyorum. her satırdaki kayıt için çek no hücresine sağ tuş köprü ver- klasörü ve dosya ismini göster yapıyorum.
mesela H sutunundaki daha önce girilmiş çek no 123456 ile aynı isimdeki c:\resim\123456.jpg otomatik köprü verdirilebilirmi.
kolay gelsin.

 

[muygun]

Arkadaşlar aynı soruya benzer bir sorunum var. işim icabı bir çok çek girişi yapıyorum standart rutin bilgiler bunlar, aynı anda çek'i taratıp bir resim dosyası halinde kalsörde topluyorum, çek no yu dosyanın ismi mükerrer olmasın diye kullanıyorum. her satırdaki kayıt için çek no hücresine sağ tuş köprü ver- klasörü ve dosya ismini göster yapıyorum.
mesela H sutunundaki daha önce girilmiş çek no 123456 ile aynı isimdeki c:\resim\123456.jpg otomatik köprü verdirilebilirmi.
kolay gelsin.

Merhaba;
H1 adresinde "123456" verisi varsa, C:resim klasöründe 123456.jpg dosyası varsa;
I1 hücresine ;
=KÖPRÜ("c:\resim\"&H1&".jpg")
formülünü yazıp deneyin.
İyi çalışmalar.

 

[muygun]

Syn Handamisafir3;
Eklediğiniz kodlarla resim boyutunu hücre boyutuna entegre ederek kullanışlı bir form oluşturmuşsunuz.
Tebrik eder, İyi çalışmalar dilerim.

 

[SKAYA25]

Sn muygun bey,
çok teşekkür ilk önce verdiğiniz kod için süper çalışıyor bunca yıl elle taşımışız köprüleri.

klasörün ismi "c:\resim" değilde excel dosyasının da içinde bulunduğu bir klasör olsa köprü nasıl olurdu
yani resimler de excel dosyası da aynı klasörde ama path: c:\docu..... diye başlamadan bulunduğu klasörü gösterebilirmiyiz.
kolay gelsin.