• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listbox Listelenmiş verileri çarpma

D

DERYAUZUN07

Katılım
5 Mart 2012
Mesajlar
14
Excel Vers. ve Dili
2003+2010
Arkadaşlar Merhaba,

Listbox verileri aldırıyorum ve şunu yaptırmak istiyorum 9 Sütuna ve 10 sütuna ListBox1.List8 ve ListBox1.List9 çarpım sonuçunu aldıra bilirmiyiz...?

Teşekküler,
 

Ekli dosyalar

DERYAUZUN07' Alıntı:
Arkadaşlar Merhaba,

Listbox verileri aldırıyorum ve şunu yaptırmak istiyorum 9 Sütuna ve 10 sütuna ListBox1.List8 ve ListBox1.List9 çarpım sonuçunu aldıra bilirmiyiz...?

Teşekküler,
Genişletmek için tıkla ...

İstediğiniz şöyle mi?

Kod: 
Private Sub ComboBox1_Change()
Dim sat, s As Long
ListBox1.Clear
ListBox1.ColumnCount = 10
'ListBox1.ColumnWidths = "kolon genişlik"
    For sat = 1 To Cells(65536, "A").End(xlUp).Row
        If Cells(sat, "D") Like ComboBox1 Then
            ListBox1.AddItem
            ListBox1.List(s, 0) = Cells(sat, "B")
            ListBox1.List(s, 1) = Cells(sat, "C")
            ListBox1.List(s, 2) = Cells(sat, "D")
            ListBox1.List(s, 3) = Cells(sat, "E")
            ListBox1.List(s, 4) = Format(Cells(sat, "G"), "dd.mm.yyyy")
            ListBox1.List(s, 5) = Cells(sat, "BC")
            ListBox1.List(s, 6) = Cells(sat, "BD")
            ListBox1.List(s, 7) = Cells(sat, "BE")
            ListBox1.List(s, 8) = Cells(sat, "BF")
           [COLOR="Red"] ListBox1.List(s, 9) = Cells(sat, "BF") * Cells(sat, "BE")[/COLOR]
            s = s + 1
        End If
    Next
Call toplamal
End Sub
 
Evet bu çok teşekkür ederim.
ListBox1.List(s, 9) "0,066" (1000*,66%) nasıl aldıra bilirim ListBox1.List(s, 10) sütuna
 
Bu konuda bana yardım edebilecek kimse yokmu

Çarpma yaptırdığım listbox.list9 yüzdesini aldırmak istiyorum
 
DERYAUZUN07' Alıntı:
Evet bu çok teşekkür ederim.
ListBox1.List(s, 9) "0,066" (1000*,66%) nasıl aldıra bilirim ListBox1.List(s, 10) sütuna
Genişletmek için tıkla ...

ListBox1.List(s, 10)= Listboxda 11. sütun olur fakat listbox a 10 sütundan fazla
eklenemiyor.
Ama şöyle olabilir.
Kod: 
Private Sub ComboBox1_Change()
Dim sat, s As Long
ListBox1.Clear
ListBox1.ColumnCount = 10
'ListBox1.ColumnWidths = "kolon genişlik"
    For sat = 1 To Cells(65536, "A").End(xlUp).Row
        If Cells(sat, "D") Like ComboBox1 Then
            ListBox1.AddItem
            ListBox1.List(s, 0) = Cells(sat, "B")
            ListBox1.List(s, 1) = Cells(sat, "C")
            ListBox1.List(s, 2) = Cells(sat, "D")
            ListBox1.List(s, 3) = Cells(sat, "E")
            ListBox1.List(s, 4) = Format(Cells(sat, "G"), "dd.mm.yyyy")
            ListBox1.List(s, 5) = Cells(sat, "BC")
            ListBox1.List(s, 6) = Cells(sat, "BD")
            ListBox1.List(s, 7) = Cells(sat, "BE")
            ListBox1.List(s, 8) = Cells(sat, "BF")
        [COLOR="#ff0000"]    ListBox1.List(s, 9) = (Cells(sat, "BF") * Cells(sat, "BE")) * 0.66[/COLOR]
    
            s = s + 1
        End If
    Next
Call toplamal
End Sub
 
merhaba aslında o işlem tamam ama ben şunu yapamadım
aşağıdaki kodda ListBox1.List(s, 9) bi işlem yapıyorum bu işlemin sonucuna *,66 aldırmak istiyorum
Teşşekkürler.


Private Sub ComboBox1_Change()
Dim sat, s As Long
ListBox1.Clear
ListBox1.ColumnCount = 11
'ListBox1.ColumnWidths = "kolon genişlik"
For sat = 1 To Cells(65536, "A").End(xlUp).Row
If Cells(sat, "D") Like ComboBox1 Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "B")
ListBox1.List(s, 1) = Cells(sat, "C")
ListBox1.List(s, 2) = Cells(sat, "D")
ListBox1.List(s, 3) = Cells(sat, "E")
ListBox1.List(s, 4) = Format(Cells(sat, "G"), "dd.mm.yyyy")
ListBox1.List(s, 5) = Cells(sat, "BC")
ListBox1.List(s, 6) = Cells(sat, "BD")
ListBox1.List(s, 7) = Cells(sat, "BE")
ListBox1.List(s, 8) = Cells(sat, "BF")
ListBox1.List(s, 9) = Cells(sat, "BF") * Cells(sat, "BE") / 360
s = s + 1
End If
Next
Call toplamal
End Sub
 
Husgvarna mehaba,

öncelikle cvabınız için teşekkürler


ListBox1.List(s, 9) = )Cells(sat, "BF") * Cells(sat, "BE") / 360) bu sonu bulduktan sonra

bu sonuçun yani ListBox1.List(s, 10) = ListBox1.List(s, 9) *,66 gibi


umarım anlata bilmişimdir.
 
DERYAUZUN07' Alıntı:
Husgvarna mehaba,

öncelikle cvabınız için teşekkürler


ListBox1.List(s, 9) = )Cells(sat, "BF") * Cells(sat, "BE") / 360) bu sonu bulduktan sonra

bu sonuçun yani ListBox1.List(s, 10) = ListBox1.List(s, 9) *,66 gibi


umarım anlata bilmişimdir.
Genişletmek için tıkla ...
Merhaba

Yukarıdada belirttiğim gibi Listboxda birinci sütun "0", ikinci sütun "1"...
onuncu sütun "9" dur.
ListBox1.List(s, 10) bu onbirinci sütun oluyor
ve Listboxa 10 sütundan fazla eklenemiyor.İstediğiniz "Listview" le
mümkün olur.
 
tama ama benim çalışmam 10 sutunu geçmeyecek en fazla 7 tane olacak
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst