Listwiew

[osmanucel]

listwievde conbobox 1 ise texbox 1 5.kolondakı verı , conbobox 2 ise texbox 1 6.kolondakı verı , conbobox 3 ise texbox 1 7.kolondakı verı bole bı şart koşmak mumkunmu acaba

 

[Korhan Ayhan]

Merhaba,

Sorunuzdan hiçbirşey anlaşılmıyor. Makroların temeli döngüler ve sorgular üzerine kuruludur. Size uygun bir sorgu mutlaka oluşturulabilir. Fakat sorunuzu daha anlaşılır sormalısınız.

 

[osmanucel]

listvievde tıklayıpta bılgılerı texboklara alıyoruz mesela texbox7
diyelım
texbox yedıye alacagımız bılgı
combobox3 dekı bılgıye gore
listwievdekı tıkladıgımız satırın
5.kolonu veya 6 kolonu veya 7 kolonunu alsın
onu demek ısdedım

 

[osmanucel]

dosya ekledım

bakarsanız sevınırım

 

[Korhan Ayhan]

Merhaba,

Sorunuz yine açıklayıcı değil. Ben anladığım kadarıyla aşağıdaki kodu veriyorum. Kendinize göre düzenlersiniz.

Private Sub Listview1_Click()
    X = ListView1.SelectedItem.Index
    TextBox10.Text = ListView1.ListItems(X).ListSubItems(1).Text 'BAGLANTI NO
    TextBox3.Text = ListView1.ListItems(X).ListSubItems(2).Text 'CARİ İSİM
    
    If ComboBox3 = ListView1.ListItems(X).ListSubItems(5).Text Then
        TextBox8.Text = ListView1.ListItems(X).ListSubItems(5).Text 'ORTA
    ElseIf ComboBox3 = ListView1.ListItems(X).ListSubItems(6).Text Then
        TextBox8.Text = ListView1.ListItems(X).ListSubItems(6).Text 'İNCE
    If ComboBox3 = ListView1.ListItems(X).ListSubItems(7).Text Then
        TextBox8.Text = ListView1.ListItems(X).ListSubItems(7).Text 'KALIN
    End If
    
    TextBox7.Text = ListView1.ListItems(X).ListSubItems(8).Text ' TONAJ
End Sub

 

[osmanucel]

Hocam vericem kosulu nereye yazıcam yazıyorum hata verıyo

 

[Korhan Ayhan]

Merhaba,

Koşulunuzu söylemediğiniz için ancak bu kadar yardımcı olabiliyorum.

"If..." ile başlayan satırlar sorgu-koşul satırlarıdır.

 

[osmanucel]

Private Sub Listview1_Click()
X = ListView1.SelectedItem.Index
TextBox10.Text = ListView1.ListItems(X).ListSubItems(1).Text 'BAGLANTI NO
TextBox3.Text = ListView1.ListItems(X).ListSubItems(2).Text 'CARİ İSİM

If ComboBox3 = ("08 MM NERVÜRLÜ İNŞAAT DEMİRİ")(X).ListSubItems(5).Text Then
TextBox8.Text = ListView1.ListItems(X).ListSubItems(5).Text 'ORTA
ElseIf ComboBox3 = ListView1.ListItems(X).ListSubItems(6).Text Then
TextBox8.Text = ListView1.ListItems(X).ListSubItems(6).Text 'İNCE
ElseIf ComboBox3 = ListView1.ListItems(X).ListSubItems(7).Text Then
TextBox8.Text = ListView1.ListItems(X).ListSubItems(7).Text 'KALIN
End If

TextBox7.Text = ListView1.ListItems(X).ListSubItems(8).Text ' TONAJ
End Sub

 

[osmanucel]

If ComboBox3 = ("08 MM NERVÜRLÜ İNŞAAT DEMİRİ")(X).ListSubItems(5).Text Then
BU YAZIYI NEREYE YAZICAMI SOLERMISINIZ

 

[osmanucel]

Pardon hocam benım hatam aklıma gelmedı özur dılerım

 

[osmanucel]

Hocam kosulu yazdım bakarmısınız

 

[Korhan Ayhan]

Merhaba,

ComboBox3 nesnesinde ne yazıyor?
ListView1 nesnesinin 5. sütununda ne yazıyor?

Bu soruları cevaplarsanız size cevap verebilirim.

 

[osmanucel]

08 mm nervurlü inşaat demiri hocam
demır gurubu
08,32 arası nervurlu ınsaat demırı
5.sutunda bır fıyat 1,450
6.sutunda 1,46
yedıncı sutunda 1,47
buna gore
08 mm yazıyosa
7 sutun
10 mm yazıyorsa
6 sutun
12 ve uzerı ıse
5 sutun olacak hocam

 

[osmanucel]

08 mm nervürlü inşaat demiri bu ınce 7.sutun
10 mm nervürlü inşaat demiri bu orta 6.sutun
12 mm nervürlü inşaat demiri bu kalın 5. Sutun
14 mm nervürlü inşaat demiri bu kalın 5. Sutun

16 mm nervürlü inşaat demiri bu kalın 5. Sutun

 

[osmanucel]

Bu sekılde hocam
ben demır fırmasında muhasebecıyım
bunları hıcbır muhasebe programı yapamıyo exel tek care

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub Listview1_Click()
    X = ListView1.SelectedItem.Index
    TextBox10.Text = ListView1.ListItems(X).ListSubItems(1).Text 'BAGLANTI NO
    TextBox3.Text = ListView1.ListItems(X).ListSubItems(2).Text 'CARİ İSİM
 
    If Val(Left(ComboBox3, 2)) = 8 Then
        TextBox8.Text = ListView1.ListItems(X).ListSubItems(7).Text
    ElseIf Val(Left(ComboBox3, 2)) = 10 Then
        TextBox8.Text = ListView1.ListItems(X).ListSubItems(6).Text
    ElseIf Val(Left(ComboBox3, 2)) >= 12 Then
        TextBox8.Text = ListView1.ListItems(X).ListSubItems(5).Text
    End If
 
    TextBox7.Text = ListView1.ListItems(X).ListSubItems(8).Text ' TONAJ
End Sub

 

[osmanucel]

Hata verdi hocam

 

[osmanucel]

Hocam oldu 3 uncu else ıf yaptım duzeldı haocam cok sagolun