hepinize teşekkür ederim arkadaşlar. .. artık bu bölümde sık görüşürüz herhalde.. rewshenbir ; bilgi için teşekkür ederim ancak hata veriyor "expected end sub " diyor kendisi. Form aktif hale geldiğinde iş görsün diye Form_activate altında yazdım ama aynı hatayı veriyor -

3. sorun için şöyle yapabilirsin On Local Error Resume Next Dim a As Byte Text1. Text = 10 / 3 a = InStr(1, Text1. Text, ",") Text2. Text = Left(Text1. Text, a + 2) instr ile, nerde ona bakıosun bulunduğu yerden 2 adım daha ilerisine kadar alıp yazdırıo

öncelikle herkese selamlar soru 1) formumda 50 adet textbox var. Form aktif olduğu anda içeriklerinin boş olmasını istiyorum.. Properties den ayarlamayı unuttum.. komutla yapa bilirmiyim? soru 2) program üzerinden excel sayfasından çıktı almanın bir yolu var mı? veri işleyip geri dönüş alabiliyorum ama direkt komut düğmesiyle excel sayfasından çıktı almak istiyorum soru 3) 10/3 =3,33 yazdıramadım.. çatlayacağım yavv 2. soru 98 puan diğerleri 1 er puandır.. olmazsa yaz okulunda görüşürüz.. cevabı bilenlere şimdiden teşekkürler -

tüm textbox ları silmek icin şu kodu kullanabilirsin Sub ClearAllTextBoxes For i = 0 To (frmTarget. Controls. Count - 1) Set ctrlTarget = frmTarget. Controls 'If it's a textbox, clear it If TypeOf ctrlTarget Is TextBox Then ctrlTarget. Text = "" End If Next i End Sub bunu direk forma yapıştır daha sonra aşağıdaki kodu bir buttonun click olayına yaz ClearAllTextBoxes FormName umarım yardımcı olmuşumdur...

1. soru içinde şöyle bişey yap 50 texti koyarken kopyala yapıştır diyince sana soruyo bundan warmı die evet dersen birer index numarası alıyo. text1 text2 text3 deilde text1(0) text1(1) text1(2) oluyo. sen hepsinin içlerini boşaltırken for i:=0 to 49 text1 ="" next dersen hepsinin içi boşalmış olur bi dahaki sefere böyle yaparsan daha güzel olur yoksa text1. text="" text2. text="" text3. text="" text4. text="" ... uzar gider + karma için thanx

2. Soru Örnek bir uygulama Kod: Dim excel As Object Set excel = CreateObject excel. Workbooks. Add excel. Sheets("Sayfa1"). Range("A1"). Select ActiveCell. FormulaR1C1 = "Ornek" ActiveWorkbook. SaveAs Excel. Application. Quit excel. gen.tr'den alıntıdır. 3. Soru: Değişkeni ne olarak tanımladığına dikkat et -