[Yardım]  Resimli Macro range sutun yerine satır

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

Resimli Macro range sutun yerine satır

İleti#1)  caramon13 » 25 Haz 2020 21:50

Merhaba
Forum'da ilk kez yazıyorum. Öncelikle herkese hayırlı forumlar dilerim. Konuyu arattım. Bu tarz bir sorun görmediğim için açtım. Şimdi elimde kullandığım resimli bir makrom var. Bu siteden almıştım. Çok da işime yaradı yapana teşekkür ederim. Şimdi bu makro sutun da isimlerin karşılıklarına resim getiriyor. Ama hazırladığım katalogda satır da sağa doğru gitmesi lazım. Destek rica ediyorum. Şimdi den teşekkür ederim.
Saygılar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
caramon13
 
Kayıt: 27 May 2015 12:53
Meslek: yönetici
Yaş: 39
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/bahçelievler

Cevap: Resimli Macro range sutun yerine satır

İleti#2)  Miraç CAN » 26 Haz 2020 09:52

Deneyin:
Kod: Tümünü seç
Sub Picturesİnsert()
yol = InputBox("Kalsör yolunu yazın...", "Dizin Seç", "C:\Resimler\") & "\"
If yol = "\" Then Exit Sub
Dim Resimyolu As Variant
Dim Resim As Object, satır%, sütun%

For Each Pic In ActiveSheet.Pictures
    If Not Intersect(Pic.TopLeftCell, Range("B2:XFD1048576")) Is Nothing Then
        Pic.Delete
    End If
Next
For satır = 3 To Cells(Rows.Count, 2).End(3).Row Step 3
    If Cells(satır, Columns.Count).End(1).Column > 3 Then Range(Cells(satır, 3), Cells(satır, Columns.Count).End(1)).ClearContents
    For sütun = 3 To Cells(satır - 1, Columns.Count).End(1).Column
        Resimyolu = yol & Cells(satır - 1, sütun) & "_1.jpg"
        If Dir(Resimyolu) = "" Then
            Cells(satır, sütun) = "Resim Yok!"
        Else
            Set Resim = ActiveSheet.Pictures.Insert(Resimyolu)
            With Cells(satır, sütun)
                Resim.Top = .Top
                Resim.Left = .Left
                Resim.Height = .Height
                Resim.Width = .Width
            End With
        End If
    Next sütun
Next satır
End Sub
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Resimli Macro range sutun yerine satır

İleti#3)  caramon13 » 26 Haz 2020 13:02

Çok işime yaradı yatay mantığını da kavrayabildim.

Teşekkür ederim.

Elinize sağlık.
Kullanıcı avatarı
caramon13
 
Kayıt: 27 May 2015 12:53
Meslek: yönetici
Yaş: 39
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/bahçelievler


Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: mstfd ve 0 misafir

Bumerang - Yazarkafe