Excelden uyarı almak

[ozan0093]

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..

 

[burhancavus61]

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

 

[Seyit Tiken]

Formülü kendinize uyarlayınız.
Veri Doğrulama > Özel
=EĞERSAY($A$1:$A$100;A1)=1

 

[ozan0093]

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

Hocam öncelikle çok teşekkür ederim, makroyu kaydettim ama çalıştırmak istedigimde listede görünmedi. Ne yapabilirim

 

[burhancavus61]

Çalışma sayfasının kod bölmüne yapıştırın.

 

[ozan0093]

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

 

[burhancavus61]

modül olarak değil çalışma sayfası kod bölümüne örnek aşağıda

 

[ozan0093]

modül olarak değil çalışma sayfası kod bölümüne örnek aşağıda

Ekli dosyayı görüntüle 210786

hocam yazdım, güvenlik bölümünden herşeyide açtım ama bir değişiklik olmadı neden olabilir acaba

 

[burhancavus61]

Dosyanızı eklermisiniz

 

[Hepgel]

hocam yazdım, güvenlik bölümünden herşeyide açtım ama bir değişiklik olmadı neden olabilir acaba

Veri Doğrulama > Özel
Hangi sutün ise yazip aşağıya doğru çoğaltınız.

=EĞERSAY($A:$A;$A1)=1

 

[ozan0093]

Dosyanızı eklermisiniz

https://www.dosya.tc/server23/65ez64/Yeni_Microsoft_Excel_Calisma_Sayfasi.xlsm.html

dosya burda hocam, makro yazılı ama a sütununa aynı degerleri girdigimde herhangi bir uyarı alamıyorum

 

[Hepgel]

https://www.dosya.tc/server23/65ez64/Yeni_Microsoft_Excel_Calisma_Sayfasi.xlsm.html

dosya burda hocam, makro yazılı ama a sütununa aynı degerleri girdigimde herhangi bir uyarı alamıyorum

=EĞERSAY($A:$A;$A1)=1

DOSYA

Dosyanız ektedir.
Deneyiniz..

 

[ozan0093]

=EĞERSAY($A:$A;$A1)=1

DOSYA

Dosyanız ektedir.
Deneyiniz..

teşekkür ederim hocam elinize sağlık

acaba bende neden o makro çalışmadı bir düşünceniz var mı

 

[Hepgel]

teşekkür ederim hocam elinize sağlık

acaba bende neden o makro çalışmadı bir düşünceniz var mı

Makro değil.
Veri Doğrulama Özel kısmından ekleyip aşağıya doğru sürükleyecektiniz.
Sorununuz çözüldü sanırım.
İyi Çalışmalar...

 

[ozan0093]

Makro değil.
Veri Doğrulama Özel kısmından ekleyip aşağıya doğru sürükleyecektiniz.
Sorununuz çözüldü sanırım.
İyi Çalışmalar...

teşekkür ederim saolun sorunum çözüldü