TextBox

[simplyfun]

Arkadaşlar bu balığı daha öncede açmıştım ama net bir yanıt alamadığım için tekrar sorma gereksinimi duydum.Yardımcı olabilecek arkadaşlar lütfen yardımcı olsun.Şimdiden gösterdiğiniz ilgi ve emek için teşekkür ederim.Saygılar

Yardımcı olan arkadaşlar nasıl yaptıklarını anlatırlarsa sevinirim.

 

[Orion1]

Arkadaşlar bu balığı daha öncede açmıştım

:lol: :lol:

 

[Korhan Ayhan]

Selamlar,

Bence bu işlem için liste kutusu kullanmanıza gerek yok. Birleştirilmiş ile yapılmış ekteki örnek dosyayı incelermisiniz.

İşlemin yapılışı;

E3:K9 hücre aralığını seçtikten sonra "Birleştir ve Ortala" yapın.
Birleştirilmiş bu alan üzerinde iken formül çubuğuna aşağıdaki formülü yazın.

Artık C5 hücresinden yapacağınız her seçimde bu alandaki açıklama güncellenecektir.

=EĞER(EYOKSA(DÜŞEYARA(C5;S3:T15;2;0));"";DÜŞEYARA(C5;S3:T15;2;0))

Not: Birleştirme yapacağınız hücre aralığını kendinize göre düzenleyebilirsiniz.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C5]) Is Nothing Then Exit Sub
Set k = Range("S:S").Find(Range("C5").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox1.Value = Cells(k.Row, k.Column + 1).Value
End If
Set k = Nothing
End Sub

 

[simplyfun]

Arkadaşlar çözümleriniz teşekkür ederim ama sorunum şu; kutu içerisine yazılan metin uzun olduğu ve ben bu kadar büyük bir kutu (yada bu kadar büyük bir birleştirilmiş hücre) oluşturmak istemediğim için bir text box istiyorum yani yanında yukarı-aşağı hareket tuşları olan bir kutucuk olsun.(Küçük bir kutucuk, metnin tamamı okunmak istenildiğinde hareket tuşları kullanılarak aşağı yukarı hareket ile okunsun). Yardım pls.

 

[Orion1]

Arkadaşlar çözümleriniz teşekkür ederim ama sorunum şu; kutu içerisine yazılan metin uzun olduğu ve ben bu kadar büyük bir kutu (yada bu kadar büyük bir birleştirilmiş hücre) oluşturmak istemediğim için bir text box istiyorum yani yanında yukarı-aşağı hareket tuşları olan bir kutucuk olsun.(Küçük bir kutucuk, metnin tamamı okunmak istenildiğinde hareket tuşları kullanılarak aşağı yukarı hareket ile okunsun). Yardım pls.

Anlaşılan benim yolladığım dosyayı incelemememişsiniz.

 

[Orion1]

Textbox'a bir kere tıklarsanız dikey scrollBar ortaya çıkacaktır.

 

[simplyfun]

Anlaşılan benim yolladığım dosyayı incelemememişsiniz.

Sizin gönderdiğiniz dosyadaki kutucuğun boyutlarına müdahale edemiyorum. Nasıl küçültebilirim?

 

[Orion1]

Sizin gönderdiğiniz dosyadaki kutucuğun boyutlarına müdahale edemiyorum. Nasıl küçültebilirim?

Toolbarı'ın bulunduğu boş bir yere sağ tuş ile tılayın.Çıkan listeden Denetim araç kutusunu işaretleyin.Denetim araç kutusundaki gönyeye bir kere tıklayın.
Textbox'ı istediğiniz boyuta getirin.Sonra gönyeye bir kere dağa tıklayın.
İşlem tamamdır.

 

[simplyfun]

Süpersiniz çalışıyor.Elleriniz dert görmesin.Teşekkürler

 

[Orion1]

Süpersiniz çalışıyor.Elleriniz dert görmesin.Teşekkürler

Rica ederim.
Sizde süpersiniz.
İyi çalışmalar.:hey:

 

[Orion1]

Merhaba.
Özel mesajda belirtiğiniz üzere sorunuzdan anladığım kadarı ile ekli dosyayı yaptım.İnceleyiniz.

 

[simplyfun]

Yanlış anlaşıldı sanırım

Merhaba.
Özel mesajda belirtiğiniz üzere sorunuzdan anladığım kadarı ile ekli dosyayı yaptım.İnceleyiniz.

Sayın Orion,

Ekli örneği inceledim ancak sorumu anlatamadım sanırım. Sizden gnderdiğim örneği incelemenizi rica ediyorum. Orda gerekli açıklamaları yazdım. Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Sayfanızın kod bölümünde bulunan kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D8]) Is Nothing Then Exit Sub
    TextBox1.Value = Evaluate("=IF(ISERROR(INDEX(U:V,MATCH(D8,U:U,0),2)),"""",INDEX(U:V,MATCH(D8,U:U,0),2))")
End Sub

 

[Orion1]

Merhaba.
Galiba Find Komutu Gizli satır ve sütunlarda çalışmıyor.Kodu değiştirip döngüye girerek sorguladım.Bu sefer gizlenmiş hücrelerde çalıştı.
Ekli dosyayı inceleyiniz.

 

[simplyfun]

Üstad çalışıyor,

Başını ağrıttım çok teşekkür ederim

 

[Orion1]

Üstad çalışıyor,

Başını ağrıttım çok teşekkür ederim

Rica ederim.
İyi çalışmalar.