açılır liste isimleri çıkartmak

[ExcelBu]

A sütununda isimlerim vardır.Bu alanı açılır liste kaynağı olarak kullanmaktayım benim sıkımtım açılır listeden bir isim seçtiğimde a sütunundaki veriden silinsin.

a1:a100 aralığında isimlerim var bunları ad tanımlaması yaparak açılır liste kaynağı olarak kullanıyorum.Bunu neden istiyorum çalıştığım iş yerinde projelerde görevlendirilen personel dağılımını ben yapıyorum ve sıkıntı yaşıyorum bir kişiyi 2 belki 3 projede görevlendirmiş oluyorum

a1:a100 aralığındaki isimleri b sütunu c sütunu şirketin aldığı proje kadar veri kaynağı olarak kullanıyorum.
a1:a100 aralığındaki bir kişiyi a projesinde görevlendirdiğimi varsayarsak bir daha başka projede görev vermemem için a1:a100 aralığından silmesi a projesinde böyle bir kişiye gerek kalmadığında o kişiyi sildiğimde tekrar a1:a100 aralığına isimleri almasıdır.Umarım anlatabilmişimdir.

 

[ExcelBu]

Dosya eklemek dışarıdan mümkünmüş.Dosyam buradadır.
http://s3.dosya.tc/server24/WnexHT/Kitap1.xlsx.html

 

[ÖmerBey]

Kaynak veri silindiği zaman girdiğiniz hücredeki değer geçersiz veri olarak gözükecektir.
Bu işlemi silmek yerine koşullu biçimlendirme ile renklendirme şeklinde yapmanız bana daha mantıklı geliyor.
Aşağıdaki linkteki dosyayı inceleyiniz...
http://s3.dosya.tc/server24/rrq5xU/Kitap1.xlsx.html


...

 

[ExcelBu]

Bu işlem 400 kişi için biraz zor olmaz m.Çünkü projede görevlendirdiğim kişi belki 350 sırada ve her seferinde yeşil renkleri takip etmem lazım buda biraz zor yol.
Başka bir yol nasıl izlenebilir.İsmi silecek ama olası bir ters durumda ilgili ismi tekrar projelerden çıkarttığımda veri kaynağıma eklemesi lazım.

 

[ÖmerBey]

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?
Kırmızı kısım, açılır listenin olduğu alan...

Dim isim
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("[COLOR="Red"]B2:D14[/COLOR]"), Target) Is Nothing Then Exit Sub
On Error Resume Next
Range("A:A").Find(Target.Value).ClearContents
Range("A:A").Find("") = isim
isim = Target.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("[COLOR="red"]B2:D14[/COLOR]"), Target) Is Nothing Then Exit Sub
isim = Target.Value
End Sub

 

[ÖmerBey]

Bu da alternatif olsun:
Formül ile hazırladım.
Deneyiniz...http://www.dosya.tc/server31/5QOIXB/Deneme.xlsx.html

 

[bzace]

Formüller ile yapılmış farklı bir alternatif;

• Sayfa2 veri gireceğiniz sayfanız olacak.(kaynak sayfanız)
• Sayfa üzerinde bir adet Ad Tanıması vardır.
• Veri çokluğunuza göre formül aralıklarını çoğaltınız.

İlgili dosya:BURADAN

Not: Jineps ismini birden çok projede kullanabilirsiniz.Çalıştığım şirketde aynı Ad ve Soyad ismimli iki personel olduğundan dolayı örnek olması açısından uygulamada yer verdim.

 

[bzace]

Farklı bir alternatif;
Kullanılan Formüller
Ad tanımlaması için;

=KAYDIR(Sayfa2!$C$2;;;EĞERSAY(Sayfa2!$C$2:$C$13;"*?"))

Sıra no için;

=EĞER(EĞERSAY(Sayfa1!$A$2:$C$11;Sayfa2!A2);"";SATIR())

Görevli olmayan personel için;

=EĞERHATA(İNDİS($A$2:$A$13;KÜÇÜK($B$2:$B$13;SATIR(1:1))-SATIR($A$1));"")
[COLOR="Blue"]Formül dizi formülüdür.CTRL + SHİFT + ENTER ile tamamlayınız.[/COLOR]

İlgili Dosya:BURADAN