[Yardım]  Mükerrer Sayısına Göre Kısıtlama

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Mükerrer Sayısına Göre Kısıtlama

İleti#1)  malatyali » 20 Kas 2022 20:41

Kod: Tümünü seç
On Error Resume Next
If MsgBox("Bu kayıt Ceza Takip sayfasına kaydedilecek?", vbYesNo) = vbNo Then Exit Sub
Set CT = Sheets("Ceza Takip")
bos = CT.Cells(Rows.Count, "K").End(3).Row + 1
ilk = bos

CT.Range("B" & bos).Value = Application.WorksheetFunction.Max(CT.Range("B:B")) + 1
CT.Range("C" & bos).Value = ComboBox1.Value
CT.Range("D" & bos).Value = ComboBox2.Value
CT.Range("E" & bos).Value = ComboBox3.Value
CT.Range("F" & bos).Value = ComboBox4.Value
CT.Range("G" & bos).Value = Format(TextBox3.Value, "#,##0.00") * 1
CT.Range("H" & bos).Value = ComboBox5.Value
CT.Range("I" & bos).Value = TextBox6.Value
CT.Range("J" & bos).Value = TextBox5.Value
CT.Range("K" & bos).Value = Format(TextBox7.Value, "#,##0.00") * 1
CT.Range("L" & bos).Value = Format(Date, "dd.mm.yyyy")

Ustam Yukarıdaki kod ile sayfaya kayıt yapıyorum. Yalnız bir kriter eklemek istedim yapamadım.
Ceza Takip sayfasının "C2:L50" aralığına kaydedilen veriler aynı ise M sütununa mükerrer sayısını yazacak. Mükerrer sayısı 3 olduğu zaman aynı verileri tekrar kayıt etmemi engelleyecek ve "Sözleşme gereği 3 kere ceza sınırını doldurdu. Kayıt edilemez" uyarı verecek. Rica etsem yardımcı olabilir misiniz?
Saygılarımla
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 12:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 48
İleti: 314
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Mükerrer Sayısına Göre Kısıtlama

İleti#2)  alibuyuk66 » 21 Kas 2022 17:44

Kendinize göre uyarlayınız.

Kod: Tümünü seç
If WorksheetFunction.CountIf(Sheets("Aracdata").Range("m:m"), TextBox1.Text) >= 3 Then
MsgBox TextBox1.Value & " Sözleşme gereği 3 kere ceza sınırını doldurdu. Kayıt edilemez", vbCritical, "Uyarı"
TextBox1.Value = ""
TextBox1.SetFocus

Exit Sub
End If
Kullanıcı avatarı
alibuyuk66
Siteye Alışmış
 
Adı Soyadı:ali büyük
Kayıt: 26 Ağu 2012 00:16
İleti: 296
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

Cevap: Mükerrer Sayısına Göre Kısıtlama

İleti#3)  malatyali » 22 Kas 2022 09:22

Allah Razı Olsun. Teşekkür ederim
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 12:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 48
İleti: 314
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: Mükerrer Sayısına Göre Kısıtlama

İleti#4)  alibuyuk66 » 22 Kas 2022 12:58

Rica Ederim Kolay gelsin
Kullanıcı avatarı
alibuyuk66
Siteye Alışmış
 
Adı Soyadı:ali büyük
Kayıt: 26 Ağu 2012 00:16
İleti: 296
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Bing[Bot] ve 3 misafir

Bumerang - Yazarkafe