VBA formül birleştirme

[sinnernekolens]

iyi günler,

Aşağıdaki iki formülü nasil verilmli kullanabilirim.

veriyi kaydet butonuna bastığımda Gemi sayfasında aynı veri varsa uyarı versin kaydetmesin.

aşağıdaki formül uyarıyı veriyor ama iptal etmesi gerekirken yinede kaydediyor.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A5000")) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Range("A2:A5000"), Target) > 1 Then
MsgBox "Hatalı Giriş Bu Girdiğiniz Değer Var", vbCritical, "sinnernekolens"
End If
End Sub

Private Sub CommandButton5_Click()
Son_Dolu_Satir = Sheets("GEMI").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("GEMI").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("GEMI").Range("A:A")) + 1
Sheets("GEMI").Range("A" & Bos_Satir).Value = Sheets("FDA").Range("C5")
Sheets("GEMI").Range("B" & Bos_Satir).Value = Sheets("FDA").Range("C6")
Sheets("GEMI").Range("C" & Bos_Satir).Value = Sheets("FDA").Range("C7")
Sheets("GEMI").Range("D" & Bos_Satir).Value = Sheets("FDA").Range("C8")

MsgBox "Kaydedilmiştir."
End Sub

 

[Orion1]

İlgili yeri aşağıdaki gibi deneyiniz.

If WorksheetFunction.CountIf(Range("A2:A5000"), Target) [B][COLOR="Red"]>=[/COLOR][/B] 1 Then
MsgBox "Hatalı Giriş Bu Girdiğiniz Değer Var", vbCritical, "sinnernekolens"
[B][COLOR="red"]exit sub[/COLOR][/B]
End If

 

[sinnernekolens]

iyi günler, ilginiz için teşekkür ederim ancak çalıştıramadım. ekli örnekte uygulayabilir misiniz.

 

[Ömer BARAN]

Merhaba.

► GEMI isimli sayfanın kod bölümünde mevcut olan Worksheet_Change kodlarını silin,

►CommandButton5'e ait kodları da aşağıdaki iki seçeneğe göre karar vererek;
yani ya kırmızı satırı silerek ya da mavi satırları silerek, mevcut kodlarınızla değiştirin.

-- FDA sayfasında sadece C5 hücresindeki değer GEMI sayfası A sütununda var mı şeklindeki kontrol yeterli ise mavi satırları silin.
-- FDA sayfası C5:C8 aralığındaki tüm değerler için GEMI sayfası A sütunlarında TAM EŞLEŞME var mı şeklinde kontrol yapmak istiyorsanız aşağıdaki kırmızı satırı silin.
.

Private Sub CommandButton5_Click()
[COLOR="Blue"]gson = Sheets("GEMI").Cells(Rows.Count, 1).End(3).Row
varmi = Evaluate("=SUMPRODUCT((GEMI!A2:A" & gson & "=FDA!C5)*(GEMI!B2:B" & gson & "=FDA!C6)*(GEMI!C2:C" & gson & "=FDA!C7)*(GEMI!D2:D" & gson & "=FDA!C8))")
If varmi = 0 Then[/COLOR]
[COLOR="Red"]If WorksheetFunction.CountIf(Sheets("GEMI").[A:A], Sheets("FDA").[C5]) = 0 Then[/COLOR]
    Son_Dolu_Satir = Sheets("GEMI").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("GEMI").Range("A" & Bos_Satir).Value = Sheets("FDA").Range("C5")
    Sheets("GEMI").Range("B" & Bos_Satir).Value = Sheets("FDA").Range("C6")
    Sheets("GEMI").Range("C" & Bos_Satir).Value = Sheets("FDA").Range("C7")
    Sheets("GEMI").Range("D" & Bos_Satir).Value = Sheets("FDA").Range("C8")

    MsgBox "Kaydedilmiştir."
    Sheets("FDA").[C5:C8].ClearContents
Else
    MsgBox "Hatalı Giriş Bu Girdiğiniz Değer Var", vbCritical, "sinnernekolens"
End If
End Sub