listview toplama bölme çarpma yardım lütfen

[abdullahss]

 M=(C*D*2+E*F*2+G*H*2)*I*1,2   
AE = (L + M) * N * 1   
AF = (AE + O + P + Q + R + S + T + U + V)  
 AM = AF + AG + AH + AI + AJ + AK  
 AN = AM / AL

listvievde sutunlarda bu işlemleri yapmak istiyorum konu hakkında bilgili arkadaşlar yardım edebilirmisiniz.

 

[cems]

Sayın abdullahss;
Peşpeşe aynı konuyu aynı içerikle açmanız görünürlüğü artırdığı kadar cevap alma olasılığını da o kadar düşürüyor.

 

[abdullahss]

bu niyetle açmadım düzeltme yaptım ama birden gördümki 3 mesaj olmuş silmek istedim silemedim de

 

[halit3]

 M=(C*D*2+E*F*2+G*H*2)*I*1,2   
AE = (L + M) * N * 1   
AF = (AE + O + P + Q + R + S + T + U + V)  
 AM = AF + AG + AH + AI + AJ + AK  
 AN = AM / AL

listvievde sutunlarda bu işlemleri yapmak istiyorum konu hakkında bilgili arkadaşlar yardım edebilirmisiniz.

For a = 2 To 22

Yukarıdaki bölümden sonra aşağıdaki bölümü ekleyin

Cells(s, "L").Value = Cells(s, "J").Value * Cells(s, "K").Value * 1.5 * Cells(s, "I").Value
Cells(s, "AM").Value = Cells(s, "AF").Value + Cells(s, "AG").Value + Cells(s, "AI").Value + Cells(s, "AJ").Value + Cells(s, "AK").Value
Cells(s, "AF").Value = Cells(s, "AE").Value + Cells(s, "O").Value + Cells(s, "P").Value + Cells(s, "Q").Value + Cells(s, "R").Value + Cells(s, "S").Value + Cells(s, "T").Value + Cells(s, "U").Value + Cells(s, "V").Value
Cells(s, "AE").Value = (Cells(s, "L").Value * Cells(s, "M").Value) * Cells(s, "N").Value * 1
Cells(s, "AN").Value = Cells(s, "AM").Value / Cells(s, "AL").Value
ListView1.ListItems(y).ListSubItems.Add , , Cells(s, a).Value

 

[abdullahss]

halit bey hata veriyor 1004 kodlu

 

[halit3]

halit bey hata veriyor 1004 kodlu

4 nolu mesajdaki kodlardaki i harfi yerine s harfi olacaktı düzelttim.

 

[abdullahss]

teşekkürler halit bey bu şekilde oldu bişey daha sormak istiyorum bu sütunları listviewde kırmızı yazı karakteri olarak görmek mümkünmü

 

[halit3]

teşekkürler halit bey bu şekilde oldu bişey daha sormak istiyorum bu sütunları listviewde kırmızı yazı karakteri olarak görmek mümkünmü

kod

Private Sub UserForm_Initialize() ' listview başlıkları
With ListView1
listView = lvwReport  'ListView de buna dikkat etmeliyiz, Eğer ListWiev de burayıvwReport olarak ayarlamazsak diğer yapılan işlemler listemizde gözükmeyecektir.
.Gridlines = True 'Listeyi çizgili yapar.
.FullRowSelect = True 'liste elemanını seçtiğinizde tüm satır seçili olur.
With .ColumnHeaders
.Clear
For Y = 1 To 22
.Add , , Sheets("sayfa1").Cells(1, Y), Sheets("sayfa1").Cells(1, Y).Width, lvwColumnLeft
Next Y
End With
End With
For s = 2 To Cells(65530, 1).End(xlUp).Row
ListView1.ListItems.Add , , Cells(s, 1).Value
Y = ListView1.ListItems.Count
Cells(s, "L").Value = Cells(s, "J").Value * Cells(s, "K").Value * 1.5 * Cells(s, "I").Value
Cells(s, "AM").Value = Cells(s, "AF").Value + Cells(s, "AG").Value + Cells(s, "AI").Value + Cells(s, "AJ").Value + Cells(s, "AK").Value
Cells(s, "AF").Value = Cells(s, "AE").Value + Cells(s, "O").Value + Cells(s, "P").Value + Cells(s, "Q").Value + Cells(s, "R").Value + Cells(s, "S").Value + Cells(s, "T").Value + Cells(s, "U").Value + Cells(s, "V").Value
Cells(s, "AE").Value = (Cells(s, "L").Value * Cells(s, "M").Value) * Cells(s, "N").Value * 1
Cells(s, "AN").Value = Cells(s, "AM").Value / Cells(s, "AL").Value
For a = 2 To 22
ListView1.ListItems(Y).ListSubItems.Add , , Cells(s, a).Value
[COLOR=red][B]If a = 12 Or a = 13 Then[/B][/COLOR]
[COLOR=red][B]ListView1.ListItems(Y).ListSubItems(a - 1).ForeColor = 255[/B][/COLOR]
[COLOR=red][B]ListView1.ListItems(Y).ListSubItems(a - 1).Bold = True[/B][/COLOR]
[COLOR=red][B]End If[/B][/COLOR]
Next
Next
End Sub

 

[abdullahss]

:bravo::bravo::bravo: teşekkürler halit bey

 

[halit3]

:bravo::bravo::bravo: teşekkürler halit bey

iyi çalışmalar