ListBox Karekter sorunu ve Etopla

[unalh]

TextBox Karekter sorunu ve Etopla

S.a Arkadaşlar, Hayırlı Cumalar.


Sorunumu resimlerde anlattım belki konu çok işlendi fakat bulduğum bütün formülleri denedim genede yapamadım sizden bu konuda yardım istiyorum.

1-Kayıt yaptığım zaman metin olarak algılama sorunu
2-Kayıt yaptığım zaman etoplam formülün hücreye yazılması


Cevaplarınız için teşekkür eder hayırlı çalışmalar dilerim.

 

[unalh]

TextBox Karekter sorunu ve Etopla

ListBox Yazmışım TextBox olarak düzelttim.

 

[N.Ziya Hiçdurmaz]

yanıt

Metin algılama sorununu için alttaki ilaveyi yapıp deneyiniz.

Range("ı" & say) = TextBox5.Value [COLOR="Red"]* 1[/COLOR]

 

[unalh]

Hocam oldu teşekkür ederim
Burdaki *1 sayı olduğunumu ifade ediyor.

Birde kayıt yaptığım zaman L sütununa etopla formülünü nasıl yazdırabilirim bir bilginiz varmı ?

Hayırlı çalışmalar.

 

[unalh]

ETOPLA(Ödeme!$D:$D;$C:$C;Ödeme!$F:$F)

Bu formülü makro ile yapmak mümkünmüdür?


Açıklama:
Liste sayfasına borç kaydı yapıyorum
Alınan ödemeler Ödeme sayfasına kayıt yapılıyor Ödemeler bir seferde alınamadığından parça parçakayıt yapılıyor bu alınan ödemelerin Liste sayfasına toplanması lazım bunu nasıl yaparım
Makro ile.

Teşekkürler..

 

[Ömer]

Merhaba,

Private Sub CommandButton1_Click()
Sheets("Liste").Select
[COLOR=red]Set S1 = Sheets("Ödeme")[/COLOR]
..
.
.
.
.
.
..
Unload Kayıt
     Kayıt.Show
 
[COLOR=red]For i = 2 To [C65536].End(3).Row[/COLOR]
[COLOR=red]Cells(i, "L") = WorksheetFunction.SumIf(S1.Range("D:D"), Cells(i, "C"), S1.Range("F:F"))[/COLOR]
[COLOR=red]Next i[/COLOR]
 
End Sub

Bu şekilde denermisiniz. Kırmızı bölgeleri kodlara eklersiniz..

.

 

[unalh]

Ömer hocam merhaba istediğim gibi oldu teşekkür ederim.


Hayırlı akşamlar.