Otomatik Metin Çağırma Yardım!

[vezyr]

Merhaba arkadaşlar. Bu konuda belkide forumda daha evvel örnekler olabilir. Fakat yaklaşık 1 saattir arayıp denediklerimde malesef birşey yapamadım. Belkide benim cahilliğimdendir. Yardımcı olursanız çok sevinirim.



Bize lazım olan eklediğim resimde görülen 2 cockpit ve 4 adet kabin listesinin yuvarlak içine alıp A olarak belirttiğim alana örneğin A5 hücresine SS yazdığımda, hemen sağdaki alanlara ilgili koda sahip kaptanın ismi, telefonu, adresi gelsin istiyorum. Yani kod verip o koda ait olan isim, tlf, adres hücrelerinin otomatik gelmesini istiyorum.
Bu bilgileride 2. bir çalışma sayfasından almasını istiyorum. Yani veriyi Kokpit Listesinden almalı. Aynı şekilde kabinde kabin listesi diye açtığımız 3. bir sayfadan çağrılmalı.

Bahsettiğim çalışma kitabını ekliyorum. Anlatmaya çalıştığım işlevin sonucunuda elle 5. satıra yazıyorum. 5. satırdan sadece SS kısmını elle yazmak veya açılır bir listeden seçmek istiyorum.

Mümkünmüdür? Mümkünse yardımlarınızı bekliyorum. Şimdiden okuyup zaman ayıranlara ve yardımcı olmaya çalışanlara teşekkür ederim. Saygılarımla.

 

[uzmanamele]

merhaba

buraya bakınız

http://www.excel.web.tr/showthread.php?t=17226&highlight=d%FC%FEeyara

 

[Merhum İdris SERDAR]

Lookup-vlookup-hlookup
VLOOKUP-DÜŞEYARA UYGULAMASI
Arama & Başvuru Fonksiyon Uygulamaları
offset-kaydır fonksiyonu uygulaması

Buradaki örnekleri inceleyin.

.

 

[vezyr]

Çok teşekkür ederim ama bakıyorum bakıyorum ne anlatıldığına dair pek bir fikrim yok. Yani örnek uygulamalarda da bahsettiğim şekilde bir erişim göremedim. Excelde hiç bir bilgim yok açıkçası. Ekteki dosyaya bahsettiğim şekilde bir uyarlama yapamazmısınız?

Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

2 örnek yaptım, gerisini siz üzerinde çalışırsınız.

 

[Orion1]

Kabini kabin sayfasına kokpitide kokpit sayfasına aktarır.
Dosya ekte.

Sub aktar()
Dim s1 As Worksheet, s2 As Worksheet
Dim sat1 As Long, sat2 As Long, i As Byte
Sheets("Ucus Tablosu").Select
Set s1 = Sheets("Cockpit Listesi")
Set s2 = Sheets("Kabin Listesi")
If MsgBox("COCKPIT VE CABIN aktarımını yapmak istiyormusunuz?", vbYesNo, "AKTAR") = vbNo Then Exit Sub
sat1 = s1.Cells(65536, "A").End(xlUp).Row + 1
sat2 = s2.Cells(65536, "A").End(xlUp).Row + 1
For i = 4 To 12
    If Cells(i, "A").Value = "COCKPIT" Then
        If sat1 >= 65533 Then
            MsgBox "Cockpit sayfasında satır doldu.Bu sayfaya başka kayıt yapılamaz.Kayıtlar tam olarak akatarılmadı..", vbCritical, "UYARI"
            GoTo atla:
            Else
            s1.Range("A" & sat1 & ":G" & sat1).Value = _
            Range("A" & i & ":G" & i).Value
            sat1 = sat1 + 1
        End If
    ElseIf Cells(i, "A").Value = "CABIN" Then
        If sat2 >= 65533 Then
            MsgBox "Kabin sayfasında satır doldu.Bu sayfaya başka kayıt yapılamaz.Kayıtlar tam olarak akatarılmadı..", vbCritical, "UYARI"
            GoTo atla:
            Else
            s2.Range("A" & sat2 & ":G" & sat2).Value = _
            Range("A" & i & ":G" & i).Value
            sat2 = sat2 + 1
        End If
    End If
atla:
Next
MsgBox "Akatrım Bitti.", vbOKOnly + vbInformation, "AKTARIM"
            
End Sub

 

[vezyr]

Evren Bey, teşekkürler.
Necdet Bey size ayrıca teşekkürler. Istediğim tamamen buydu ellerinize sağlık. Tekrar saygılarımla, sağlıcakla kalın.

 

[Orion1]

Evren Bey, teşekkürler.
Necdet Bey size ayrıca teşekkürler. Istediğim tamamen buydu ellerinize sağlık. Tekrar saygılarımla, sağlıcakla kalın.

Rica ederim.
İyi çalışmalar.