userformda sayfa toplat

[limanC34]

Selam Arkadaşlar
Siteden aldığım bir dosyadaki işlemleri userformla yapmak istiyorum.Fakat biraz değişik.Teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim syf As Worksheet
For Each syf In Worksheets
    ComboBox1.AddItem syf.Name
Next
ComboBox1.ListIndex = 0
TextBox1.Value = WorksheetFunction.Sum(Sheets("Sheet2").Range("A1:A65536"))
TextBox2.Value = WorksheetFunction.Sum(Sheets("Sheet3").Range("A1:A65536"))
TextBox3.Value = WorksheetFunction.Sum(Sheets("Sheet4").Range("A1:A65536"))
TextBox4.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value)
End Sub

 

[limanC34]

Sayın orion2
Çok teşekkür ederim.Saygılarımla.

 

[limanC34]

Sayın hocam
Peki textbox lardaki verileri 1.200 vede lazım olduğunda 1.200,00 şekline hangi formülle dönüştürebiliriz?
Teşekkürler.

 

[karadami]

dosyaniz ektedir.... checkbox a tıklarsanız bütün kutulardaki veriler ,00 lı olarak gözükür.

 

[limanC34]

Sayın karadami
Çözümünüz için çok teşekkürler.