2. Sınıf Öğretmenleri Günlüğü 2018-2019

yapılabilir gözüküyor. birkaç deneme yapıp sonucu yazarım.

Sub resimleri_al()
Dim resim As Shape, i As Long, yol As String, dosya As String
Sheets("Sayfa3").Select
yol = ThisWorkbook.Path
For Each resim In ActiveSheet.Shapes
    If resim.Name <> "Button 5" Then resim.Delete
Next
For i = 2 To Cells(65536, "A").End(xlUp).Row
    Cells(i, "B").Select
    If Dir(yol & "\opex\kim\" & Cells(i, "A").Value & ".jpg") <> "" Then
        dosya = "\opex\kim\" & Cells(i, "A").Value & ".jpg"
    End If
    If Dir(yol & "\opex\kim\" & Cells(i, "A").Value & ".gif") <> "" Then
        dosya = "\opex\kim\" & Cells(i, "A").Value & ".gif"
    End If
    ActiveSheet.Pictures.Insert (yol & dosya)
Next i
MsgBox "İşlem tamamdır.", vbOKOnly + vbInformation, Application.UserName

End Sub
Yukarıdaki kodlar ile fotoları alabiliyorum lakin döngüyü kuramıyorum sayın hocam.

Sayın [linkler sadece üyelerimize görünmektedir.] hocam müsait olduğun bir zaman aşağıdaki sorunumun çözümü hakkında bilgi verebilirseniz sevinirim.
Sorun:
excelde, b4  hücre değeri ile aynı adı taşıyan resmin a12 hücresine dosyadan çağrılması ve bir döngü ile b22 değeri ile a30 a diğer fotoyu çağırması (eklemesi) için, (döngü 100 kere tekrar etmeli) makro (vba) kodlama ile ya da formül satırına bir formül yazarak gerçekleştirebilir miyiz?
Olumlu ya da olumsuz her türlü cevaba şimdiden teşekkür ederim.
Selam ve dua ile kolay gelsin.
 

Dosyadaki çözüm işinizi görür mü hocam?

Dosyadaki çözüm işinizi görür mü hocam?

Öncelikle ilginiz için teşekkür ederim sayın hocam.
Sayfa yapım aşağıdaki resim gibi sayın hocam, fotoğraf yazısının altına ilgili öğrencinin fotoğrafının gelmesini istiyorum.
Selam ve dua ile...

Hocam eklediğim dosyada
For h = 4 To 104 satırına "Step 18" kodunu eklediğimizde sayfa yapınıza uygun şekilde yerleşim yapacaktır.

Not: 104 değerini ise son SIRA NO'ya göre güncellemeliyiz.

Öncelikle ilginiz için teşekkür ederim sayın hocam.
Sayfa yapım aşağıdaki resim gibi sayın hocam, fotoğraf yazısının altına ilgili öğrencinin fotoğrafının gelmesini istiyorum.
Selam ve dua ile...

Hocam eklediğim dosyada
For h = 4 To 104 satırına "Step 18" kodunu eklediğimizde sayfa yapınıza uygun şekilde yerleşim yapacaktır.

Not: 104 değerini ise son SIRA NO'ya göre güncellemeliyiz.

Eyvallah sayın hocam, oldu. Teşekkürler. Minnettarım.
Selam ve dua ile tüm güzellikler sizinle olsun.

Eyvallah sayın hocam, oldu. Teşekkürler. Minnettarım.
Selam ve dua ile tüm güzellikler sizinle olsun.

Rica ederim. Tüm güzellikler hepimizin olsun. Takipçinizim. Selam ve dua ile.

Eyvallah sayın hocam, oldu. Teşekkürler. Minnettarım.
Selam ve dua ile tüm güzellikler sizinle olsun.

ben de şunu yapmıştım

Yardımlarını esirgemeyen her iki öğretmenime de tekrar tekrar teşekkür ederim.
Selam ve dua ile...
Sonuç:

2. sınıf denemelerinde "D" şıkkı olmadığı için optik formdan "D" şıkkını iptal ettim.
Sanırım son halini aldı program.
Artık ciddi sınavlar, denemeleri, haftalık yapabilirim.
Selam ve dua ile...
Program linki:
[linkler sadece üyelerimize görünmektedir.]
Örnek form resmi:

2.sınıf 1.dönem 2. deneme sınavı
[linkler sadece üyelerimize görünmektedir.]

Matematik 2 ve 9 gözünüzden kaçmasın sayın hocam.
Selam ve dua ile...

Değerli öğretmenlerim, sadece kullandığım dosyaları kontrol ediyorum ve hata varsa bildiriyorum ki sınıfınızda zor duruma düşmeyiniz diye zira bu konuda çokça zor durumlar yaşadım.
Her şeye rağmen, verdiğiniz emek büyük ve tüm içtenliğimle teşekkür ediyorum, minnettarım.
Selam ve dua ile...

arkadaşlar çocuklar dinleme metni sunusu  eklendi mi bilen var mı? acil.

arkadaşlar çocuklar dinleme metni sunusu  eklendi mi bilen var mı? acil.

[linkler sadece üyelerimize görünmektedir.]

Hayır hocam galiba ben alınganlık yaptım siz kusura bakmayın

merhaba,kitapları gönderdik aldınız mı?

yaşlı kadın metni için ihtiyara hürmet, yardım vs ile ilgili video, animasyon olan var mı?