Farklı sayfalardan veri aktarma

[muhammethezer]

Selam,ComboBox!tan yaptığım seçimle ayrı sayfalardan aynı sayfa üzerine veri nasıl alabilirim.Örnek verirsem sayfa2 deki ve sayfa3 deki verileri sayfa1 de bulnan ComboBoxtan yapacagım seçim ile ilgili hücrelere atanması gibi..Teşekkür ederim..

 

[Korhan Ayhan]

Selamlar,

Sorunuzda bahsettiklerinizi örnek bir dosya üzerinde tarif ederseniz daha çabuk cevap alabilirsiniz. :hey:

 

[muhammethezer]

Merhaba sayın COST_CONTROL, İstemiş oldugunuz gibi ekteki dosyada ilgili yerleri renkli hale getirdim.Yapmak istedigim kısaca Dıe-cut sayfasında bulunan ComboBox'tan yapılan seçim ile Şekilli verileri sayfasından "SARI" renkte olan yerlere ; yine aynı ComboBox'tan yapılan seçim ile "Mavi" renkte olan yerlere de PRESLİK sayfasından ilgili verilerin aktarılması.Teşekkür ederim.

 

[muhammethezer]

Merhaba , İstemiş oldugunuz gibi ekteki dosyada ilgili yerleri renkli hale getirdim.Yapmak istedigim kısaca Dıe-cut sayfasında bulunan ComboBox'tan yapılan seçim ile Şekilli verileri sayfasından "SARI" renkte olan yerlere ; yine aynı ComboBox'tan yapılan seçim ile PRESLİK sayfasından ilgili verilerin "Mavi" renkte olan yerlere aktarılması.Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Çalışmanızı inceledim fakat bana SARI ve MAVİ alanlara tam olarak hangi sütundaki bilgileri getirmek istediğiniz belirtirseniz yardımcı olmaya çalışırım. :arkadas:

 

[muhammethezer]

merhaba;Sekıllı_Verılerı sayfasından "Malzeme 1,Malzeme 2 ve Malzeme 3 , H , I" sütunundaki bilgileri ;PRESLİK sayfasından "B, Cve D" sütunlarındaki bilgiler.Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Tam olarak anlatamadım galiba. Bana hangi hücreye hangi sayfadan hangi sütunu çağırmak istediğinizi belirtirmisiniz. Örnek verecek olursam;

DIE-CUT 1-2-3 KISS-CUT sayfasında SARI olan

K5 = Hangi Sütun
K6= Hangi Sütun
K8= Hangi Sütun

A15= Hangi Sütun
A16= Hangi Sütun
A17= Hangi Sütun

D15= Hangi Sütun
D16= Hangi Sütun
D17= Hangi Sütun

.... gibi detaylı verebilirmisiniz.

 

[muhammethezer]

K5 = "e"
K6= "g"
K8= "f"

A15= "h"
A16= "ı"
A17= "j"

D15= herhangi bir sütun
D16= herhangi bir sütun
D17= herhangi bir sütun


Teşekkür ederim..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Umarım istediğiniz gibidir. Eğer kodda değişiklik yapmak isterseniz "..." içindeki harfler sütunları ifade etmektedir kendi isteğinize göre değiştirirsiniz.

Private Sub ComboBox2_Change()
    Set S1 = Sheets("PRESLİK")
    Set S2 = Sheets("Sekıllı_Verılerı")
    Kriter = ComboBox2.Value
    
    Set ARA1 = S1.Cells.Find(What:=Kriter, After:=ActiveCell, LookIn:=xlValues)
    If Not ARA1 Is Nothing Then
    SAT1 = ARA1.Row

    [E7] = S1.Cells(SAT1, "B")
    [E8] = S1.Cells(SAT1, "C")
    [E9] = S1.Cells(SAT1, "D")
        
    Set ARA2 = S2.Cells.Find(What:=Kriter, After:=ActiveCell, LookIn:=xlValues)
    If Not ARA2 Is Nothing Then
    SAT2 = ARA2.Row
    
    [K5] = S2.Cells(SAT2, "E")
    [K6] = S2.Cells(SAT2, "G")
    [K8] = S2.Cells(SAT2, "F")
    
    [A15] = S2.Cells(SAT2, "H")
    [A16] = S2.Cells(SAT2, "I")
    [A17] = S2.Cells(SAT2, "J")

    [D15] = S2.Cells(SAT2, "E")
    [D16] = S2.Cells(SAT2, "F")
    [D17] = S2.Cells(SAT2, "G")
    [I13] = S2.Cells(SAT2, "AT")
End If: End If
End Sub

 

[muhammethezer]

Teşekkür ederim sayın COST_CONTROL, Kodları aktardım çok güzel her iki sayfadan da veriler alıyor ancak "ASSN.02.004.304.32" isimli kodu seçtiğimde ilgili koda karşılık gelen kodları değilde farklı satırdaki kodları getiriyor.yanlızca "PRESLİK" sayfasından ilgili koda karşılık gelen kodları doğru olarak alıyor, yardımlarınız için çok teşekkür ederim...

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim denermisiniz.

 

[muhammethezer]

SAYIN COST_CONTROL, ÇOK AMA ÇOK TEŞEKKÜR EDERİM.İNŞALLAH BİR GÜN BENDE SİZLER GİBİ BU SAYFADAN DİĞER ARKADAŞLARIMA YARDIMCI OLABİLİRİM .ELLERİNİZE VE EMEĞİNİZE SAĞLIK .TEŞEKKÜR EDERİM..