makro ile kısa yola göre hücreye değer yazdırma

[turkdoktoru]

merhabalar,

sayfa1 de
A sütünunda B sütununda
Ma adı soyadı
Ty adı soyadı
Ru adı soyadı


Sayfa2 ye herhangi bir sütuna kısa yollardan biri olan Ma yazıldığında sayfa2 deki kısa yolun yazıldığı hücreye adı soyadını yazdırabilir miyiz ?

 

[turkdoktoru]

yardımcı olabilecek kimse yok mu ?

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz?

 

[Ömer BARAN]

Merhabalar.

Alt taraftan Sayfa2'nin adına fareyle sağ tıklayın ve KOD GÖRÜNTÜLEyi seçin.
Açılan ekranın sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
    alan = "A1:A" & Sheets("Sayfa1").[A65536].End(3).Row
    If Target = "" Then Exit Sub
If WorksheetFunction.CountIf(Sheets("Sayfa1").Range(alan), Target) = 1 Then
    brn = WorksheetFunction.Match(Target, Sheets("Sayfa1").Range(alan), 0)
    Target = Sheets("Sayfa1").Cells(brn, 2)
End If
End Sub[/FONT]

 

[muygun]

Merhaba;
Alternatif olsun. İnceleyin.
İyi çalışmalar.