excel(2010) formül sürükleme sorunu

[sansal_faruk]

işyerimde 1000 kadar müşterim var.hesap takibi için MÜŞTERİ isminde bir klasör oluşturdum.her bir müşterime de 1 den 1000 e kadar rakam vererek 1000 excel oluşturdum.yani her bir excel bir müşterimin bilgilerini kapsıyor.farklı tek bir excelde ise bunların bilgi takiplerini kullandığım formül sayesinde almaktayım.
formülüm şudur ='G:\MÜŞTERİ\[1.xlsx]Sayfa1'!$A$2
='G:\MÜŞTERİ\[2.xlsx]Sayfa1'!$A$2
='G:\MÜŞTERİ\[3.xlsx]Sayfa1'!$A$2 gibi devam ediyor.


='G:\MÜŞTERİ\[1.xlsx]Sayfa1'!$A$2

sadece yeşil renk ile bilettiğim müşteri kodunun arttıp sürükleyerek nasıl arttırabilirim.

 

[uzmanamele]

Merhaba

Buraya bakınız.
indirect-dolaylı fonksiyonu

 

[pirsuss]

sevgili kardeşim aynı sorunları yaşıyoruz galiba.çünkü ben bunları teker teker elle nice zaman ve zahmetlerle çoğalttım.
yardımcı olan olursa ben de senin kadar sevinip teşekkür ederim kendilerine.
cevap vereceklere şimdiden teşekkür..

 

[sansal_faruk]

TŞK uzmanamele yardımların için. sizin verdiginiz örnekte hepsi tek excel sayfasında ama benim ecxel çalışma sayfalarım ayrı ayrıdır o yüzden formülü kuramadım.

 

[uzmanamele]

işyerimde 1000 kadar müşterim var.hesap takibi için MÜŞTERİ isminde bir klasör oluşturdum.her bir müşterime de 1 den 1000 e kadar rakam vererek 1000 excel oluşturdum.yani her bir excel bir müşterimin bilgilerini kapsıyor.farklı tek bir excelde ise bunların bilgi takiplerini kullandığım formül sayesinde almaktayım.
formülüm şudur ='G:\MÜŞTERİ\[1.xlsx]Sayfa1'!$A$2
='G:\MÜŞTERİ\[2.xlsx]Sayfa1'!$A$2
='G:\MÜŞTERİ\[3.xlsx]Sayfa1'!$A$2 gibi devam ediyor.


='G:\MÜŞTERİ\[1.xlsx]Sayfa1'!$A$2

sadece yeşil renk ile bilettiğim müşteri kodunun arttıp sürükleyerek nasıl arttırabilirim.

Merhaba
Fonksiyon ile formül aşağıdaki gibidir, ancak verilerin güncellenebilmesi için 1000 adet dosyanın hepsinin açık olması gerekir. Aksi halde #BAŞV! hatası verecektir.

=DOLAYLI("'D:\MÜŞTERİ\["&SATIR(A1)&".xlsx]Sayfa1'!$A$2")

En uygun yöntem formülü makro ile yazmak olacaktır.

Aşağıdaki kodu standart modüle yazarak 1 kez çalıştırın.

Sub Formulas()
Application.DisplayAlerts = False
For i = 1 To 1000
Cells(i, 1).Formula = "=" & "'[COLOR="Red"]G[/COLOR]:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$A$2"
Next
Application.DisplayAlerts = True
End Sub

Dosyalarınız hangi sürücüde ise, ilgili sürücünün adını yazınız.

 

[pirsuss]

Sayin UZMANALE (ÜSTAT) tşk.inan sansal_faruk'dan çok ben merakla takip ediyorum.ben çevremde hep excelde iyi bilinmekle (ayıptır söylemesi) övünürüm.
Ama şimdi ne kadar acemi olduğmu sizin usta yorumunuzu cevirememekle anlıyorum.
Senelerdir tüm hesaplarımı excelde yaptığım halde(ki son zamanlarda doğru mu yanlış mı bilmem normal deftere yazmayı da bıraktım.)şimdi sizin bahsettiğniz makro nun ne demek olduğunu bilmiyorum.ayrıca standat modül 2010 excelde nasıl yazılır onu da bilmiyorum.
Çok özür dilerek bu konularda yardımlarınızı bekliyorum.

 

[uzmanamele]

Merhaba

Ek winrar dosyasını D sürücüsü altına klasöre çıkarın.
Takip dosyası Sayfa1 de formül ile çözüm var.
Sayfa2 de ise makro ile çözümü deneyiniz.
Makroyu 1 kez çalıştırmanız yeterli.

Takip dosyasını açtığınızda makroları etkinleştirmeyi unutmayınız.

 

[pirsuss]

UZMANALE ÜSTAT ,
Çok teşekkürler.Gerçekten de ustasın.formülü uyguladım,çalıştı.Ama bir sorun var,atıyorum 2000 excel sayfama uygulamak istiyorum.ama bu 2000 excel sayfasının da açık olması lazım.bu ise malumunuz zor birşey.çünkü excel sayfası açık değilse veri toplama(TAKİP isimli excel sayfasına)gelmiyor.
bu konuda ne yapabiliriz.
bir de tüm hesaplarımı sadece excelde yapmanın riski varmı ?başka normal defter tutmadan.
sevgili uzman şimdiden verceğin bilgiler için teşekkürler..

 

[uzmanamele]

UZMANALE ÜSTAT ,
Çok teşekkürler.Gerçekten de ustasın.formülü uyguladım,çalıştı.Ama bir sorun var,atıyorum 2000 excel sayfama uygulamak istiyorum.ama bu 2000 excel sayfasının da açık olması lazım.bu ise malumunuz zor birşey.çünkü excel sayfası açık değilse veri toplama(TAKİP isimli excel sayfasına)gelmiyor.
bu konuda ne yapabiliriz.
bir de tüm hesaplarımı sadece excelde yapmanın riski varmı ?başka normal defter tutmadan.
sevgili uzman şimdiden verceğin bilgiler için teşekkürler..

Merhaba

Syn pirsuss, adım uzmanamele. Yazarken baskı hatası yapıyorsunuz.
2000 dosyanın açık olması gerekmiyor.
Örneğin 2.xlsx dosyasındaki veriyi değiştirin ve kapatın.
Takip dosyasını açıp verileri güncellediğinizde yaptığınız değişiklik bu dosyada görülecektir.

Dolaylı fonksiyonu ile oluşturulan formül, 2.xlsx dosyasının açık olmasını gerektirir.

 

[pirsuss]

sn.UZMANAMELE cevaplaman çok sevindirici.
Deniyorum ama tüm excel sayfaları acık değilse güncelleme yapmıyor.
dolaylı fonksiyonu ile oluşturdum.diğeri olmadı daha doğrusu beceremedim galiba.çalışmadı bile.

Sub Formulas()
Application.DisplayAlerts = False
For i = 1 To 1000
Cells(i, 1).Formula = "=" & "'G:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$A$2"
Next
Application.DisplayAlerts = True
End Sub

formülünü uygulayamadım.beceremedim nereye nasıl uyulanacağını.

bu konuda yardımlarınıza ihtiyacım var .sevgi,saygılar..

 

[uzmanamele]

sn.UZMANAMELE cevaplaman çok sevindirici.
Deniyorum ama tüm excel sayfaları acık değilse güncelleme yapmıyor.
dolaylı fonksiyonu ile oluşturdum.diğeri olmadı daha doğrusu beceremedim galiba.çalışmadı bile.

Sub Formulas()
Application.DisplayAlerts = False
For i = 1 To 1000
Cells(i, 1).Formula = "=" & "'G:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$A$2"
Next
Application.DisplayAlerts = True
End Sub

formülünü uygulayamadım.beceremedim nereye nasıl uyulanacağını.

bu konuda yardımlarınıza ihtiyacım var .sevgi,saygılar..

Merhaba

Ek winrar dosyasını D sürücüsü altına klasöre çıkarın.
Takip dosyası Sayfa1 de formül ile çözüm var.
Sayfa2 de ise makro ile çözümü deneyiniz.
Makroyu 1 kez çalıştırmanız yeterli.

Takip dosyasını açtığınızda makroları etkinleştirmeyi unutmayınız.

Merhaba
7. mesajda makronun nasıl çalıştırılacağını belirtmiştim.
Sayfa2 üzerindeki butonu tıklamanız yeterli.
Dosyayı açtığınızda, formül çubuğu üstünde güvenlik uyarısı çıkar, buradan makroyu etkinleştirin.

 

[pirsuss]

sn.UZMANAMELE

Ek de dosyamı gönderdim.3 adet excel im var.her biri bir adet müşterimin hesaplarını içeriyor.ayrıca toplam adı altındaki excelde ise bunların topamlarını içeriyor.güncelleme yapıyor.ama tüm excellerin açık olması lazım.
sizin dediğiniz şekilde yapamıyorum.
yardımcı olursanız çokk sevinirim.usta
teşekkür edip sevgi ve saygılar sunarım...

 

[pirsuss]

SN.uzmanamele mümkünse senden rica senin bahsettiğin aşağıdaki fomülü benim önceki(12.)mesajımda gönderdiğim klasöre uygulaman.

Sub Formulas()
Application.DisplayAlerts = False
For i = 1 To 1000
Cells(i, 1).Formula = "=" & "'G:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$A$2"
Next
Application.DisplayAlerts = True
End Sub

 

[uzmanamele]

Merhaba

Ek klasörde 2 adet dosya var.
Biri fonksiyon ile diğeri makro ile oluşturulmuş formül, deneyiniz.

 

[pirsuss]

slm.sevgili UZMANAMELE usta,
son uygulamanı uyguladım.sonsuz teşekkürler,oldu.güncellemeyi başarıyla yaptı.
TEŞEKKÜRLER....

 

[pirsuss]

Merhaba,sevgili UZMANAMELE.
Mümkünse bir ricam daha olacak.
TOPLAM_ excel sayfasında verileri toplam alabiliyoruz.ama 1000 den sonrası sürüklenmiyor.neden acaba?
bir de aynı sayfada bu sefer isimlerin sürüklenmesi(köprülü olacak) mümkün mı acaba?

 

[uzmanamele]

Merhaba,sevgili UZMANAMELE.
Mümkünse bir ricam daha olacak.
TOPLAM_ excel sayfasında verileri toplam alabiliyoruz.ama 1000 den sonrası sürüklenmiyor.neden acaba?
bir de aynı sayfada bu sefer isimlerin sürüklenmesi(köprülü olacak) mümkün mı acaba?

Merhaba

Mevcut formül makro ile oluşturulduğundan, sürükleme ile 1000'den sonraki dosyalara formülü uygulayamazsınız.
Kaç adet dosyanız varsa makroda 1000 yerine bu sayıyı yazınız.

Köprü ile ilgili sorunuz mevcut makroya küçük bir ilave ile hallolur.

Sub Formulas()
Application.DisplayAlerts = False
For i = 1 To 1000
Cells(i + 1, 2).Formula = "=" & "'D:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$I$2"
Cells(i + 1, 1).Formula = "=" & "'D:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$D$1"
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 1), _
    Address:="D:\MÜŞTERİ\" & i & ".xlsx", _
    SubAddress:="Sayfa1!D2"
Next
Application.DisplayAlerts = True
MsgBox "Bittim..."
End Sub

 

[pirsuss]

Sn.UZMANAMELE usta,

seni çok yordum özr. sizin bahsettiğiniz förmülü nasıl ve hangi tuşlarla makroya kaydedebilirm.
ama 2010 excel de dediğin makronun oluşum adımlarını alabilirmiyim.

ŞİMDİDEN TEŞEKKÜR....

 

[pirsuss]

Sn.UZMANAMELE,

Mümkünse bilginize ihtiyacım var.

diğer excel sorularında;2010 excel de formül sürkleme formülünde.

sizin bahsettiğiniz förmülü nasıl ve hangi tuşlarla makroya kaydedebilirm.

ama 2010 excel de dediğin makronun oluşum adımlarını alabilirmiyim.

ŞİMDİDEN TEŞEKKÜR....

 

[pirsuss]

acil destege ihtiyacım var...