E

Çözüldü Listview Nesnesinden Belli Satırları Aktarma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
E

exblue

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
32 Bit
Excel Dili
Türkçe
Listview seçili satırdaki belli kolonlardaki verileri belli hücrelere aktarma

Merhabalar 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 şimdiden yardımlarınız için çok teşekkür ederim 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
 
Tarihe göre sırala Oylamaya göre sırala
@exblue

Örnek belge iletirseniz kesin çözüm önerisi daha rahat gelirdi.

Ancak, kullandığınız mevcut kodda yer alan;
-- s = s1.Range("A65536").End(xlUp).Row + 1 satırını s = s1.Cells(Rows.Count, 2).End(3).Row + 1 şeklinde değiştirip,
-- s1.Cells(s, 1) = s - ..... satırını silip,
-- s1.Cells(s, 9) = l.Su..... satırını silmeniz
yeterli olur gibi görünüyor.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@exblue

Örnek belge iletirseniz kesin çözüm önerisi daha rahat gelirdi.

Ancak, kullandığınız mevcut kodda yer alan;
-- s = s1.Range("A65536").End(xlUp).Row + 1 satırını s = s1.Cells(Rows.Count, 2).End(3).Row + 1 şeklinde değiştirip,
-- s1.Cells(s, 1) = s - ..... satırını silip,
-- s1.Cells(s, 9) = l.Su..... satırını silmeniz
yeterli olur gibi görünüyor.
Genişletmek için tıklayın ...
Çok teşekkür ederim ömer hocam
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@exblue

Örnek belge iletirseniz kesin çözüm önerisi daha rahat gelirdi.

Ancak, kullandığınız mevcut kodda yer alan;
-- s = s1.Range("A65536").End(xlUp).Row + 1 satırını s = s1.Cells(Rows.Count, 2).End(3).Row + 1 şeklinde değiştirip,
-- s1.Cells(s, 1) = s - ..... satırını silip,
-- s1.Cells(s, 9) = l.Su..... satırını silmeniz
yeterli olur gibi görünüyor.
Genişletmek için tıklayın ...
Hocam maalesef olmadı örnek dosyayı iletiyorum userform1 de listview1 deki satırları silmeden önce iade sayfasına kaydettirmeye çalışıyorum ama iade tarihi ve iade açıklamasını ben girmek istediğim için açıklama adlı userform u çağırıyorum. teşekkür ederim

https://***/whsfsuosziyv/yeni_stok_programı_(2)3.xlsm.html
 
Oyla 0 Olumsuz oyla
Hocam birde sizden bir ricam olacak
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ı.

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 iyi çalışmalar.
 
Oyla 0 Olumsuz oyla
sanırım bilen biri yok... Yinede desteğiniz için teşekkür ederim en azından listviewde referans numaralı satırı bulup silebileceğim bir kod söyleyebilirseniz sevinirim hiçbir örnek bulamadım maalesef
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler İçerikler Daha Fazlası

Üst