BUL MODU İLE PERSONEL İSMİ GETİRME

[onurbeyaz]

Merhaba ekte paylaşmış olduğum excelde belirttiğim gibi personelin ismini yazdığımda personel datasından bilgileri alıp eklediğim yerlere yazmasını istiyorum konu hakkında desteklerinizi rica ederim

 

[Muzaffer Ali]

Merhaba.

"yazdırlacak" adlı sayfanın kod sayfasına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Bul As Range
    If Not Intersect(Target, Range("B22")) Is Nothing Then
        With Worksheets("PERSONEL DATA")
            Set Bul = .Range("A:A").Find(Target.Text, LookAt:=xlWhole)
            If Bul Is Nothing Then
                MsgBox "Personel bulunamadı.", vbExclamation
            Else
                Range("A1") = .Cells(Bul.Row, "B") 'ADRES1
                Range("A2") = .Cells(Bul.Row, "C") 'ADRES2
                Range("A3") = .Cells(Bul.Row, "D") 'MATRAH
                Range("A4") = .Cells(Bul.Row, "E") 'VERGİ
                Range("A5") = .Cells(Bul.Row, "F") 'TL
            End If
        End With
    End If
End Sub

Dosyanızın neresine hangi veri yazılacak net belli olmuyor. Ben A1-A5 arasına yazdım siz doğru adresleri yazıp kodlar düzenlersiniz.

 

[onurbeyaz]

Merhaba.

"yazdırlacak" adlı sayfanın kod sayfasına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Bul As Range
    If Not Intersect(Target, Range("B22")) Is Nothing Then
        With Worksheets("PERSONEL DATA")
            Set Bul = .Range("A:A").Find(Target.Text, LookAt:=xlWhole)
            If Bul Is Nothing Then
                MsgBox "Personel bulunamadı.", vbExclamation
            Else
                Range("A1") = .Cells(Bul.Row, "B") 'ADRES1
                Range("A2") = .Cells(Bul.Row, "C") 'ADRES2
                Range("A3") = .Cells(Bul.Row, "D") 'MATRAH
                Range("A4") = .Cells(Bul.Row, "E") 'VERGİ
                Range("A5") = .Cells(Bul.Row, "F") 'TL
            End If
        End With
    End If
End Sub

Dosyanızın neresine hangi veri yazılacak net belli olmuyor. Ben A1-A5 arasına yazdım siz doğru adresleri yazıp kodlar düzenlersiniz.

Öncelikle ilginiz için çok teşekkür ederim ama ben hiç bir şekilde makro bilmediğim için kod falan yerleştirdim ama yapamadım rica etsem yapıp dosyayı gönderebilirmisiniz b22 e zennure yazdığımda personel data da zennurenin bilgilerini sırasıyla b23 b25 e adres vs yazması gerekmektedir bunu yapabilirmiyiz dosya içinde

 

[Muzaffer Ali]

"yazdırlacak " adlı dosyanın adını sağ tıklatın "Kod Görüntüle" seçin, açılan kod sayfasına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range
    If Not Intersect(Target, Range("B22")) Is Nothing Then
        With Worksheets("PERSONEL DATA")
            Set Bul = .Range("A:A").Find(Target.Text, LookAt:=xlWhole)
            If Bul Is Nothing Then
                MsgBox "Personel bulunamadı.", vbExclamation
            Else
                Range("B23") = .Cells(Bul.Row, "B") 'ADRES1
                Range("B25") = .Cells(Bul.Row, "C") 'ADRES2
            End If
        End With
    End If
End Sub

 

[onurbeyaz]

Muzzaffer Bey çok teşekkür ederim sayenizde yaptım Allah razı olsun

 

[Muzaffer Ali]

Allah hepimizden razı olsun inşallah.