Benim pc win11 64bit ve excel 2021 ve 32bit.
İstiyorsanız dosyayı yükleyin deneyeyim.
Değerli hocam çok ilgilendiniz benimle hakkınızı helal edin size 1 kamera hediye etmek isterim lütfen kabul edin.
Hocam şimdi bu sorunun yanı sıra farklı 2 - 3 sorun daha farkettim ve ne denediysem üstesinden gelemedim 39 yaşımdan sonra exceli öğrenmeye çalışıyorum
sorunlarımı sıralıyorum...
1. si userform1 de bir arama motoru yaptım listview1 i süzüyor öncelikle o tam istediğim gibi süzme yapmıyor yani en baş harfi baz alarak süzdürme yapıyor ama ben has yazdığımda hasan albayrak ı getirdiği gibi deniz hassas ı da getirmeli yani soy adlarınıda içersine almalı satışlar daki combobox1 e yaptığınız gibi...
2. si bu süzdürme sonucu çıkan sonucu silmek istiyorum normalde normal süzdürmeden sildiğimde sorun yok lakin süzdürüp sildiğimde seçili olan satırı değil ilk satırı siliyor satisdetay sayfasının j kolonuna refrans kodu ile yapmaya çalıştım beceremeyince bıraktım.
bunları yapabilirseniz minnettar kalırım.
3. sü ve sonuncusu...
Listview de seçtiğim satırda seçmek istediğim 2. 3. 4. 5. 6. 7. ve 8. kolonlar var ve bu kolonları aynı sıra ile "B" "C" "D" "E" F" "G" "H"
hücrelerine kaydetmek istiyorum lakin elimdeki kodlar 1. ve 9. kolonuda alıyor ek olarak textbox1 ve textbox2 de benim yazdığım textleri 1. ve 9. hücrelere eklemesini istiyorum kodlarım altaki gibidir.
Private Sub CommandButton1_Click()
Dim l As ListItem
Set s1 = ThisWorkbook.Worksheets("iade")
s = s1.Range("A65536").End(xlUp).Row + 1
Set l = UserForm1.ListView1.SelectedItem
s1.Cells(s, 1) = s - 5' AAAAA
s1.Cells(s, 2) = l.Text
s1.Cells(s, 4) = l.SubItems(1)
s1.Cells(s, 5) = l.SubItems(2)
s1.Cells(s, 6) = l.SubItems(3)
s1.Cells(s, 7) = l.SubItems(4)
s1.Cells(s, 8) = l.SubItems(5)
s1.Cells(s, 9) = l.SubItems(6)
Unload Me
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Initialize()
TextBox2 = Format(Date, "mm.dd.yyyy")
Me.TextBox2.Enabled = False
End Sub