Bilgiler geliyor Resim Gelmiyor

[Mdemir63]

İyi Akşamlar

Ekli dosyamda BUL düğmesine basıp Inputbox Penceresine isim girip bul dediğimde bilgiler geliyor fakat resim gelmiyor acaba kodlarda mı bir sıkıntı var bulamadım. çözüm bulabilirseniz sevinirim

Saygılar

 

[Merhum İdris SERDAR]

Onu tetikleyecek bir şey gerekir.

Aşağdaki kodları BUL düğmesinin kodlarının yerine koyun.

Sub Bul()

Dim açılan1 As String
açılan1 = InputBox("Aradığınız Kişinin İsmini Giriniz...")
On Error Resume Next
ComboBox1.Text = Sayfa3.Range("C3:C65000").Find(What:=açılan1).Offset
Range("F5:F11").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[10]C,Veri,43,0)"
Range("F12").Select

End Sub

 

[Mdemir63]

Onu tetikleyecek bir şey gerekir.

Aşağdaki kodları BUL düğmesinin kodlarının yerine koyun.

Sub Bul()

Dim açılan1 As String
açılan1 = InputBox("Aradığınız Kişinin İsmini Giriniz...")
On Error Resume Next
ComboBox1.Text = Sayfa3.Range("C3:C65000").Find(What:=açılan1).Offset
Range("F5:F11").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[10]C,Veri,43,0)"
Range("F12").Select

End Sub

Yurtaş hocam merhaba
aşağıdaki kodu sarı hale getiriyor
ComboBox1.Text = Sayfa3.Range("C3:C65000").Find(What:=açılan1).Offset

Saygılar

 

[Merhum İdris SERDAR]

Yurtaş hocam merhaba
aşağıdaki kodu sarı hale getiriyor
ComboBox1.Text = Sayfa3.Range("C3:C65000").Find(What:=açılan1).Offset

Saygılar

Offset kelimesi boşluksuz olacak.

 

[Ali]

Sayfa3.Range("C3:C65000").Find(What:=açılan1).Offset

Saygılar

Kodlar içinde Sheets olarak sayfayı belirtmeniz gerekir

Sayfa3 şeklinde olmaz Sheets("Sayfa3") şeklinde olmalı.

 

[Mdemir63]

Kodlar içinde Sheets olarak sayfayı belirtmeniz gerekir

Sayfa3 şeklinde olmaz Sheets("Sayfa3") şeklinde olmalı.

Ali hocam öylede yaptım çalışmadı.
yurttaş hocamın dediği gibi birleştirdim yine çalımadı

Saygılar

 

[Mdemir63]

Peki başka yolla getirmek mümkün mü yani bir taxtBox içine aradığımız ismi girelim ENTER e basınca hem bilgileri hemde resmi gelsin olmaz mı?

Saygılar

 

[Merhum İdris SERDAR]

Peki başka yolla getirmek mümkün mü yani bir taxtBox içine aradığımız ismi girelim ENTER e basınca hem bilgileri hemde resmi gelsin olmaz mı?

Saygılar

Nasıl çalışmadı?

Dosyanız ekte. Ve de çalışıyor.

 

[Mdemir63]

Nasıl çalışmadı?

Dosyanız ekte. Ve de çalışıyor.

Hocam elinize sağlık ancak bir sorun daha var o dosyada Bayrak adlı iki isim var ve yanlarında 22222 ve22223var fakat resim değişmiyor ayrı ayrı bul dediğimizde bile ona bir çözümünüz varmı

Saygılar

 

[Mdemir63]

Hocam nerdesiniz

 

[Merhum İdris SERDAR]

Daha önce de söylemiştim. İsimler arasında fark yaratmanız gerekir. Yada tekrarlanmayan bir anahtar bulmak lazım. Bu sıra no, sicil no, kimlik no ... gibi.

 

[Mdemir63]

Daha önce de söylemiştim. İsimler arasında fark yaratmanız gerekir. Yada tekrarlanmayan bir anahtar bulmak lazım. Bu sıra no, sicil no, kimlik no ... gibi.

Hocam dosyadaki isimlerde fark var

Örneğin Bayrak 22222
Bayrak 22223 gibi

Saygılar

 

[Merhum İdris SERDAR]

Hocam dosyadaki isimlerde fark var

Örneğin Bayrak 22222
Bayrak 22223 gibi

Saygılar

Bu fark görünüyor. Ancak algılama isime göre olduğu için bir işe yaramıyor.

 

[Mdemir63]

Hocam çok oldum ama aşağıdaki kodların sadece bu kısmında ne demek isteniyor

Range("F5:F11").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[10]C,Veri,43,0)"
Range("F12").Select

Saygılar

 

[Merhum İdris SERDAR]

Hocam çok oldum ama aşağıdaki kodların sadece bu kısmında ne demek isteniyor

Range("F5:F11").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[10]C,Veri,43,0)"
Range("F12").Select

Saygılar

("F5:F11") te yer alan formülü, formül çubuğuna getirip, Enter ile aynı formülün girilmesini sağladıktan sonra, bir alt hücreye gidiyor.

 

[Mdemir63]

("F5:F11") te yer alan formülü formül çubuğuna getirip, Enter ile aynı formülün girilmesini sağlayıp, bir alt hücreye gidiyor.

Teşekkürler hocam iyi geceler