Seçilen satıra göre belirli bir sütunun hücresini Metin kutusunda gösterme

[LorryFick]

İyi Günler,

Aynı sayfada oluşturduğum metin kutusuna veri getirmek istiyorum ancak, satırlar arası gezildiğinde örnegin sadece C sutunun seçilen o satırdaki hücresinin verisini göstermek istiyorum,

Örnekle,

A B C D E sutunlarında 22. Satıra kadar veri var, Metin kutusuna, 5. satırda herhangi bir hücreye veya bir yere tıkladıgımda o satıra geçtigimde text boxa o satıra ait C sutunundaki verinin gösterilmesini istiyorum,

14. Satırda a hücresine tıkladım, metin kutsuna 14. Satırın C sütununda bilgisi gelebilir mi ? Gibi,

Hücre seçtirrerek metin kutusna veri gösterebiliyorum ancak, satırı seçtirip belirli bir bhücredei veriyi getiremiyorum.

 

[Ömer]

Merhaba,

Yanlış anlamışta olabilirim.
İstediğiniz bu mu? Kodlar örnektir, Cells(sat, "C") değerini görmek istediğiniz bölüme eklersiniz.

Sub test()
    Dim sat As Long
    sat = Selection.Row
    MsgBox Cells(sat, "C")
End Sub

 

[LorryFick]

Merhaba

Cevabınız için çok teşekkürler, bu şekilde sadece bir kere getiriyor daha sonra satırlar arasında geçiş yaptıgımda tekrar getirmiyor
İlave olarak MsgBox olarak değil, sayfada oluşturdugum textboxa getirmesini düşünüyorum.

 

[Ömer]

Örnek dosa ekleyerek yapmak istediğinizi dosya içindeki sayfa içerisinde detaylı açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1:E22")) Is Nothing Then Exit Sub
    MsgBox Cells(Target.Row, "C")
End Sub

 

[LorryFick]

Günaydınlar hepinize çok teşekkür ederim, Metin kutusu ile uğraşmaktansa bir hücre üzerinden yaparak şu şekilde çözdüm

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A7:M100")) Is Nothing Then Exit Sub
Range("N7").Value = Cells(Target.Row, "C")

N7 hücresinide büyüttüm diğer hücrelerle ile birleştirerek böylece metin kutusu gibi oldu .

Yalnız bölme dondur ile cözemeyecegim başka bir problem cıktı, veriler hücreye geliyor ancak sayfayı aşağı cektigimde içeriginde sayfa ile birlikte gelmesini istiyorum, hücre içerisindeki yazıları kaydırdıgım ekranla birlikte kaymasını ve sürekli görünür kalmasını sağlayabilir miyim.

 

[Korhan Ayhan]

Bu işlem için bir UserForm kullanabilirsiniz...