Adını soyadını hücrede yazıca yanındaki hücreye otomatik iban nosunu yazmasını istiy

[istanbulcahan]

Burada Adı ve soyadı yanında iban numaraları yer almaktadır. Ben Adını soyadını yazdığımda sağ tarafa iban numarasını yazmasını istiyorum.
Ayrıca Korhan hocamızın verdiği kodla rakam yazınca sağına başka bir tutarın gelmesini yapmıştım, sağolsun. ancak ordaki mantığı kullanarak Case Is = 15.63
yerine Case Is = Ahmet Cahan yapayım dedim.. Olmadı.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Target <> "" Then
Select Case Target
Case Is = 15.63
Target.Next = 0.13
Case Is = 14.21
Target.Next = 0.12
Case Is = 19.89
Target.Next = 0.17
End Select
Else
Target.Next.ClearContents
End If
Son:
End Sub
Örnek dosya ektedir.

 

[Korhan Ayhan]

Selamlar,

Bu tarz sorularınızda ADI-SOYADI bilgisini hangi sütuna yazacağınızıda belirtirseniz çözüm üretmek isteyen arkadaşlarımıza kolaylık sağlamış olursunuz.

 

[istanbulcahan]

Evet üstad. Sağolasın. Örnek dosyada belirttim.

 

[Korhan Ayhan]

Selamlar,

Siz İBAN numaralarını bir sayfada tutmalısınızki excel kişinin İBAN numarasını size listelesin. Aynı sayfada bu işlemi yapabilmeniz için üst satırlarda ilgili kişinin ADI-SOYADI girilmiş olması gerekir. Sİz işlemi nasıl yapmak istiyorsunuz?

 

[istanbulcahan]

Evet İBAN numaralarını bir sayfada tutacağım Örnek dosyada gerekli açıklamayı yaptım. Sağolasın.Üstadım.

 

[levo26]

Merb,

B2 hücresine aşağıdaki formülü yapıştırın ve aşağıya doğru sürükleyin

=DÜŞEYARA(A2;$H$3:$I$19;2;0)

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BUL As Range
    On Error GoTo Son
    If Intersect(Target, Range("A2:A65536")) Is Nothing Then Exit Sub
    If Target <> "" Then
        Target.Next.ClearContents
        Set BUL = Range("H:H").Find(Target, LookAt:=xlWhole)
        If Not BUL Is Nothing Then
        Target.Next = BUL.Offset(0, 1)
        Set BUL = Nothing
        End If
    End If
Son:
End Sub

 

[istanbulcahan]

Çok sağol. Üstadım. Harika oldu.