• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan rsorkun
  • Başlangıç tarihi Başlangıç tarihi
R

rsorkun

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)
 
Olması gereken hangi sayfa?
 
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
 
ÖmerFaruk' Alıntı:
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
Genişletmek için tıkla ...

Elinize sağlık resmen şiir gibi. :)
 
Mahir64' Alıntı:
Merhaba,
Resim yerine dosyanızı ekler misiniz? https://dosyam.org
Genişletmek için tıkla ...

Ö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.
 
kepetto' Alıntı:
https://dosyam.org/Z3x/RsOrkun_-_Birleştir_Düşeyara.xlsx

Linkinden örnek dosyayı inceleyebilirisniz..
Genişletmek için tıkla ...

Ö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.
 
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.
 
bahadir.korkmazer' Alıntı:
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.
Genişletmek için tıkla ...

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.
 
ekremmk' Alıntı:
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.
Genişletmek için tıkla ...
Sanırım tam olarak sorunumu anlatamadım. İstediğim özellik bu değil maalesef
 
bahadir.korkmazer' Alıntı:
Sanırım tam olarak sorunumu anlatamadım. İstediğim özellik bu değil maalesef
Genişletmek için tıkla ...
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
 
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:
dosyam.org

Bilgi

Bilgi
dosyam.org 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.
 
vein03051976' Alıntı:
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
Genişletmek için tıkla ...

Sayfa2'nin B3-B65 arasında herhangi bir satıra kurs ismini yazdığımda C sütununa da gelecek.
 
rsorkun' Alıntı:
Ö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.
Genişletmek için tıkla ...



https://dosyam.org/Z75/ADRES_ÇALIŞMASI-EK-1_çözüm.xlsx
Buyrun birde bu dosyayı inceleyiniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst