Hücredeki sayıyı Algılama

[Erhan Köseoğlu]

excel.web.tr yi takip ederek eğer ve düşey ara formülü ile bir kitap Kayıt sayfası tasarladım, daha sonra bu sayfaya userform ile bilgi girme çalışmalarında bulundum ancak yeni başladığım için(başlayamadım sonra) yapamadım, ben de forumda yer alan bir çalışmayı kendime uyarladım, oldu gibi, üzerinde bir sürü kod var benim çalışmam için gerekli olmayan ancak benim veri girmeme yetiyor.
formla bilgi girişi gerçekleşiyor ancak form eklemeden önceki bazı işlemlerim formla bilgi girişi yaparken devre dışı kaldı bunlar;

1. Kitap kodunu form ile girdiğimde sayı olarak algılamıyor herhalde hücreye girdiim düşeyara formülüne göre #YOK hatası veriyor, hücreye elle girdiğimde formül çalışıyor,

2. Öğrenci numaralarını veri doğluma ile liste de tanımladım, excel de hücreye yazarken, sınıftaki numaralardan başka numara yazılmıyor, form ile girerken bu durum devre dışı, aynı şekilde kitap kodunu da 250 ye kadar sınırlandırmıştım bu da aynı durumda

Çalışmasını değiştirip bana uyarladığım akadaşımın affına sığınarak sayfayı ekliyorum, form ve sayfa koru şifresi "ilyas"

excel.web.tr çatısı altında bulunan herkese sonsuz saygı ve selamlar

 

[algil]

Aşağıdaki değişikliği yapın sorununuz gider.

Private Sub CommandButton1_Click()
Dim yeni As Range
Set yeni = Worksheets("sayfa1").Range("A1:a1000").Find("")
yeni.Value = Application.WorksheetFunction.Max(Worksheets("sayfa1").Range("c12:c59")) + 1
yeni.Offset(0, 0) = vagno.Value
yeni.Offset(0, 1) = vagtarih
yeni.Offset(0, 2) = vagtrenno
yeni.Offset(0, 4) = vagtutyer
yeni.Offset(0, 9) = vagtamirsebebi
Application.Wait Now + TimeValue("00:00:01") / 1.5
Unload Me
UserForm1.Show
End Sub

 

[Erhan Köseoğlu]

yaptım ama değişen bir şey olmadı

 

[algil]

.
.
.
yeni.Offset(0, 0) = vagno.Value
.
.

bu kodu değiştirdiğimizde kitap kodunu text yeri numerik olarak excele atar. Arama sonucunda #YOK uyarısı olmaz.
Bende çalışıyor.

 

[Erhan Köseoğlu]

ilginize çok teşekkür ederim az önce fark edemedim,
Öğrenci numaraları ve kitap kodunda excel üzerinde yapmış olduğum sınırlama kod da çalışmıyor o nu nasıl yapabilirim bu arada sayfa koruma şifresi 1111 miş

 

[algil]

Sn. Kuluncak

Excel sayfası açıkken A sütununu seç ve Veri/Doğrulama tıklayıp ekrana gelen pencerede sol alt kösedeki Tümünü sil butonunu tıklarsanız hücrelerde ki sınırlamaları kaldırırsınız.

 

[Erhan Köseoğlu]

bu sefer de kitap sayfa sayısı sütununda hata oluşmaya başladı, mevcut formül excel le veri girişinde çalışıyor, form ile girildiğinde sayfa sayısı değeri görünüyor ve ardından formül kendiliğinden silinip hücre boş oluyor,

 

[Erhan Köseoğlu]

dosyyayı eklemeyi unutmuşum.

 

[Erhan Köseoğlu]

sorun değişti

c sütununda bulunan sayfa sayısı bilgisi
- excel de giriş yapınca formül çalışıyor
- form üzerinden giriş yapınca değer görünüyor ve ardından siliniyor,
sorun üzrine kaç saattir uğraşıyorum ama olmadı.
şifre "ilyas"

 

[algil]

İstediğiniz değişiklik yapıldı.
Kaydet butonuna ait koddaki fazlalıklar inaktif halae getirildi. İsterseniz o kodları silebilirsiniz.

 

[Erhan Köseoğlu]

ellerinize sağlık,
excel.web.tr ile tanıştığım günden beri öğrendiğim en önemli şey şu;

Hayal gücünü geniş tut, tasarla, yapmaya çalış, yapamadığın yerde excel.web.tr yardımına yetişir