textbox'a formul girmek

mrt

Katılım
11 Mayıs 2005
Mesajlar
167
Excel Vers. ve Dili
office 2003 tr & eng.
office 2007 tr & eng.
Üstadlar Selamlar,

=ROUNDUP((COUNTA(HEDEF!A:A)/23);0) formulünü Textbox1 de nasıl kullanmalıyım.

Aşağıdaki gibi kullanmak istediğimde Formda Textbox1'de; =ROUNDUP((COUNTA(HEDEF!C[-4])/23),0) yazıyor. Formul değerini vermiyor.


Private Sub CommandButton4_Click()

Workbooks.Open Filename:="C:\TESLIMAT\" & ComboBox1.Value

Cells.Select
Selection.Copy
Windows("HEDEF1_11_ss.xls").Activate
Sheets("HEDEF").Select
Range("A1").Select
ActiveSheet.Paste


TextBox1.Value = "=ROUNDUP((COUNTA(HEDEF!C[-4])/23),0)"

End Sub

Şimdiden teşekkürlerimi borç bilirim.
 

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
Sn.mrt,

Eğer yanlıs anladıysam

Kod:
 Textbox1=WorksheetFunction.Clean(Textbox1)
Çözüm olabilir mi?
 

mrt

Katılım
11 Mayıs 2005
Mesajlar
167
Excel Vers. ve Dili
office 2003 tr & eng.
office 2007 tr & eng.
textbox1 direkt değeriversin.

Sn. Rakkas Selamlar,

İlginize teşekkür ederim.

Form üzerinde buluınan textbox1' de

TextBox1.Value = "=ROUNDUP((COUNTA(HEDEF!C[-4])/23),0)"

sonucu olarak sadece formul değerini görmek istiyorum.

hedef sayfasında a sutunun daki dolu hücre sayısı /23 = textbox1 değeri olmalı.
 

mrt

Katılım
11 Mayıs 2005
Mesajlar
167
Excel Vers. ve Dili
office 2003 tr & eng.
office 2007 tr & eng.
örnek dosya

Selamlar,

Örnek dosya ektedir.

Çalışmayı henüz bitirmediğim için eksikleri fazladır.

Yapmak istediğim,

Textbox1 değeri 1 ise CommandButton1 aktif olacak ve hedef2 sayfası yazdırılacak.

Textbox1 değeri 2 ise CommandButton1, CommandButton2 aktif olacak ve hedef2 ve hedef 3 sayfası yazdırılacak.

Textbox1 değeri 3 ise CommandButton1, CommandButton2,CommandButton3 aktif olacak ve hedef2, hedef 3 ve hedef4 sayfası yazdırılacak.

çıkış yaparken; ComboBox1 de yazılı dosya c:\teslimat klasöründen; c:\manuelbasim klasörüne taşınacak.
 
Üst