Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Sn.leventm
Yapmış olduğunuz tablo çok güzel ve işime çok yarayacak.
Yalnız sormak istediğim bir şey daha var.
Eğer yeni sütunlar ilave etmem gerekirse nasıl yapacağım?
Teşekkür ederim.Ellerinize sağlık.
sn. leventm
Ã?zür dilerim adınıza yazıyorum mahzuru yoktur inşallah.
Paylaşım sitesi olduğuna göre başka arkadaşlarda yardımcı olabilir.
Sizin yapmış olduğunuz veri dosyasının kod sayfasına girdim. bir sütun ilave ettim . girdiğim veriyi aktarabiliyorum fakat sorun entere basınca 12. kutudan kaydet e geçiyor. 13.kutuya fareyle veri girmek zorunda kalıyorum. enterle 13'e geçmek için ne ilave etmem veya nereyi değiştirmem gerek acaba ?
Teşekkürler..
tab sıralamasını düzenlemeniz gerekir. Bunun için VB editöründe view-tab order i seçin. Çıkan pencerede Textbox13'ü seçerek move up butonu ile yukarı doğru commandbutton1 in önüne geçinceye kadar yukarı kaydırın.
süper birşey bu excel. İnsan birşeyler yapınca ne kadar mutlu oluyor. Ama BİLGİSİNİ BİZLERLE PAYLAÃAN TÜM ARKADAÃLARA VE SİTEYİ KURANLARA çok teşekkür ederim.
Sıktığımın farkındayım ama uğraştıkça birşeyler buluyorum.
userformda veri girişinde rakam girince hata işareti çıkıyor. seçeneklerden hata denetimini kapatabilirim veya tek tek hücreleri biçimlendirebilirim ama user form textbox bilgi girişinde rakam veya metin olarak nasıl ayarlayabilirim.
userformda veri girişinde rakam girince hata işareti çıkıyor. seçeneklerden hata denetimini kapatabilirim veya tek tek hücreleri biçimlendirebilirim ama user form textbox bilgi girişinde rakam veya metin olarak nasıl ayarlayabilirim.
commandbutton1 deki kodu aşağıdaki ile değiştirerek deneyin.
[vb:1:8f6eee61d0]Private Sub CommandButton1_Click()
ilk = 2
If say = 0 Then
ilk = 1
sat = [b65536].End(3).Row + 1
End If
For a = ilk To 13
deg = Controls("textbox" & a)
If IsNumeric(Controls("textbox" & a)) = True Then deg = Controls("textbox" & a) * 1
Cells(sat, a + 1) = deg
Next
MsgBox "VERİ KAYDEDİLDİ"
End Sub[/vb:1:8f6eee61d0]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.