Bir hücredeki verinin başka bir hücreye otomatik aktarılmasını sağlamak...

[rsorkun]

Arkadaşlar, excel'de yeniyim.
Herhangi bir hücreye Kurs adını girince yanındaki hücreye kursun adresinin otomatik gelmesini istiyorum ama bir türlü beceremedim.

Örneğin;
A5 hücresine Hayme Hatun Kursu yazınca, B5 hücresine xxx mah. yyy cad. No: 20 gibi adresini de getirsin. Bu kursun ismini o sayfa içerisinde hangi hücreye yazarsam yazayım aynı adresin yazmasını istiyorum.

Başka bir sayfada isimler ve adresler hazır.

Örnek Sayfa(resim)

 

[Mahir64]

Merhaba,
Resim yerine dosyanızı ekler misiniz? https://dosyam.org

 

[kepetto]

https://dosyam.org/Z3x/RsOrkun_-_Birleştir_Düşeyara.xlsx

Linkinden örnek dosyayı inceleyebilirisniz..

 

[Mahir64]

Olması gereken hangi sayfa?

 

[ÖmerFaruk]

Ben resime göre bir şey hazırlamıiştım. Dosyanıza göre uyarladım.
Resimde adres kısmında Mahalle +Sokak + Dış Kapı + İç Kapı vardı. Ona göre yaptım. Liste sayfasındaki Birleştir sütununa ihtiyaç yok

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bul As Range, Sh As Worksheet
    Set Sh = Sheets("Liste")
    If Target.Cells.Count > 1 Then GoTo 10
    Set Bul = Sh.Range("A:A").Find(Target.Value, , xlValues, xlWhole)
    If Bul Is Nothing Then GoTo 10
    Application.EnableEvents = False
    Target.Offset(, 1) = Join(Application.Transpose(Application.Transpose(Sh.Range("B" & Bul.Row).Resize(1, 4))), " / ")
10  Set Bul = Nothing
    Set Sh = Nothing
    Application.EnableEvents = True
End Sub

 

[musculus2]

Ben resime göre bir şey hazırlamıiştım. Dosyanıza göre uyarladım.
Resimde adres kısmında Mahalle +Sokak + Dış Kapı + İç Kapı vardı. Ona göre yaptım. Liste sayfasındaki Birleştir sütununa ihtiyaç yok

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bul As Range, Sh As Worksheet
    Set Sh = Sheets("Liste")
    If Target.Cells.Count > 1 Then GoTo 10
    Set Bul = Sh.Range("A:A").Find(Target.Value, , xlValues, xlWhole)
    If Bul Is Nothing Then GoTo 10
    Application.EnableEvents = False
    Target.Offset(, 1) = Join(Application.Transpose(Application.Transpose(Sh.Range("B" & Bul.Row).Resize(1, 4))), " / ")
10  Set Bul = Nothing
    Set Sh = Nothing
    Application.EnableEvents = True
End Sub

Elinize sağlık resmen şiir gibi.

 

[rsorkun]

Merhaba,
Resim yerine dosyanızı ekler misiniz? https://dosyam.org

Öncelikler ilginize teşekkür ederim.

https://dosyam.org/1P5I/ADRES_ÇALIŞMASI-EK-1.xlsx

Örnek dosyada "Sayfa 1" de bilgiler mevcut. "Sayfa 2" de Örneğin B3 ile B65 sütunları arasına (Sayfa1'in B3-B65 arasındaki kurslardan)hangi ismi yazarsam yazayım kursun adresinin karşı sütuna gelmesini istiyorum.

Örneğin;
B3 sütununa Hayme Hatun yazdım C3 sütununa adresi gelecek.
B4 sütununa Gökmeydan yazdım aynı şekilde.
B8 sütununa yine Hayme Hatun yazdım yine karşısına C8 sütununa adresi gelecek.

Not: Örnek dosyadaki gibi adresin mahalle-sokak-No olarak ayrı satırlarda olması fark etmez. Ben onu birleştirebilirim, bütün bir adres olarak tek hücreden de veriyi alabilir. Yeterki adresi tamamlasın.

 

[rsorkun]

https://dosyam.org/Z3x/RsOrkun_-_Birleştir_Düşeyara.xlsx

Linkinden örnek dosyayı inceleyebilirisniz..

Öncelikler ilginize teşekkür ederim. Bu dosya benim dediğimi karşılamıyor yada ben meramımı tam olarak anlatamadım.

https://dosyam.org/1P5I/ADRES_ÇALIŞMASI-EK-1.xlsx

Örnek dosyada "Sayfa 1" de bilgiler mevcut. "Sayfa 2" de Örneğin B3 ile B65 sütunları arasına (Sayfa1'in B3-B65 arasındaki kurslardan)hangi ismi yazarsam yazayım kursun adresinin karşı sütuna gelmesini istiyorum.

Örneğin;
B3 sütununa Hayme Hatun yazdım C3 sütununa adresi gelecek.
B4 sütununa Gökmeydan yazdım aynı şekilde.
B8 sütununa yine Hayme Hatun yazdım yine karşısına C8 sütununa adresi gelecek.

Not: Örnek dosyadaki gibi adresin mahalle-sokak-No olarak ayrı satırlarda olması fark etmez. Ben onu birleştirebilirim, bütün bir adres olarak tek hücreden de veriyi alabilir. Yeter ki adresi tamamlasın.

 

[bahadir.korkmazer]

Merhabalar,

Forumda yeniyim. Yardımınıza çok ihtiyacım var. Konuyu aşağıda belirttim.

Bir excel dosyam var. Aynı içeriğe sahip farklı sayfalarda hücrelerim var.
Her sayfada aynı işlemi yapmak yerine işi kolaylaştırıcı bir çözüme ihtiyacım var.

Ör: "Sayfa1de A, B, C ve D hücrelerine veri girişi yapıldıktan sonra
Sayfa2ye geçip D hücresine Sayfa1 D hücresindeki verinin aynısı girildiğinde
Sayfa2nin A, B ve C hücrelerinin Sayfa1deki A, B, C hücrelerinden verileri çekip otomatik
doldurulmasını istiyorum bu mümkün müdür?"

İlginizden dolayı şimdiden çok teşekkür ederim.

 

[ekremmk]

Merhabalar,

Forumda yeniyim. Yardımınıza çok ihtiyacım var. Konuyu aşağıda belirttim.

Bir excel dosyam var. Aynı içeriğe sahip farklı sayfalarda hücrelerim var.
Her sayfada aynı işlemi yapmak yerine işi kolaylaştırıcı bir çözüme ihtiyacım var.

Ör: "Sayfa1de A, B, C ve D hücrelerine veri girişi yapıldıktan sonra
Sayfa2ye geçip D hücresine Sayfa1 D hücresindeki verinin aynısı girildiğinde
Sayfa2nin A, B ve C hücrelerinin Sayfa1deki A, B, C hücrelerinden verileri çekip otomatik
doldurulmasını istiyorum bu mümkün müdür?"

İlginizden dolayı şimdiden çok teşekkür ederim.

sayfa1 de d1 hücresini sayfa2 de d1 hücresine istiyorsunuz diyelim
sayfa2 de d1 hücresine gelip =sayfa1!D1 yazarsanız oradan veriyi çeker.
Alta doğru d2 d3 diye devam etmesini isterseniz devam etmesini istediğiniz yere kadar sayfa2 de hücreleri secip CTRL+D tuşuna basarsanız fonksiyon hepsinde tanımlı hale gelir.

 

[bahadir.korkmazer]

sayfa1 de d1 hücresini sayfa2 de d1 hücresine istiyorsunuz diyelim
sayfa2 de d1 hücresine gelip =sayfa1!D1 yazarsanız oradan veriyi çeker.
Alta doğru d2 d3 diye devam etmesini isterseniz devam etmesini istediğiniz yere kadar sayfa2 de hücreleri secip CTRL+D tuşuna basarsanız fonksiyon hepsinde tanımlı hale gelir.

Sanırım tam olarak sorunumu anlatamadım. İstediğim özellik bu değil maalesef

 

[ekremmk]

Sanırım tam olarak sorunumu anlatamadım. İstediğim özellik bu değil maalesef

cümleyi tekrar okudum
eğer ve düşeyara fonksiyonlarını iç içe kullanarak bu problemi çözebilirsiniz. Örnek dosya paylaşırsanız yardımcı olurum
Makroyla daha rahat halledilir muhtemelen

 

[vein03051976]

Merhaba

Dosyadaki Veriler sayfa1de, siz herhangi bir sayfanın herhangi bir hücresine kurs adı yazdığınızda yan sütuna adresi gelsin istiyorsunuz

Doğrumu anladım

 

[bahadir.korkmazer]

cümleyi tekrar okudum
eğer ve düşeyara fonksiyonlarını iç içe kullanarak bu problemi çözebilirsiniz. Örnek dosya paylaşırsanız yardımcı olurum
Makroyla daha rahat halledilir muhtemelen

https://dosyam.org/Z45/Yeni_Microsoft_Excel_Çalışma_Sayfası_(3).xlsx

dosyayı adrese yükledim. ilginizden dolayı çok teşekkür ederim.

 

[ekremmk]

Bilgi

Bilgi

dosyam.org

Tam ayrıntı vermediğiniz için Müşteri adı hücresini referans alarak diğer bilgileri getirecek şekilde yaptım. İşinize yarar umarım.

 

[rsorkun]

Merhaba

Dosyadaki Veriler sayfa1de, siz herhangi bir sayfanın herhangi bir hücresine kurs adı yazdığınızda yan sütuna adresi gelsin istiyorsunuz

Doğrumu anladım

Sayfa2'nin B3-B65 arasında herhangi bir satıra kurs ismini yazdığımda C sütununa da gelecek.

 

[bahadir.korkmazer]

Bilgi

Bilgi

dosyam.org

Tam ayrıntı vermediğiniz için Müşteri adı hücresini referans alarak diğer bilgileri getirecek şekilde yaptım. İşinize yarar umarım.

İşime çok yaradı. Çok çok teşekkür ederim. Emeğinize sağlık

 

[kepetto]

Öncelikler ilginize teşekkür ederim.

https://dosyam.org/1P5I/ADRES_ÇALIŞMASI-EK-1.xlsx

Örnek dosyada "Sayfa 1" de bilgiler mevcut. "Sayfa 2" de Örneğin B3 ile B65 sütunları arasına (Sayfa1'in B3-B65 arasındaki kurslardan)hangi ismi yazarsam yazayım kursun adresinin karşı sütuna gelmesini istiyorum.

Örneğin;
B3 sütununa Hayme Hatun yazdım C3 sütununa adresi gelecek.
B4 sütununa Gökmeydan yazdım aynı şekilde.
B8 sütununa yine Hayme Hatun yazdım yine karşısına C8 sütununa adresi gelecek.

Not: Örnek dosyadaki gibi adresin mahalle-sokak-No olarak ayrı satırlarda olması fark etmez. Ben onu birleştirebilirim, bütün bir adres olarak tek hücreden de veriyi alabilir. Yeterki adresi tamamlasın.

https://dosyam.org/Z75/ADRES_ÇALIŞMASI-EK-1_çözüm.xlsx

Buyrun birde bu dosyayı inceleyiniz.

 

[rsorkun]

Allah razı olsun kardeşim. Tam da istediğim buydu. Çok teşekkür ederim. Yardım etmeye çalışan diğer arkadaşlara da teşekkür ediyorum.
https://dosyam.org/Z75/ADRES_ÇALIŞMASI-EK-1_çözüm.xlsx