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

Katılım
12 Ekim 2021
Mesajlar
5
Excel Vers. ve Dili
2007 Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
19 Nisan 2006
Mesajlar
6,667
Excel Vers. ve Dili
Excel 2013-Türkçe
Excel 2016-Türkçe
Olması gereken hangi sayfa?
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,616
Excel Vers. ve Dili
Microsoft 365 Tr-64
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
C++:
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

Altın Üye
Altın Üye
Katılım
23 Şubat 2007
Mesajlar
112
Excel Vers. ve Dili
2013 türkçe
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
C++:
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. :)
 
Katılım
12 Ekim 2021
Mesajlar
5
Excel Vers. ve Dili
2007 Türkçe
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.
 
Katılım
12 Ekim 2021
Mesajlar
5
Excel Vers. ve Dili
2007 Türkçe
Ö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.
 
Katılım
13 Ekim 2021
Mesajlar
4
Excel Vers. ve Dili
Office 2016 - Türkçe
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.
 
Katılım
21 Kasım 2018
Mesajlar
153
Excel Vers. ve Dili
Excel 2013 , Türkçe
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.
 
Katılım
13 Ekim 2021
Mesajlar
4
Excel Vers. ve Dili
Office 2016 - Türkçe
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
 
Katılım
21 Kasım 2018
Mesajlar
153
Excel Vers. ve Dili
Excel 2013 , Türkçe
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

Altın Üye
Katılım
9 Ocak 2009
Mesajlar
116
Excel Vers. ve Dili
Excel 365 Türkçe
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
 
Son düzenleme:
Katılım
13 Ekim 2021
Mesajlar
4
Excel Vers. ve Dili
Office 2016 - Türkçe
Katılım
21 Kasım 2018
Mesajlar
153
Excel Vers. ve Dili
Excel 2013 , Türkçe

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.
 
Katılım
12 Ekim 2021
Mesajlar
5
Excel Vers. ve Dili
2007 Türkçe
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.
 
Katılım
14 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
Excel 2007 Türkçe
Ö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.
 
Üst