Sütun eşleştirme ve değer atama

[Aldırma_Reis]

Arkadaşlar şimdi benim problemim şu tablo1 de tc numaraları bulunan kişilerin tablo2 de eğer yer alıyorlarsa eşleşmeleri ve eşleşme sonucunda tablo 1 de yer alan tarihin tablo2 de eşleştiği kişiye ayrılma tarihini otomatik olarak atamasını istiyorum. veya bu veriler ayrı excel sayfalarında değilde aynı sayfada farklı sütunlarda olursa nasıl yapılabilir?

Değerli yardımlarınız için şimdiden teşekkürler.

 

[BG]

Sayın Aldırma_Reis

Aynı sayfanın farklı sütunları için örnek dosyanız ektedir. İyi çalışmalar dilerim.

#YOK değerlerinin çıkmasını istemiyorsanız, L2 hücresine aşağıdaki formülü yapıştırıp aşağıya doğru kopyalayınız.

=EĞER(EHATALIYSA(DÜŞEYARA(I2;A:D;4;0));"";DÜŞEYARA(I2;A:D;4;0))

 

[Aldırma_Reis]

Teşşekkürler çok sağolun

 

[Aldırma_Reis]

Bi ricam daha olabilir mi çok uzun bi tablo var elimde eşleştirdiği kişileri belli edecek hücrelere bir yazı veya renk vs bi eklem yapabilirmiyiz ?

 

[Aldırma_Reis]

Bi ricam daha olacak elimde çok uzun bi tablo var. İşlem sonucunda eşleşen hücreleri anlayabileceğimiz bir yazı veya renk atmasını sağlayabilri miyiz?

 

[Aldırma_Reis]

Bi ricam daha olacak elimde çok uzun bi tablo var. eşleştirdiği kişilerle iligli bi yazı veya renk ataması yapmasını nasıl sağlarız?

 

[BG]

Sayın Aldırma_Reis

Bi ricam daha olacak elimde çok uzun bi tablo var. eşleştirdiği kişilerle iligli bi yazı veya renk ataması yapmasını nasıl sağlarız?

Makro ile renklendirme işlemi dosya ekindedir. İyi çalışmalar dilerim.

 

[Aldırma_Reis]

ellerine sağlık. Çok sağoalsın

 

[BG]

ellerine sağlık. Çok sağoalsın

Rica ederim. Yalnız kodu şöyle değiştirirseniz daha sağlıklı sonuç alabilirsiniz.
(Butona ait kodu)

Private Sub CommandButton1_Click()
For x = 2 To [I65536].End(xlUp).Row
        tckimlikno = Cells(x, "I")
        ayrilmatarihi = Cells(x, "D")
                
            For y = 2 To [I65536].End(xlUp).Row
               If Cells(y, "A") = tckimlikno Then
               
                       Cells(y, "A").Interior.ColorIndex = 3
                       Cells(x, "I").Interior.ColorIndex = 3
                       Cells(x, "L") = Cells(y, "d")
               End If
            Next y
    Next x
   MsgBox "İşlem Tamamlanmıştır", vbInformation

End Sub

 

[Aldırma_Reis]

Yardımların için çok teşekkür ediyorum. Problemim çözüldü. Kolay gelsin.

 

[osmanbastan]

hücre eşleme ve değer atama

iyi günler,
2010 yılına ait uçuş kodlarını sheet2 deki kodlarla eşleyip firma ismini ve milliyetini nasıl yazdırabilirim.

 

[ilker_orbay]

Arkadaşlar mrhb,
Bir konuda yardımınıza ıhtıyacım olacak,ornekte gozuken excel tablosunda 3 sayfada sarı ile boyalı sutundaki numaralar biribirne eşit olduğu vakite sayfa 1 de bulunan kırmızı da boyalı sutundaki değerleri sayfa 3 de yeşil ile taralı sutuna yazdırabilecek makro koduna ihtıyacım var acil yardımlarınızı bekliyorum....SAOLUN kODU BIR AZ YAZMAYA CALISTIM AMA OLMADI....

Sub Düğme1_Tıklat()
For x = 1 To [I65536].End(xlUp).Row
For y = 1 To [I65536].End(xlUp).Row
If Sheets("Sayfa3").Cells(y, "C") = Sheets("Sayfa1").Cells(x, "C") Then
Sheets("Sayfa3").Cells(y, "M").Value = Sheets("Sayfa1").Cells(y, "F").Value
Else
Sheets("Sayfa3").Cells(x, "M").Value = " "
End If
Next y
Next x
MsgBox "İşlem Tamamlanmıştır", vbInformation
End Sub