Koşullu ad tanımlama

[s.savas]

Ad tanımlama yöntemi ile oluşturulan listeden seçilen ilin tekrar seçilmesi engellenebilirmi.
Yani bir sefer kullanılan il, listeden düşülerek, bir sonraki hücreye yazılması engellensin.

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If WorksheetFunction.CountIf(Columns(1), Target.Text) > 1 Then
    Application.EnableEvents = False
    MsgBox Target.Text & " birden fazla":
    Target.ClearContents
    Application.EnableEvents = True
    End If
End Sub

Bu kodu sayfanın kod kısmına ekleyin.

 

[s.savas]

Teşekkürler Hamit hocam.
Ekteki belgede Teklif Dosyası isimli sekmede teklif veren firmalar teklif sırasına göre formülle N3:O34 aralığında sıralanıyorlar.
Bu aralık için sadece teklifi olan firmaları teklif sırasına göre listeye alacak bir ad tanımlaması yapılabilirmi.
Normal olarak N3:O34 aralığında ad tanımlaması yapınca boş satırları ve teklif vermemiş firmalarıda listeye ekliyor.

 

[hamitcan]

Formüllerle aram iyi değil, kusura bakmayın yardımcı olamayacağım.

 

[s.savas]

Formüllerle aram iyi değil, kusura bakmayın yardımcı olamayacağım.

Teşekkür ederim hocam, canınız sağolsun.