firmanın genel limitinden kullandıkları düşülüp

[cihangirkara]

arkadaşlar sizlerin yardımıyla özellikle (Leventm) ekteki dosya oluşturuldu 2 tane eksiğim var
1-firmanını genel limiti var liste sayfasından alıyor,sayfa1 de ise firmanın kullandıkları var isteğim şu firma risk formunda genel limitten firmanın kullandığı harcamalar düşsün kalan kısım limiti boşluğu kısmına yazsın
2-bütün textbox lar yüzlük ayraçlı nasıl olur

teşekkürler

 

[cihangirkara]

ilginizi bekliyorum

 

[cihangirkara]

akşama kadar bekledim umudumu kesmiş değilim

aşağıdaki koda Textbox 22 eklenecek

Textbox22=Textbox21-firmanın sayfa1 deki tüm toplamı(d sütünu)

Private Sub TextBox1_Change()
Set S1 = Sheets("sayfa1")
With ListBox1
.ColumnCount = 1
.ColumnWidths = "65;"
End With
ListBox1.Clear
For suz = 2 To WorksheetFunction.CountA([sayfa1!b1:b65536])
alan = UCase(Replace(Replace(Sayfa1.Range("b" & suz), "j", "J"), "k", "K"))
veri = UCase(Replace(Replace(TextBox1, "j", "J"), "k", "K"))
If alan Like "*" & veri & "*" Then
If WorksheetFunction.CountIf(S1.Range("b2:b" & suz), S1.Cells(suz, "b")) > 1 Then GoTo 10
ListBox1.AddItem
ListBox1.list(s, 0) = Sayfa1.Range("B" & suz)
s = s + 1
End If
10 Next
If WorksheetFunction.CountIf([liste!b:b], TextBox1) > 0 Then
sat = [liste!b1:b65536].Find(TextBox1).Row
TextBox21 = Format(Sheets("liste").Cells(sat, "d"), "#,##0")
TextBox6 = Sheets("liste").Cells(sat, "e")
End If
ComboBox1_Change
ComboBox2_Change
ComboBox3_Change
ComboBox4_Change
For b = 5 To 18
deger = Controls("combobox" & b)
Controls("combobox" & b) = ""
Controls("combobox" & b) = deger
Next
End Sub