Listboxa çift tıklama ile diğer formdaki verilerin gelmesi

[chngrcn]

Sevgili üstadlarım;

aşağıda eklemiş olduğum çalışmam da userform2'nin listbox'ında süzdüğüm veriyi ( kişiyi ) listboxta üzerine çift tıkladığımda o kişiye ait bilgilerin ( yani userform1'in ) userform1 de görüntülenmesini istiyorum.. listboxta kimi seçip çift tıklarsam o kişiye ait bütün veriler userform1 de önüme gelsin.. bunu yapabilir miyiz acaba ? bi türlü işin içinden çıkamadım ?

 

[Ömer]

Merhaba,

UserForm2 için;

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim c As Range
Set c = Range("C:C").Find(ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then Range("A" & c.Row).Select
End Sub

.

 

[Orion1]

Ben listboxın click olayına textbox1 ve tetxbox2 için kod yazdım.Diğer boxlar içinde siz yazabilirsiniz.

Private Sub ListBox1_Click()
Dim sat As Long, sh As Worksheet
If ListBox1.ListCount < 1 Then Exit Sub
sat = ListBox1.Column(2)
Set sh = Sheets("Sayfa1")
UserForm1.TextBox1.text = sh.Cells(sat, "B").Value
UserForm1.TextBox2.text = sh.Cells(sat, "C").Value
End Sub

 

[chngrcn]

Merhaba,

UserForm2 için;

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim c As Range
Set c = Range("C:C").Find(ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then Range("A" & c.Row).Select
End Sub

.

Ben listboxın click olayına textbox1 ve tetxbox2 için kod yazdım.Diğer boxlar içinde siz yazabilirsiniz.

Private Sub ListBox1_Click()
Dim sat As Long, sh As Worksheet
If ListBox1.ListCount < 1 Then Exit Sub
sat = ListBox1.Column(2)
Set sh = Sheets("Sayfa1")
UserForm1.TextBox1.text = sh.Cells(sat, "B").Value
UserForm1.TextBox2.text = sh.Cells(sat, "C").Value
End Sub

üstadlarım ikinizide çok teşekkür ediyorum.. Allah razı olsun...

yalniz bir sorum daha olacak;

userform1 de dikkat ettiyseniz "kişi hakkında görüş ve düşünceler" kısmındaki textbox'ta yazı yazarken çok uzun birşey yazıldığında textbox iki boşluk arasında satır sonuna geldimi yazı devam ediyorsa bir alt satıra atlasın..

yani textbox'a "iki yana yasla" özelliği varmıdır ?

eğer textbox değilde başka bişeyde de yapılabilir mi ? benim için önemli olan o kutuya bişey yazıldımı sadece textbox'un boyutları içinde görünsün, satırı otomatikman bir alt satıra atsın textbox'un boyutunun dışına çıkıp yazıyı kaydırma yapmasın ? bunun icin bir kod yada özellik varmi ? yada textbox dışında başka bir opsiyon koyulabilri mi ? umarım anlatabilmişimdir... saygılarımı sunarim siz değerli üstadlarıma..

 

[Orion1]

Propertiesten Textboxın multiline özelliğini true yapın.

 

[chngrcn]

tekrar tesekkür ederim evren hocam.... ama yine bir sorum olacak doğum günü gelenler için hatırlatma makrosu varmi acaba excelde ? saygılar sunarım.. ( herzaman imdadımıza yetişiyorsunuz Allah cümlenizden razı olsun.. sayenizde çok şey öğreniyoruz.. )

 

[chngrcn]

hocam tam olarak istediğim userformda gün ay yıl olarak doğum günü gelenleri otomatik olarak hatırlatma yapsın.. mesela msgbox " Ahmet ONAT'ın bugün doğum günü"
gibi bir uyarı versin... userform üzerinde olursa bu uyarı süper olur.. forumu araştırdım ama, çalışma kitabı üzerinde koşullu biçimlendirme ile hatırlatma örnekleri var.. userform üzerinde yazılarak çalışan bir makro bulamadim.. kod ile nasıl yazılabilir ? sistem doğumtarihi sütunundaki verileri tarayıp bugun doğum günü olanları otomatik olarak userformda msgbox ile uyarı vermesi olayı... sizce yapılabilir mi üstadlarım ?

 

[Ömer]

Merhaba,

Linki inceleyiniz..

http://www.excel.web.tr/showthread.php?t=77490

Not: Konu bütünlüğünü korumak için, farklı konularla ilgili sorularınız için yeni konu başlığı açarak sorunuzu sormanızı rica ederim.

.

 

[Orion1]

hocam tam olarak istediğim userformda gün ay yıl olarak doğum günü gelenleri otomatik olarak hatırlatma yapsın.. mesela msgbox " Ahmet ONAT'ın bugün doğum günü"
gibi bir uyarı versin... userform üzerinde olursa bu uyarı süper olur.. forumu araştırdım ama, çalışma kitabı üzerinde koşullu biçimlendirme ile hatırlatma örnekleri var.. userform üzerinde yazılarak çalışan bir makro bulamadim.. kod ile nasıl yazılabilir ? sistem doğumtarihi sütunundaki verileri tarayıp bugun doğum günü olanları otomatik olarak userformda msgbox ile uyarı vermesi olayı... sizce yapılabilir mi üstadlarım ?

Sayfanızda böyle bir sütun yok.
Hazırlayıp yollarsanız yaparım.

 

[chngrcn]

Sayfanızda böyle bir sütun yok.
Hazırlayıp yollarsanız yaparım.

SAYIN hocam doğum tarihi sütunu vardi.. sadece userformda bu olayin gerçekleşmesini istiyorum.. ekliyorum tekrar dosyayi... bide userform2'de listbox'a refresh olayı koyabilir miyiz ? oraya bir buton koyalim listbox'u yenilesin ( refresh )

 

[Orion1]

Bu programa külfet getirir.Çünkü döngüye girmek gerekecek.Şimdi anlamazsınız ama satır sayısı 40 bin 50 bin olunca sıkıntı olacaktır.
Dosyanız ektedir.

Sub auto_Open()
Dim hcr As Range, sat As Long, var As Boolean
sat = Sheets("Sayfa1").Cells(65536, "F").End(xlUp).Row
If sat < 4 Then Exit Sub
For Each hcr In Sheets("Sayfa1").Range("F4:F" & sat)
    If Day(hcr.Value) = Day(Date) And Month(hcr.Value) = Month(hcr.Value) Then
        UserForm3.ListBox1.AddItem hcr.Offset(0, -3).Value
        var = True
    End If
Next
If var = True Then UserForm3.Show
End Sub

 

[cihangir can]

teşekkür ederim üstadım.. bu gold üyeliği düşünüyorum.. videoların çok faydası vardır umarım ?