• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excelden uyarı almak

O

ozan0093

Katılım
20 Haziran 2018
Mesajlar
44
Excel Vers. ve Dili
MS OFFICE 2011 - MAC
Arkadaşlar merhabalar,

Forumda aradım ama bulamadım, sormak istediğim soru şu, birbirinden farklı fatura numaralarını aynı sütün da alt alta girerken, aynı numarayı yazdığımda hata uyarısı vermesini istiyorum. Böyle bir şey mümkün müdür acaba ?

Şimdiden emekleriniz için teşekkürler..
 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A1:A]) Is Nothing Then Exit Sub
say = WorksheetFunction.CountIf(Range("A1:A" & Target.row - 1), Target)
If say > 0 Then
MsgBox "BU KAYIT MEVCUTTUR"
Target.Select
Target = ""
End If
End Sub


A1 sütunu için
 
Formülü kendinize uyarlayınız.
Veri Doğrulama > Özel
=EĞERSAY($A$1:$A$100;A1)=1
 
Son düzenleme:
burhancavus61' Alıntı:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A1:A]) Is Nothing Then Exit Sub
say = WorksheetFunction.CountIf(Range("A1:A" & Target.row - 1), Target)
If say > 0 Then
MsgBox "BU KAYIT MEVCUTTUR"
Target.Select
Target = ""
End If
End Sub


A1 sütunu için
Genişletmek için tıkla ...


Hocam öncelikle çok teşekkür ederim, makroyu kaydettim ama çalıştırmak istedigimde listede görünmedi. Ne yapabilirim
 
hocam yapıştırdım visual basic e girdim, modül olarak yapıştırdım, çıktım, makrolara girdim hiçbirşey görünmedide
 
modül olarak değil çalışma sayfası kod bölümüne örnek aşağıda

1572951970355.png
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst