5 haneli bir rakam yazdığımda belirlediğim bir şirket adı çıksın

[Blondelion66]

Hocam iyi akşamlar
sayfa 2 ye önceden kaydettiğim rakamlar ve karşılarındaki firma adlarıvar örneğin. sayfa 1 de bu rakamlardan biri yazıldığında otomatik olarak şirket adı çıksın istiyorum.
yardımcı olabilir misiniz rica etsem?

 

[ÖmerFaruk]

Aynı hücre içinde mi yapacaksınız bunu?
Hücreye 5 yazacam, hücre kendiliğinde xxxx firması olacak
Hücreye 3 yazacam, hücre kendiliğinde zzzzzz firması olacak. doğru mu?

 

[YUSUF44]

DÜŞEYARA formülünü inceleyiniz.

 

[Blondelion66]

Aynı hücre içinde mi yapacaksınız bunu?
Hücreye 5 yazacam, hücre kendiliğinde xxxx firması olacak
Hücreye 3 yazacam, hücre kendiliğinde zzzzzz firması olacak. doğru mu?

evet hocam aynen o şekilde olsun istiyorum. sayfa 2 de A sütununda aşağı kadar 11001 ... 11055 gibi kodlar, B sutununda da bu rakamların tam karşılarında firma adları olacak. Örneğin : Sayfa 1 de bir hücrede 11009 yazdığımda Arçelik firması otomatik yazsın.

 

[ÖmerFaruk]

Sayfanızın kod sayfasına direkt yapıştırın.
Eğer bilmiyorsanız excel sayfa1 açıkken Alt+F11 tuşlarına basınca çıkan VBB penceresi.
Dosyanızı Makro İçerebilen Excel Dosyası olarak kaydedin

'Sayfa1de B2 hücresine firma no girdiğinizde
'Sayfa2 A1:B1 başlık satırı
'Sayfa2 A2:A500 firma numalaralı
'Sayfa2 B2:B500 firma isimleri
'Uygun olan firma ismi B2 hücresine gelir

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2]) Is Nothing Then Exit Sub 'Firma numarasu başka bir hücreye giriliyor ise değiştirin
                                                    ' Aşağıda 3 yerde daha [B2] var. 3ü de değişecek
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Sayfa2").Range("A2:A500") ' 500 den fazla ise sizde arttırın
    Set Bul = .Find([B2], LookIn:=xlValues)
    If Not Bul Is Nothing Then
    [B2] = Bul.Offset(0, 1).Value
    Else
    [B2] = ""
    End If
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

[Blondelion66]

Çok teşekkürler... deneyeceğim

 

[Merhum İdris SERDAR]

.

Bu dosyayı inceleyin.

Plaka Numarasından İl Adını Yazmak – Excel Gurusu

.