Farklı çalışma sayfasından bilgi alma

Katılım
5 Eylül 2007
Mesajlar
1,247
Excel Vers. ve Dili
ofis 2010
Altın Üyelik Bitiş Tarihi
21-07-2024
iyi akşamlar;
11 çalışma sayfalı firma bilgilerini içeren çalışma kitabını hazırladım. son olarak yaklaşık 11 çalışma sayfasındaki verilerden gerekli olanları tek formda görüntülemek istiyorum. ilk sayfanın A sütünunda olan firma adları diğer bütün çalışma sayfalarının B sütünun da ortak. oluşturduğum formül sayfasında Ünvanları çağırarak diğer sayfaları hazırladım. Anasayfa- sayfasına göre hazırladığım form içeriğini yüklüyorum. Ancak diğer sayfalardan nasıl veri alacağımı çözemedim.
Kod:
Private Sub ComboBox1_Change()

Set S = Sheets("ANASAYFA")
    ADI = Trim(ComboBox1.Text)   'aranan isim aramadaki comboBox
    On Error Resume Next
    Satir = S.Range("A:A").Find(ADI).Row
    If Satir = 0 Then
    Exit Sub
    End If
      
    TextBox2 = S.Cells(Satir, "B")
    TextBox3 = S.Cells(Satir, "C")
    TextBox4 = S.Cells(Satir, "D")
    TextBox5 = S.Cells(Satir, "A")
    TextBox6 = S.Cells(Satir, "J")
    TextBox7 = S.Cells(Satir, "G")
    TextBox8 = S.Cells(Satir, "H")
    TextBox9 = S.Cells(Satir, "I")
    TextBox11 = S.Cells(Satir, "F")
    TextBox10 = S.Cells(Satir, "E")
    TextBox12 = S.Cells(Satir, "N")
       
End Sub
yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
 
Üst