DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub UserForm_Initialize()
With Sheets("Sayfa1")
TextBox1.Text = .[B5]
TextBox2.Text = .[B6]
TextBox3.Text = .[B6]
End With
End Sub
Private Sub UserForm_Initialize()
With Sheets("Sayfa1")
.[B5] = "=sum(Sayfa1!F1:F8)"
.[B6] = "=sum(Sayfa1!G1:G8)"
.[B7] = "=sum(Sayfa1!H1:H8)"
TextBox1.Text = .[B5]
TextBox2.Text = .[B6]
TextBox3.Text = .[B6]
End With
End Sub
Private Sub UserForm_Initialize()
TextBox1.Text = Evaluate("=sum(Sayfa1!F1:F8)")
TextBox2.Text = Evaluate("=sum(Sayfa1!G1:G8)")
TextBox3.Text = Evaluate("=sum(Sayfa1!H1:H8)")
End Sub