userformda küçük bir hatayla başladı herşey.

Katılım
1 Ekim 2008
Mesajlar
4
Excel Vers. ve Dili
2007
merhaba dostlarım,şimdi ben önceden birşey istemiştim.sözlük gibi bişey.sonra forumdan da aldığım bi kaç kodu ekledim birbirine ama çalışmıyor bir bakarmısınız.
şimdi önce yapmak istediğimin resmini koyuyum.

böyle ama basit ekle için syn şaban hocanın hazırladığı pdf den

Kod:
Private Sub kayıt_Click()
If Range("A2") = "" Then
Range("A2").Select
ActiveCell = 1
ActiveCell.Offset(0, 1).value = TextBox1.value
ActiveCell.Offset(0, 2).value = TextBox2.value
Else
[A65536].End(xlUp).Offset(1, 0).Select
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1).value  = TextBox1.value 
ActiveCell.Offset(0, 2) .value = TextBox2.value 
End If
TextBox1 = ""
TextBox2 =""
TextBox1.SetFocus
kodu ile oluyordu.ben sitede yayınlanan hotels adlı excelden kodlar alıp düzenlemeye çalıştım,ama olmadı.ordaki listviewe excel aktarılmıyor birinci sorun yani şunun gibi olacak biraz

sizin gibi ustalar için basit birşey aslında,şimdi ekleyle normal verilen kodla istediğim oluyor.yazıyorum ekliyorum alt alta ekliyor.
listviewe tıklayınca o veriye kutulara veri gelmiyor.
temizle butonu na gerek yok aslında.
bir de şey olabilir mi şimdi
mesela "rescate " yazacağım birinci kutuya "r" ye bastım sonra listwievde r harfindekiler otomatik olarak gelsin.sonra işte "ras" diye yazmaya devam ettiğimde ras la başlayanlar sıralansın
rasa...
rasf...
rasr...
diye .
birde listviewin üstünde bir veri çift tıkladığımda boxlara gelecek ya.sonra sil tuşuna basınca silinecek.birde listwiev de yukarda gördüğünüz gibi bölge alt bölge felan yazıyorya onlara tıklayınca,a-z felan sıralanıyordu.onuda ekleyebilir misinz.zaten listwievin içinde iki sütun olacak sadece.
teşekkürler .
 
Üst