• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Formül ile klasörden resim alma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Selamlar,
Formül ile hücrelerdeki verilere göre klasörden resim çağırma işlemi yapılabilir mi?
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Sayın @Admin,
Örnek dosya ekledim . Klasörden okul numarasına göre düşeyara resim getirmek istiyorum.Makro kodu için yardımcı olabilir misiniz?
 

Ekli dosyalar

  • klasörden düşeyara resim alma.rar
    247.3 KB · Görüntüleme: 71

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Bunu mevcut bu makronuz çalışırken mı yapmak istiyorsunuz? :unsure:

PHP:
Sub Auto_Open()
10 For i = 2 To 150
        DoEvents
        If Not IsEmpty(Sheets("VERİLER").Cells(i, 5).Value) Then
            basla = Timer
            While (Timer - basla) < 1
                DoEvents
               Sheets("VERİLER").Range("H3").Value = Format(Time, "hh:mm:ss")
            Wend
            While (Timer - basla) < 3
                DoEvents
                Sheets("VERİLER").Range("K2").Value = Sheets("VERİLER").Cells(i, 4).Value
            Wend
        End If
    Next i
    GoTo 10
End Sub
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Evet. Mümkün mü?
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Müsaitseniz yardım edebilir misiniz?
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhaba, bu kodları kullanabilirsiniz.. (y)
PHP:
Sub Auto_Open()
    On Error Resume Next
    Dim foto As Shape, bak As Boolean
        For Each foto In ActiveSheet.Shapes
        If InStr(1, foto.Name, "Picture") > 0 Then
            foto.Delete
        End If
    Next foto
10 For i = 2 To 150
        DoEvents
        If Not IsEmpty(Sheets("VERİLER").Cells(i, 5).Value) Then
            basla = Timer
            While (Timer - basla) < 1
                DoEvents
               Sheets("VERİLER").Range("H3").Value = Format(Time, "hh:mm:ss")
            Wend
            DoEvents
            While (Timer - basla) < 3
                DoEvents
                Sheets("VERİLER").Range("K2").Value = Sheets("VERİLER").Cells(i, 4).Value
                DoEvents
                On Error GoTo 30
                On Error GoTo -1
                If bak = False Then
                Application.ScreenUpdating = False
                    For Each foto In ActiveSheet.Shapes
                        If InStr(1, foto.Name, "Picture") > 0 Then
                            foto.Delete
                        End If
                    Next foto
                    bak = True
                    Range("E9").Select
                    ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Sayfa1.Range("K11").Value & ".jpg").Select
                    DoEvents
40                    With Selection.ShapeRange.Line
                        .Visible = msoTrue
                        .Weight = 6
                    End With
                    DoEvents
                    With Selection.ShapeRange.Line
                        .Visible = msoTrue
                        .ForeColor.ObjectThemeColor = msoThemeColorText2
                        .ForeColor.TintAndShade = 0
                        .ForeColor.Brightness = 0
                        .Transparency = 0
                    End With
                    DoEvents
                    Selection.ShapeRange.ScaleWidth 0.835, msoFalse, msoScaleFromTopLeft
                    Selection.ShapeRange.ScaleHeight 0.835, msoFalse, msoScaleFromTopLeft
                    Selection.ShapeRange.ScaleWidth 0.8122605965, msoFalse, msoScaleFromBottomRight
                    DoEvents
                    Range("F15").Select
                    bak = False
                    Application.ScreenUpdating = True
                End If
            Wend
        End If
    Next i
    GoTo 10
30
    a = 5
        ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\yok.jpg").Select
        If a = 5 Then GoTo 40
End Sub
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Denedim fakat resim yok hep kalıyor.
 

Ekli dosyalar

  • klasörden düşeyara resim alma.rar
    207.9 KB · Görüntüleme: 40

fatih

Yeni Üye
Katılım
30 Eyl 2018
Mesajlar
20
En iyi yanıt
0
Puanları
3
Yaş
34
Konum
Ankara
Ad Soyad
Fatih
Sayfaya comobobox ekledim comboboxtan isim seçtiğinde okulno ya göre klasörden resim arama yapacak çünkü aynı isimli öğrenciler var
Dosya ekte
 

Ekli dosyalar

  • klasörden düşeyara resim alma.rar
    987.8 KB · Görüntüleme: 121

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Denedim fakat resim yok hep kalıyor.
Veriler sayfasında isim ve sınıf altına o öğrencinin numarasını da getirmiştim. Resim adları okul no'ya göre çünkü..
O yüzden o bilgiye de ihtiyacımız vardı. O sebeple K11 hücresine bu formülü de yapıştırmanız gerekiyordu, o bilgiyi size aktarmadığımı fark ettim.
PHP:
=DOLAYLI(ADRES(KAÇINCI($K$2;F:F;0);2))

Sonrasında OKUL sayfasını seçin, dosyayı kaydedip kapatıp tekrar açın, istediğiniz olacaktır.. (y)
Olmazsa çalışan dosyayı da iletirim size.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt