Listboxtan textboxa veri aktarma ve duzeltme hatasi

[nicosian]

listbox tan verileri textboxa aktariyorum ancak, aktarma islemi yaparken listbox suzunce ilk deger degisiyor ve duzeltme +silme hatasi veriyor.

ilgilenirseniz sevinirim.

 

[Orion1]

listbox tan verileri textboxa aktariyorum ancak, aktarma islemi yaparken listbox suzunce ilk deger degisiyor ve duzeltme +silme hatasi veriyor.

ilgilenirseniz sevinirim.

Örnek dosya ekleyebilirseniz bakarım.

 

[nicosian]

dosyayi ekledim ama bisekilde gozukmemis sory hocam.

 

[Orion1]

Dosyanız ektedir.

 

[nicosian]

usta sagolasin biraz fikir sahibi oldum, ama acilirken userform hata veriyor, bir kac seyi sildim gereksizleri, aama texbox21 in icinde kelime yazdigimda yine hata veriyor. suzme yapamadim.
sende hersey calisiyormuydu??

 

[Orion1]

usta sagolasin biraz fikir sahibi oldum, ama acilirken userform hata veriyor, bir kac seyi sildim gereksizleri, aama texbox21 in icinde kelime yazdigimda yine hata veriyor. suzme yapamadim.
sende hersey calisiyormuydu??

bende çalışıyordu.
neleri yaptım?
1- listboxa verileri ilk açılışında aldım.
2-yeni koyduğum textbox21 ile süzme yapıp süzlenleri listbpxa aldım
3-listboxa tıklayınca verileri textboxlara aktardım.
Bunlar ben denedim sorunsuz çalışıyorlar.

 

[Orion1]

tekrar düzenlediğim dosyayı indirp deneyiniz.

 

[nicosian]

ılk acılırken compıle error cant fınd project or lıbrary hatası verdı, textbox18,19 u sıldım ordan. Sonra saattekı hatayı verdı, yıne aynı compıle error, saatı sıldım. Sonra ımage1 hatası verdı, onuda sıldım. Sonra textbox21 e bır ısım yazdım, ılk kelımeden yıne compıle error adı verdı.
Ne yapabılırım??? Bır yerde gozden kacan bırsey var sankı

 

[Orion1]

ılk acılırken compıle error cant fınd project or lıbrary hatası verdı, textbox18,19 u sıldım ordan. Sonra saattekı hatayı verdı, yıne aynı compıle error, saatı sıldım. Sonra ımage1 hatası verdı, onuda sıldım. Sonra textbox21 e bır ısım yazdım, ılk kelımeden yıne compıle error adı verdı.
Ne yapabılırım??? Bır yerde gozden kacan bırsey var sankı

VBE'de tools==> refernceden missing ile başlayan nesnelerin tikini silin.

 

[nicosian]

Usta sagolasın cok)

 

[nicosian]

Usta sılme ıslemınde bır hata varmı???

 

[nicosian]

Orion usta bir silme olayina bakabilirmisin lutfen...

 

[Orion1]

Orion usta bir silme olayina bakabilirmisin lutfen...

Dosyanız ektedir.

 

[nicosian]

usta cok tesekkur ederim, peki bunu listtview de nasil yapabilirz? listbox da sutun genisligi ve yer degistirme malum yok.

 

[Orion1]

usta cok tesekkur ederim, peki bunu listtview de nasil yapabilirz? listbox da sutun genisligi ve yer degistirme malum yok.

Ne istediğinizi anlayamadım.
listboxta sütun genişliği ayarlanabiliyor.columnwidth özelliği ile.

 

[nicosian]

Ne istediğinizi anlayamadım.
listboxta sütun genişliği ayarlanabiliyor.columnwidth özelliği ile.

haklisin usta onla ayarladim ama listview daha kaliteli gozukur, ayrica en sonraki colonu en basa tasima ozelligi falan da var o bakimdan demistim. eger yapilabilirse listview olarak bana duzenleme sansin varmi>? listbox yerine listview

 

[Orion1]

haklisin usta onla ayarladim ama listview daha kaliteli gozukur, ayrica en sonraki colonu en basa tasima ozelligi falan da var o bakimdan demistim. eger yapilabilirse listview olarak bana duzenleme sansin varmi>? listbox yerine listview

yaparım.ama şunuda belirteyim.listview verileri döngü ile alıyor.listbox ise bir çırpıda alıyor.veriler az olduğunda anlamazsınız ama 5 bin 10 bin kayıt olsun o zaman anlarsınız farkı.Hız açısından.

 

[Orion1]

Listviewli dosyanız ektedir.

 

[nicosian]

Private Sub CommandButton3_Click()

Dim deg15
For i = 1 To adet
deg15 = Controls("Textbox" & i).Text
If deg15 <> "" Then
'If IsNumeric(Controls("Ttext" & i).Text) = True Then
If Len(Controls("Textbox" & i).Text) = 10 Then
If IsDate(Controls("Textbox" & i).Text) = True Then
Sheets(hatakayit).Cells(x, i).Value = Controls("Textbox" & i).Text
Else
Sheets(hatakayit).Cells(x, i).Value = Controls("Textbox" & i).Text * 1
End If
Else
Sheets(hatakayit).Cells(x, i).Value = Controls("Textbox" & i).Text * 1
End If
Else
Sheets(hatakayit).Cells(x, i).Value = Controls("Textbox" & i).Text
End If

'End If
Next

End Sub
boyle bir sey yazdim ama degisen birsey olmadi usta, duzeltme islemi icn.

 

[nicosian]

duzeltme islemini cozdum usta, yalniz bir sikinti var, senin yaptigin vba da oyle.
sil-duzelt-kaydet dedigimiz zaman herhangi birini, userform initialize calistigi zaman kisaca,
listview otomatik olarak bir extra tablo daha cikariyor bittigi yerin sag tarafina.
bu hatayi duzeltemedim simdilik...