• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Yan Hücredeki İsme Göre Hücreye Erişme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
B

barış kaya

Gold Üye
Katılım
25 Ağu 2021
Mesajlar
150
Aldığı beğeni
23
Excel V
Office 2010 TR
Gold Bitiş
6 Kasım 2025
Konu Sahibi
Hayırlı Akşamlar Hocalarım.

Ör.
A1 Hücresinde ='D:\Epak Ambalaj\2022\Müşteriler\[Can Kasap.xlsm]2022'!$E$6600 formülü mevcuttur.
"Can Kasap" kısmını B1 hücresinden çekmek istiyoruz.
Böylece B1 hücresine farklı müşteri ismi girdiğimizde, direkt olarak o veriyi A1 hücresinde görmek istiyoruz.

Böyle bir şey mümkün müdür?
Şimdiden çok teşekkür ediyorum.
 
Tarihe göre sırala Oylara göre sırala
Hangi sayfanın b1 hücresinden veri aliyor sunuz? Gerçek olmayan verilerle örnek dosya ekler misiniz?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
himmgarip' Alıntı:
Hangi sayfanın b1 hücresinden veri aliyor sunuz? Gerçek olmayan verilerle örnek dosya ekler misiniz?
Genişletmek için tıkla...
hocam klasörde muhtelif excel dosyaları var.
A1 hücresine hangi dosyanın adını yazarsak, B1 hücresinde o dosyanın !$E$6600 hücresindeki veriyi almak istiyoruz
 
Olumlu oy 0 Negatif oyla
barış kaya' Alıntı:
hocam klasörde muhtelif excel dosyaları var.
A1 hücresine hangi dosyanın adını yazarsak, B1 hücresinde o dosyanın !$E$6600 hücresindeki veriyi almak istiyoruz
Genişletmek için tıkla...
Hangi dosyanın a1 hücresine yazıyorsunuz bunu? Öğrenmek istediğim bu.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
hocam, genel hesap dosyasında A2 hücresine hangi dosyanın adını yazarsak, B2 hücresine, o müşterinin bakiyesini formülle almak istiyoruz.
Bu mümkün müdür acaba?
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
barış kaya' Alıntı:
hocam, genel hesap dosyasında A2 hücresine hangi dosyanın adını yazarsak, B2 hücresine, o müşterinin bakiyesini formülle almak istiyoruz.
Bu mümkün müdür acaba?
Genişletmek için tıkla...


İyi geceler. Farklı bir yöntemle yaptım.

Sayfadaki açılır kutu (combobox) D:\Epak Ambalaj\2022\Müşteriler\ adresindeki dosyaların adını listeliyor. (Dosya yolu farklı ise değiştiriniz.)
Listelenen kayıtlardan birine tıklandığında, seçilen carinin çalışma kitabındaki, 2022 isimli sayfanın E6600 isimli hücredeki değeri, genel hesap çalışma kitabının A1 hücresine yazıyor. (2022 isimli sayfa her carinin çalışma kitabında olmalı. Ve her sayfada veri E6600 nolu hücrede olmalı)

gif.gif
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
himmgarip' Alıntı:
İyi geceler. Farklı bir yöntemle yaptım.

Sayfadaki açılır kutu (combobox) D:\Epak Ambalaj\2022\Müşteriler\ adresindeki dosyaların adını listeliyor. (Dosya yolu farklı ise değiştiriniz.)
Listelenen kayıtlardan birine tıklandığında, seçilen carinin çalışma kitabındaki, 2022 isimli sayfanın E6600 isimli hücredeki değeri, genel hesap çalışma kitabının A1 hücresine yazıyor. (2022 isimli sayfa her carinin çalışma kitabında olmalı. Ve her sayfada veri E6600 nolu hücrede olmalı)

Ekli dosyayı görüntüle 5233
Genişletmek için tıkla...
hocam ellerinize sağlık, zahmet verdik.
B1, B2, B3... şeklinde B1000'e kadar veya B Sütununun tamamına uygulamamız mümkün müdür?
Veya bunun formül ile uygulanması mümkün müdür?
 
Olumlu oy 0 Negatif oyla
barış kaya' Alıntı:
hocam ellerinize sağlık, zahmet verdik.
B1, B2, B3... şeklinde B1000'e kadar veya B Sütununun tamamına uygulamamız mümkün müdür?
Veya bunun formül ile uygulanması mümkün müdür?
Genişletmek için tıkla...
Siz tam olarak ne yapmak istiyorsunuz? Bütün carilerin kayıtlarının tamamını mı görmek istiyorsunuz?

Seçilen carinin kaydını görmek yeterli değil mi?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
himmgarip' Alıntı:
Siz tam olarak ne yapmak istiyorsunuz? Bütün carilerin kayıtlarının tamamını mı görmek istiyorsunuz?

Seçilen carinin kaydını görmek yeterli değil mi?
Genişletmek için tıkla...
Hocam, müşterilerin isim listesini sıralayan bir kodumuz var.
isim listesi alt alta sıralanırken, yan hücrede de ismi baz alarak güncel bakiye çıksın istiyoruz.

=
Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.
("'D:\Epak Ambalaj\2022\Müşteriler\[" & B1 & ".xlsm]2022'!E6600")
bu formül dosya açıkken işimizi görse de, dosya kapalıyken çalışmıyor.

yani A sütunundaki hücrelerde formül hazır olmalı, B sütuna hangi dosya isim gelirse o dosyadaki veriyi almak istiyoruz.
galiba mümkün olmayan birşey bu :) size zahmet verdiğim için hakkınızı helal edin hocam.
 
Olumlu oy 0 Negatif oyla
barış kaya' Alıntı:
Hocam, müşterilerin isim listesini sıralayan bir kodumuz var.
isim listesi alt alta sıralanırken, yan hücrede de ismi baz alarak güncel bakiye çıksın istiyoruz.

=
Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.
("'D:\Epak Ambalaj\2022\Müşteriler\[" & B1 & ".xlsm]2022'!E6600")
bu formül dosya açıkken işimizi görse de, dosya kapalıyken çalışmıyor.

yani A sütunundaki hücrelerde formül hazır olmalı, B sütuna hangi dosya isim gelirse o dosyadaki veriyi almak istiyoruz.
galiba mümkün olmayan birşey bu :) size zahmet verdiğim için hakkınızı helal edin hocam.
Genişletmek için tıkla...

B sütununa carileri girdik olarak varsayıyorum. Tutar getir dediğimizde Yazan cari adının tutarı getirilir.

1643304675609.png

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Tam otomatik olarak;

B sütununa dosya isimlerini listeleyip, A sütununa da listelenen dosya isimlerine ait değerleri getiriyor.

İşinize yaraması dileğiyle.

1643310738741.png
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Çözüm
Konu Sahibi
himmgarip' Alıntı:
Tam otomatik olarak;

B sütununa dosya isimlerini listeleyip, A sütununa da listelenen dosya isimlerine ait değerleri getiriyor.

İşinize yaraması dileğiyle.

Ekli dosyayı görüntüle 5266
Genişletmek için tıkla...
Hocam ellerinize sağlık bu çok güzel olmuş.
Fakat buna "Tutar Getir" tuşu eklesek daha iyi olur. Çünkü dosyayı her açtığımızda bizim için beklemek zaman kaybı olur. Yani dosyayı açtığımızda mevcut liste olsun. Biz güncelleme yapmak istediğimizde tuşla çalıştırırız.
 
Olumlu oy 0 Negatif oyla
barış kaya' Alıntı:
Hocam ellerinize sağlık bu çok güzel olmuş.
Fakat buna "Tutar Getir" tuşu eklesek daha iyi olur. Çünkü dosyayı her açtığımızda bizim için beklemek zaman kaybı olur. Yani dosyayı açtığımızda mevcut liste olsun. Biz güncelleme yapmak istediğimizde tuşla çalıştırırız.
Genişletmek için tıkla...

Cari simlerini listeler. Siz tutar getire tıklayınca tutarlar gelir.

1643321875326.png
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
himmgarip' Alıntı:
Tam otomatik olarak;

B sütununa dosya isimlerini listeleyip, A sütununa da listelenen dosya isimlerine ait değerleri getiriyor.

İşinize yaraması dileğiyle.

Ekli dosyayı görüntüle 5266
Genişletmek için tıkla...
buton eklemeye gerek kalmadı hocam.
Harika bir şey oldu.
Ellerinize sağlık hocam.
Tekrar tekrar çok teşekkür ediyorum. :)

Aşağıdaki şekilde uyarlayarak zenginleştirdim.

Sub TutarAl()

Dim i As Long

For i = 2 To 100000

If Sayfa1.Range("b" & i).Value = "" Then
Exit Sub
Else

Sayfa1.Range("a" & i).Value = "='D:\Epak Ambalaj\2022\Müşteriler\" & "[" & Sayfa1.Range("b" & i).Value & "]" & "Bilgi'!$D$2"
Sayfa1.Range("c" & i).Value = "='D:\Epak Ambalaj\2022\Müşteriler\" & "[" & Sayfa1.Range("b" & i).Value & "]" & "Bilgi'!$F$2"
Sayfa1.Range("d" & i).Value = "='D:\Epak Ambalaj\2022\Müşteriler\" & "[" & Sayfa1.Range("b" & i).Value & "]" & "Bilgi'!$F$5"
Sayfa1.Range("e" & i).Value = "='D:\Epak Ambalaj\2022\Müşteriler\" & "[" & Sayfa1.Range("b" & i).Value & "]" & "Bilgi'!$G$2"
Sayfa1.Range("f" & i).Value = "='D:\Epak Ambalaj\2022\Müşteriler\" & "[" & Sayfa1.Range("b" & i).Value & "]" & "Bilgi'!$H$2"
Sayfa1.Range("g" & i).Value = "='D:\Epak Ambalaj\2022\Müşteriler\" & "[" & Sayfa1.Range("b" & i).Value & "]" & "Bilgi'!$J$2"
Sayfa1.Range("h" & i).Value = "='D:\Epak Ambalaj\2022\Müşteriler\" & "[" & Sayfa1.Range("b" & i).Value & "]" & "Bilgi'!$K$2"
Sayfa1.Range("ı" & i).Value = "='D:\Epak Ambalaj\2022\Müşteriler\" & "[" & Sayfa1.Range("b" & i).Value & "]" & "Bilgi'!$L$2"
Sayfa1.Range("j" & i).Value = "='D:\Epak Ambalaj\2022\Müşteriler\" & "[" & Sayfa1.Range("b" & i).Value & "]" & "Bilgi'!$M$2"
Sayfa1.Range("k" & i).Value = "='D:\Epak Ambalaj\2022\Müşteriler\" & "[" & Sayfa1.Range("b" & i).Value & "]" & "Bilgi'!$N$2"
Sayfa1.Range("l" & i).Value = "='D:\Epak Ambalaj\2022\Müşteriler\" & "[" & Sayfa1.Range("b" & i).Value & "]" & "Bilgi'!$O$2"

End If
Next i


End Sub


Sub dosyalar()
Dim STR As Long, YL As String, DSY As String
STR = 2
YL = "D:\Epak Ambalaj\2022\Müşteriler\"
DSY = Dir(YL, vbNormal)
Do While DSY <> ""
With WorksheetFunction
If (GetAttr(YL & DSY) And vbNormal) = vbNormal Then
Cells(STR, "B") = Replace(DSY, Right(DSY, Len(DSY) - _
.Find("", .Substitute(DSY, ".", "", Len(DSY) - Len( _
.Substitute(DSY, ".", "")))) + 1), "")
STR = STR + 1
End If: End With
DSY = Dir
Loop
End Sub
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam ufak bir rötuş gerekiyor

proğram açıkken, müşteri dosyalarından bir veya birkaç tanesini sildiğimizde ve arkasından proğramı kapatıp yeniden açtığımızda müşteri listesi normal şekilde eksiliyorken, listenin altında kalan bilgiler kalıyor, onlarında silinmesi için ne yapabiliriz?
aksi halde b hücresinde müşteri ismi yokken, c hücresinde borç gözüküyor.
 
Olumlu oy 0 Negatif oyla
barış kaya' Alıntı:
Hocam ufak bir rötuş gerekiyor

proğram açıkken, müşteri dosyalarından bir veya birkaç tanesini sildiğimizde ve arkasından proğramı kapatıp yeniden açtığımızda müşteri listesi normal şekilde eksiliyorken, listenin altında kalan bilgiler kalıyor, onlarında silinmesi için ne yapabiliriz?
aksi halde b hücresinde müşteri ismi yokken, c hücresinde borç gözüküyor.
Genişletmek için tıkla...
Private Sub Workbook_BeforeClose(Cancel As Boolean) olayında;

Programdan çıkışta sayfa içeriğini temizliyor. Kırmızı alanı aşağıdaki gibi düzeltin.

sh.Range("A2:AZ900000").ClearContents

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst