vba daki bilgilerin çalışma sayfasında kullanımı

[Ayşavkı]

herkese merhaba!! konu ile ilgili izahat yapmaya çalıştığım dosya ektedir.hücrey yazdığım isim ne ise diğer hücrelerde o isim ve diğer hücredede o isme ait ünvan gelsin istiyorum.ancak isimler ve ait olduğu ünvanlar vba sayfasında olacak.çalışma sayfasından almak istemiyorum kodun içerisinde olmalı sayglar!!!

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın.

Aynı mantıkla şart ekleyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim deg As Variant
 
    If Intersect(Target, Range("E2")) Is Nothing Then Exit Sub
 
    deg = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
    
    Range("C5") = Target
    
    If deg = "ADEM" Then
        Range("C6") = "Müdür"
    ElseIf deg = "MEHMET" Then
        Range("C6") = "Memur"
    ElseIf deg = "BARIŞ" Then
        Range("C6") = "İşçi"
[COLOR=darkgreen][B]    '
    '
    '
    '
[/B][/COLOR]    Else
        Range("C6") = "Bulamadım"
    End If
 
End Sub

.

 

[security]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Coder By Security 2012
If Intersect(Target, Range("E2")) Is Nothing Then Exit Sub
Select Case Target
           Case "ADEM"
                Range("C5").Value = "ADEM"
                Range("C6").Value = "MEMUR"
           Case "AHMET"
                Range("C5").Value = "AHMET"
                Range("C6").Value = "MÜDÜR"
           Case "MEHMET"
                Range("C5").Value = "MEHMET"
                Range("C6").Value = "MÜD.YARD."
           Case "ALİ"
                Range("C5").Value = "ALİ"
                Range("C6").Value = "İŞÇİ"
           Case "SECURİTY"
                Range("C5").Value = "SECURİTY"
                Range("C6").Value = "CODER"
           Case "EXCEL"
                Range("C5").Value = "EXCEL"
                Range("C6").Value = "VBA"
           Case "ASLI"
                Range("C5").Value = "ASLI"
                Range("C6").Value = "PERSONEL MÜD."
            Case "YELİZ"
                Range("C5").Value = "YELİZ"
                Range("C6").Value = "SEKRETER"
            Case "KEREM"
                Range("C5").Value = "KEREM"
                Range("C6").Value = "ÜRETİM ŞEFİ"
            Case "SİBEL"
                Range("C5").Value = "SİBEL"
                Range("C6").Value = "KALİTE SİS."
           Case Else
                Range("C5").Value = ""
                Range("C6").Value = ""
           End Select
End Sub

ÖRNEK 10 KİŞİ EKLEDİM İSTEDİNİZ GİBİ SANIRIM...

 

[Ayşavkı]

sayın ömer bey ve sayın security!! öncelikle geri dönüş hususunda geç kaldığım için özür dilerim. ilgileriniz için şükranlarımı arz ederim. kodların ikiside işime yarayacak her iki koduda arşivime aldım.çünkü diğer çalışmalarıma ışık tutacak.emekleriniz çok teşekkür eder,saygılar sunarım.

 

[security]

sayın ömer bey ve sayın security!! öncelikle geri dönüş hususunda geç kaldığım için özür dilerim. ilgileriniz için şükranlarımı arz ederim. kodların ikiside işime yarayacak her iki koduda arşivime aldım.çünkü diğer çalışmalarıma ışık tutacak.emekleriniz çok teşekkür eder,saygılar sunarım.

Sayın Ayşavkı İyi Çalışmalar Dilerim...