Listview nesnesinde seçilen verinin sayfada select ile ilgili hücrede seçilmesi

[udentr2002]

Merhaba,

Başlık pek açıklayıcı olmadı ama şöyle anlatayım,

Listview nesnesinde diyelim ki 10 satırlık veri var listview nesnesi üzerinde maus ile tıklayıp seçtiğimiz satıra ait bilgilerin ilgili sayfada select ile hücrenin seçili olması.

Böyle bir şey mümkünmü acaba?

 

[udentr2002]

Çok değerli üstatlar böyle br şeyin imkanı var mı acaba?

 

[Orion1]

Çok değerli üstatlar böyle br şeyin imkanı var mı acaba?

Var.

 

[udentr2002]

Peki nedir o yöntem üstadım

 

[udentr2002]

Hocam ekli dosya ekliyorum. belki ekli dosya üzerinden daha kolay yardım edebilrsiniz.

Form aç butou ile formu açtığımızda multipage de "Malzeme Çıkış" sayfasında comboboxlardan listview e süzme yapıyorum. Gerek süzme yaptıktan sonra gerek süzmeden listview nesnesine tıkladıktan sonra mesme listview de seçili olan satırın Veri sayfasında da select şeklinde seçili olabilir mi? Yani listview de seçilen bilginin sayfadada seçili olması satırın değilde o satıra ait ilk hücrenin seçilmesi. Bu konu hakkında yardımlarınızı rica ediyorum.

SAYGILARIMLA

 

[Orion1]

kendi dosyanıza göre düzenleyiniz.
dosya ektedir.

 

[udentr2002]

Hocam ellerinize sağlık,

Kendi dosyama uyarlamaya çalışacağım.
Teşekkürler.

 

[udentr2002]

Hocam olmadı ya hata veriyor.
Listview click olayına

sat = ListView3.ListItems(ListView3.SelectedItem.Index).SubItems(19)
Sheets("Veri").Cells(sat, "A").Select

yazdım ama rubtime error :13

typme mismatch hatası veriyor.

Bakabilmeniz mümkün mü acaba?

 

[udentr2002]

Konu hakkında yardımlarınızı rica ederim.

 

[udentr2002]

Hocam,

kodları sizin koda göre revize ettim.
en başta comboboxlarda arama yapmadan önce listview nesnesine tıkaldığımızda oluyor.
fakat comboboxdan veri seçip listview e süzdükten sonra listview nesnesine tıkladığımızda da o ver,iyi sayfada işaretlemesi lazım. süzdükten sonra ne yaptımsa beceremedim hocam ya.

Veriyi combobox ile süzdükten sonra listview nesnesine tıkladığımızda sayfada o veriyi işaretlemesi için ne yapabilirim. yardım ederseniz gerçekten çok makbule geçecektir.

Kolay gelsin.

 

[udentr2002]

Hocam arama kodu aşağıa ki gibi

Private Sub CommandButton6_Click()
Sheets("Veri").Activate
 Set SR = Sheets("Veri")
    ListView3.ListItems.Clear
    ALAN = IIf(ComboBox7 = "", Range("A3:A" & [a65536].End(3).Row).Address, Range("A1:A" & [a65536].End(3).Row).Address)
    Set bul = Range(ALAN).Find(ComboBox7 & "*", LookAt:=xlWhole)
    If Not bul Is Nothing Then
    Adres = bul.Address
    Do
    satır = bul.Row
    With ListView3
    .ListItems.Add , , SR.Cells(satır, 1)
    x = x + 1
   .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 2)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 3)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 4)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 5)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 6)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 7)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 8)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 9)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 10)
    deg = deg + CDbl(SR.Cells(satır, 10))
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 11)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 12)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 13)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 14)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 15)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 16)
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 17)
    
    .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 18)
    deg1 = deg1 + CDbl(SR.Cells(satır, 18))
     .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 19)
      .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 20)
      .ListItems(x).ListSubItems.Add , , SR.Cells(satır, 21)
     say = say + 1
   End With
    Set bul = Range(ALAN).FindNext(bul)
    Loop While Not bul Is Nothing And bul.Address <> Adres
    End If
  
    Set SR = Nothing
    Set ALAN = Nothing
    Set bul = Nothing
    
     TextBox45.Text = deg & " gram"
     TextBox46.Text = deg1 & " gram"
     TextBox47.Text = deg - deg1 & " gram"
    
    ComboBox8 = ""
ComboBox9 = ""

End Sub

Bu arama kodu ile listview nesnesine süzme yapıyorum. Süzdükten sonra listview nesnesine tıkladığımızda o verinin sayfada da işaretlenmesi için ne yapabilirim?

 

[halit3]

Burada verileri ListView nesnesine alırken satır numaralarınıda alırsanız bu sorun düzelir.

Örnek olarak dosyanızda ListView birinci (0kolon) sütununa bu numaraları aldırdım dosyanızı kontrol edip kendinize göre düzenleyin.

 

[udentr2002]

Hocam emeğine ve bilginize sağlık.
hakkınızı helal edin şimdi kendi dosyama uyarlıyorum.