Açıklamaya Resim ve Metin Ekleme

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

tahsinanarat

Kullanıcı
Excel Versiyonu
Excel 2016
Excel Sürümü
32 Bit
Excel Dili
Türkçe

Hücre Açıklamasına Dosyadan Resim Getirme

Kroki sayfasında oda numaralarını gösteren ve köprü ile Bloklar sayfasının A sütunundaki Blok isimleri ile bağlantılı hücrelerim bulunmakta. Bloklar sayfasının C sütununda TC kimlik numaraları ve C:\foto\ Klasöründe aynı tc kimlik numaraları ile kayıtlı fotoğraflarım bulunmaktadır. Bloklar sayfasına resimleri getirebiliyorum. Burada herhangi bir sıkıntı yok. Ben Kroki sayfasında Blok numarası üzerine geldiğimde de aynı şekilde o blokta kalan ismin (tc) ile eşleşen fotoğrafının görünmesini istiyorum. Yanı Blok numarası ile köprü halinde bağlantılı olan diğer sayfıanın aynı blok numarasının...

Buradaki konumuza ait kod il eilgili olarak hücrelerde manuel olarak F2 enter yaptığımızda resim ve isim geliyor,
fontunu ve rengini de istediğimiz gibi yaptık. @Ömer BARAN hocama çok teşekkür ediyorum.

Kod yardımı ile belirlediğimiz alanda F2 enter yaptırdığımda manuel olarak F2 enter yaptığım gibi açıklamaya bilgi gelmediğini gördüm, Kod ile bunu yapabilmek istiyorum. Yardımlarınız için şimdiden teşekkürler. F2 enter yaptırılacak alan B2:AC77 olduğunu varsayalım.
 
Macro ile bir haftalık aralık
msgbox uyarı mesajı
Tarihe göre sırala Oylamaya göre sırala
Tekrar merhaba Sayın @tahsinanarat .
Keşke kullandığınız F2+ENTER makro kodunu ya da bu kodun içinde olduğu yeni bir örnek belge paylaşsaydınız.

F2 ENTER kodlarınız bir For....Next döngüsüyle çalışıyor diye tahmin ediyorum. Aşağıda tarif ettiğim şekilde bir deneyin isterseniz.
Döngünün içinde olacak şekilde, Sendkeys kod satırının altına denk gelecek şekilde,
önceki konu sayfasında verdiğim kod'un Intersect..... şekindeki satırı dışında kalan kısmını yapıştırın,
yapıştırdığınız bu kısımdaki Target ibarelerini Cells(satır no, sütun no) veya Range(sütun adı & satır numarası) şeklinde değiştirin.
 
Oyla 0 Olumsuz oyla
Kod: 
Sub F2_ENTER()
Dim Rng As Range
For Each Rng In Selection.SpecialCells(xlTextValues, 2)
If Rng.HasArray = True Then
Rng.ValueArray = Rng.Value
Else
Rng.Value = Rng.Value
End If
Next Rng
End Sub
Bulduğum bütün F2 enterları denedim, bir tek yukarıda belirttiğim kodda çalıştı, ancak biraç yavaş. Bu kod biraz hızlandırılabilirmi.
 
Oyla 0 Olumsuz oyla
Kod: 
Sub F2_ENTER()
Dim Rng As Range
Application.ScreenUpdating = False
For Each Rng In Selection.SpecialCells(xlTextValues, 2)
If Rng.HasArray = True Then
Rng.ValueArray = Rng.Value
Else
Rng.Value = Rng.Value
End If
Next Rng
Application.ScreenUpdating = True
End Sub
Bu şekilde yaptım çok hızlı oldu hocam.
Konu çözlmüştür
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst