Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
Gunaydın , İyi Gunler
Arkadaslar İçeriği böğle olmayan ama format seklı bu olan bir script hazırlıcam ama
bunları devamlı olarak bir xls dosyasına aktarmam lazım ama yaptığım iş
Güncellerken hep en üst satırdan başlıyor benım ıstedığım bunu xls dosyasına atarken her yenı kayıt için son eklenen kayıttan sonra yazmasını istiyorum
Yardımcı olursanız sevinirim...
Saygılar
Bir Tane Userform'la yapacam..
Private Sub CommandButton1_Click()
Anket
End Sub
Sub Anket()
strGiris = InputBox("İsminizi girin")
If InputBox("Yaşınız:") < 18 Then _
InputBox ("Hangi Brimdesin")
InputBox ("Eğitim Durmunuz")
'cevap lar a)ilk okul
b)lise
c)yüksek okul
d)universite
InputBox ("Ãirketten Memnunmusun")
InputBox ("Kodlama Hazırla")
'burayada 1-2-3-4-5-6-7-8-9-10-11-12-13
InputBox ("Medeni Haliniz")
'a)evli
'b)bekar
End Sub
**** isim A hücresine
Yaş B
Takım c
Eğitim d
Ãirket e
Kodlama f
Medeni Hal g
bu bilgiler.. c:\kayit.xls dosyasına yollamasını istiyorum
devam edebilir
Saygılar.
Arkadaslar İçeriği böğle olmayan ama format seklı bu olan bir script hazırlıcam ama
bunları devamlı olarak bir xls dosyasına aktarmam lazım ama yaptığım iş
Güncellerken hep en üst satırdan başlıyor benım ıstedığım bunu xls dosyasına atarken her yenı kayıt için son eklenen kayıttan sonra yazmasını istiyorum
Yardımcı olursanız sevinirim...
Saygılar
Bir Tane Userform'la yapacam..
Private Sub CommandButton1_Click()
Anket
End Sub
Sub Anket()
strGiris = InputBox("İsminizi girin")
If InputBox("Yaşınız:") < 18 Then _
InputBox ("Hangi Brimdesin")
InputBox ("Eğitim Durmunuz")
'cevap lar a)ilk okul
b)lise
c)yüksek okul
d)universite
InputBox ("Ãirketten Memnunmusun")
InputBox ("Kodlama Hazırla")
'burayada 1-2-3-4-5-6-7-8-9-10-11-12-13
InputBox ("Medeni Haliniz")
'a)evli
'b)bekar
End Sub
**** isim A hücresine
Yaş B
Takım c
Eğitim d
Ãirket e
Kodlama f
Medeni Hal g
bu bilgiler.. c:\kayit.xls dosyasına yollamasını istiyorum
devam edebilir
Saygılar.