Bul başka sütüna kod yaz veya yanındaki hücreye.......

[bilkentli]

B sütünunda bulduğum ismin yanındaki sütununa bir kod vermek ve B sütununda aynı isimde biri varsa onada aynı kodu vermek istiyorum...

Aslında bul değiştir gibi ama yanındaki sütuna...

Örnek olursa B sütünunda 1000 tane isim olsun , bir isim aradığımızda o isimde kaç tane varsa karşısındaki veya yanındaki sütuna o numarayı vermek istiyorum...

Teşekkür ederim....
Saygılar....

 

[turist]

Vereceğiniz kodların belirli bir koşulu olacak mı, yoksa sadece kaç adet olduğunu mu sayacak?
Daha net anlaşılması için; Örnek bir dosyanızı, foruma eklerseniz ve dosyada açıklama yaparsanız yardım almanız daha kolay olur.

 

[bilkentli]

Ekte ama ortaya atamadım...

Teşekkürler....

 

[ÖmerBey]

Ekteki dosyayı inceler misiniz?
Veri sayfasına adların karşısına gelecek kodları yazınız.

 

[bilkentli]

Bu bir örnekti...
Bul değiştir tarzı yapabilmem lazım....
Teşekkürler...

 

[turist]

Dosyanızdaki örneğe göre;
1- B sütununda "ahmet" yazdığı zaman A sütununa nasıl bir "kod" veya "sayı" gelmeli?
2-"ali" yazdığı zaman nasıl bir kod gelmeli?
diğerlerinde "boş" mu kalmalı?
3-B sütunundaki bütün veriler için A sütununda "kod" olmalı mı?
4-B sütunundaki verilere uygun kodlar için bir uygunluk tablonuz var mı?

Bu soruları açık bir şekilde yanıtlayın ki, TAM olarak ne aradığınız belli olsun.
Kodların oluşmasında bir mantık veya koşul gerekiyorsa net olarak tarif ediniz.

 

[ÖmerBey]

Makro ile yapmak istiyorsanız aşağıdaki kodu kullanabilirsiniz.
Çıkan ilk kutucuğa aradığınız değeri yazınız.
İkinci kutucuğa da o değere ait kodu yazınız.
Yazdınız değer B sütununda aranır ve A sütununa da kod yazılır.

Sub BulDeğiştir()
bul = Application.InputBox("Aramak istediğiniz değeri giriniz.")
değiştir = Application.InputBox("""" & bul & """" & Chr(10) & "değerinin kodunu giriniz.")
For a = 1 To [B65500].End(3).Row
    If Cells(a, "B") = bul Then Cells(a, "A") = değiştir
Next
End Sub

Farklı bir şey istiyorsanız bir üst mesajdaki sayın Turist'in belirttiği hususlara dikkat ediniz.

 

[bilkentli]

Dosyayı ekledim... teşekkür ederim...

 

[bilkentli]

Buldum arkadaşlar teşekkür ederim


B sütününü 2 tane kopya yaptım yanyana ... 1 tane sütünü bul değiştirler aynı isimlerin hepsine kod verdim... İlginize teşekkür ederim....