Soru Userform kaydet sorunu

[gultekinkaymaz]

Merhaba,
Ekte yer alan dosyamda data sayfasında ID yazan kısım otomatik olarak 1 değerine dönüşüyor ve 2. satırın 1. ve 2. sütunu 0 değeri alıyor. Böyle olunca ilk kaydım 2. satır yerine 3. satırdan başlıyor. satırı silip kaydedince düzeliyor fakat kayıt yaptığım satırı silince aynı hata otomatik olarak yine geliyor. Bunu nasıl düzeltebilirim

 

[arschimet]

Merhabalar,
Private Sub CommandButton1_Click() event'inin içerisindeki

SonSatır = WorksheetFunction.CountA(Worksheets("DATA").Range("B:B")) + 1

kodunu

SonSatır = Worksheets("DATA").Range("B" & Rows.Count).End(xlUp).Row + 1

olarak değiştirip dener misiniz?

 

[excelcan]

Tutarsızlık bu iki kodun uyumsuzluğundan kaynaklanıyor.
Biri tüm sütunu sayıyor diğeri C2 den başlıyor saymaya.
Kayıt yapacaksınız varsayalım 10 satırınız var.
Siz 11. cisini kaydedeceksiniz. DATA sayfasında
SonSatır saydınız 1 eklediniz. 11 oldu. ID sekmesini
şarta bağlamışsınız. 2 ise 1 ver. Burada proplem olmaz.
Değilse C sütununda ayları say sonucu ID sekmesine yaz.
İşte burası proplemli. Dosyanızda Aralık seçtim kayıt yaptım
1 yazdı. Bu kodlara göre yapması gerekeni yaptı.
ID kaydında amaç her kayıtta B sütunundaki en büyük değeri 1 artırmak ise
large veya max fonksiyonları da kullanılabilir.
SonSatır 2 değilse o zaman neden ComboBox1'i saydırma
ihtiyacı duydunuz o önemli. Özel bir nedeni yoksa SonSatır değişkenini
şu şekilde kullanın. Sizin kod yapınızı bozmadan o zaman şöyle olur:

SonSatır = Sayfa14.Cells(Rows.Count, "B").End(3).Row + 1


Worksheets("DATA").Cells(SonSatır, 2) = Say yerine
Worksheets("DATA").Cells(SonSatır, 2) = SonSatır

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[excelcan]

arschimet hocam çözmüş zaten. Görmedim. En azından izahat doyurucu. ​

 

[arschimet]

arschimet hocam çözmüş zaten. Görmedim. En azından izahat doyurucu. ​

excelcan hocam, sizin çözümünüz daha isabetli olmuş

 

[excelcan]

Sayın Gültekin Kaymaz sizin kod yapınıza bağlı kalırsak
yukarda verdiğim kod ID numarası 2 yi atlıyor.
1 , 3,4,5... diye devam ediyor.
Hatalı sonuç üretiyor. Fazlalıkları kaldırarak kodlarınız yeniden düzenledim.
Ben sizin kod yapınıza sadık kalmaya çalıştım.
Ama zaten o kadar fazla kod 1 den başlamak içinmiş.
Onları kaldırdım.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[gultekinkaymaz]

Merhabalar,
Private Sub CommandButton1_Click() event'inin içerisindeki

kodunu


olarak değiştirip dener misiniz?

Merhaba,
Kayıt yaptığım satırı silince aynı sorun yine çıktı

 

[gultekinkaymaz]

Sayın Gültekin Kaymaz sizin kod yapınıza bağlı kalırsak
yukarda verdiğim kod ID numarası 2 yi atlıyor.
1 , 3,4,5... diye devam ediyor.
Hatalı sonuç üretiyor. Fazlalıkları kaldırarak kodlarınız yeniden düzenledim.
Ben sizin kod yapınıza sadık kalmaya çalıştım.
Ama zaten o kadar fazla kod 1 den başlamak içinmiş.
Onları kaldırdım.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Merhaba,
Bu formülü kullanınca şöyle bir sorun oluşuyor.
Şubat ayına ver girişi yapınca ID numarasının 1 olması gerekiyor fakat 3 olarak devam ettiği için sorun yaşıyorum

 

[excelcan]

Sayın gultekinkaymaz ID numaraları her ay için tekrar sayısının bir üstü kadar mı artacak ?
Şubatı saydınız. Şubat ayına ilişkin 5 kayıt var. Şimdi kayıt yapacaksınız 6 mı olacak ?

 

[gultekinkaymaz]

Sayın gultekinkaymaz ID numaraları her ay için tekrar sayısının bir üstü kadar mı artacak ?
Şubatı saydınız. Şubat ayına ilişkin 5 kayıt var. Şimdi kayıt yapacaksınız 6 mı olacak ?

Mesela ocak ayı için 4 tane kayıt yaptım bunların ID numarası 1-2-3-4 olacak daha sonra şubat ayına 2 tane kayıt yaparsam 5 olarak devam etmeyip 1-2 diye numara atayacak diğer aylar için de aynısını geçerli olacak

 

[excelcan]

SonSatır değişkenini tanımladığım gibi kullanın.
Say değişkenini aktif yapın. satı-1 yazan yere say yazın.
Düzenlenmiş hali kod tagında.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[gultekinkaymaz]

SonSatır değişkenini tanımladığım gibi kullanın.
Say değişkenini aktif yapın. satı-1 yazan yere say yazın.
Düzenlenmiş hali kod tagında.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

kodu aynen kopyalayıp yapıştırdım fakat hata verdi yine

 

[excelcan]

Dosyanız ekte.

 

[gultekinkaymaz]

Dosyanız ekte.

dosyayı indirdim fakat yine aynı sorunla karşılaştım

 

[excelcan]

B1 e ID yazarsanız çalışır.
SonSatır = Sayfa14.Cells(Rows.Count, "B").End(3).Row + 1
Say = Application.WorksheetFunction.CountIf(Sayfa14.Range("C2:C" & SonSatır), ComboBox1.Value) + 1

Kodların kurgusu belli zaten hocam.

 

[arschimet]

Merhabalar,
Kodlarınızın bazılarını değiştirip, eklemeler yaptım
aşağıdaki kodları eskileri ile değiştiriniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Merhaba.
Bir kodda benden olsun.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[gultekinkaymaz]

Kodlar ve yardımlar için çok teşekkür ederim yarın iş yerimde dosyaya uygulayıp haber veririm.

Hakkınızı helal edin

 

[gultekinkaymaz]

Merhabalar,
Kodlarınızın bazılarını değiştirip, eklemeler yaptım
aşağıdaki kodları eskileri ile değiştiriniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Kodu dediğiniz gibi değiştirdim fakat ekte yer alan hatayı verdi.

 

[arschimet]

gultekinkaymaz görselde hatanın sebebi açıkça görülüyor, kodun üst kısmında comobox1_change ()
End sub
Eventi daha önceden varmış, onu silerseniz düzelecektir