yenileme nasıl yapılır

[red_lion1980]

texbox da toplam

arkadaşlar benim sorunum bi sutundaki butun girişleri e topla ile topladım yalnız bu toplamı formda nasıl gösteririm

 

[zafer]

Merhaba

Userform daki text kutusu için;
Private Sub UserForm_Initialize()
textbox1=sheets(Çalışılan sayfanın ad&#305.range(etopla'nın bulunduğu hücre adresi)
End Sub

Private Sub UserForm_Initialize()
textbox1=sheets("sayfa1"&#305.range("a3")
End Sub

 

[red_lion1980]

slm

yaptıgım çalışmada rapor formunda filtireleme butonu na bastıgımda altta texbox3 de gelir toplamı texbox4 de ise gider toplamı nı butona basınca görmek istiyorum ama olmuyo ya hep gözukuyo yada gözukmuyo

 

[Korhan Ayhan]

Selamlar,

Raporlamada kullandığınız kodları aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton1_Click()
Dim kritertr1 As Date, hucretr As Date
Dim sat As Long, i As Long
Set ks = Sheets("kasa")
Set rp = Sheets("rapor")
Set gl = Sheets("gelir")
Set glrp = Sheets("gelirrapor")
kritertr1 = CDate(Label13)
sat = 4
rp.Range("A4:E65536").ClearContents
glrp.Range("A4:D65536").ClearContents
For i = 4 To ks.Cells(65536, "D").End(xlUp).Row
    hucretr = ks.Cells(i, "D").Value
    If hucretr = kritertr1 Then
        adr1 = Range(Cells(i, "A"), Cells(i, "E")).Address
        adr2 = Range(Cells(sat, "A"), Cells(sat, "E")).Address
        rp.Range(adr2).Value = ks.Range(adr1).Value
        sat = sat + 1
    End If
Next i
sat = 4
For i = 4 To gl.Cells(65536, "C").End(xlUp).Row
    hucretr = gl.Cells(i, "C").Value
    If hucretr = kritertr1 Then
        adr1 = Range(Cells(i, "A"), Cells(i, "D")).Address
        adr2 = Range(Cells(sat, "A"), Cells(sat, "D")).Address
        glrp.Range(adr2).Value = gl.Range(adr1).Value
        sat = sat + 1
    End If
Next i
TextBox3 = Format(Sheets("yazdır").[I5], "#,##0.00")
TextBox4 = Format(Sheets("yazdır").[I7], "#,##0.00")
TextBox5 = Format(Sheets("yazdır").[I9], "#,##0.00")
Set ks = Nothing
Set rp = Nothing
Set gl = Nothing
Set glrp = Nothing
MsgBox "İŞLEM TAMAM"
End Sub

 

[red_lion1980]

saol

saol dostum bi de yenilemeye ihtiyacım var onu nasıl yaparım

 

[red_lion1980]

slm arkadaşlar bilgi girdigimde texboxun içinde hemen degişmesini istiyorum ama nasıl yapılacak ekteki kasa1 de ki texbox un içine gelir ve giderlerin farkını yazım ama form açıkken gider yada gelir girdigimde burdaki texbox un içerigi degişmiyo yenilenmiyo yani nasıl yapılır sizce formu kapatıp açarsam yenileniyo ama kapatmadan olmuyo

 

[Korhan Ayhan]

Selamlar,

Lütfen aynı konu ile ilgili sorularınız için ayrı ayrı başlıklar açmayınız.

Ayrıca yenileme diyorsunuz ama hangi formdan hangi sayfaya bilgi girince hangi bilgiler yenilenecek belirtmemişsiniz.

Lütfen sorularınızı daha net bir şekilde sormaya çalışınız.

 

[red_lion1980]

slm

öncelikle saol arkadaşım yenileme kasa1 formunda lazım oradaki texboxta gelir ve gider farkını yazdırdım fakat gelir yada gider formunda kayıt yaptıgım da kasa1 formunda bi degişiklik olmuyo aynı anda oradaki rakamların da degişmesini istiyorum mümkünmü sizce

 

[red_lion1980]

slm

arkadaşlar yardım eden yok mu yenileme kodu bilen varmı

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızdaki "gelir" isimli formdaki "KAYDET" butonundaki kodu aşağıdaki ile değiştirin.

Private Sub CommandButton2_Click()
Sheets("gelir").Select
Dim bak As Range
Range("B4").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = gelir.x1.Value
ActiveCell.Offset(0, 2).Value = CDbl(TextBox1)
ActiveCell.Offset(0, 1).Value = CDate(Label4)
kasa1.TextBox1 = Sheets("gelir").[h4]
End Sub

Örnek dosyanızdaki "BAŞLIK" isimli formdaki "KAYDET" butonundaki kodu aşağıdaki ile değiştirin.

Private Sub CommandButton2_Click()
Sheets("kasa").Select
Dim bak As Range
Range("b4").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = BAŞLIK.x1.Value
ActiveCell.Offset(0, 1).Value = BAŞLIK.c1.Value
ActiveCell.Offset(0, 3).Value = CDbl(TextBox1)
ActiveCell.Offset(0, 2).Value = CDate(Label4)
kasa1.TextBox1 = Sheets("gelir").[h4]
End Sub

 

[red_lion1980]

slm

slm saol dostum valla tek kelime ile mükemmel olduço saol

 

[Korhan Ayhan]

Selamlar,

Lütfen güzel TÜRKÇE 'mizi biraz daha dikkatli kullanmaya özen gösterin.