Netten Güncellediğim Veri Değerini Bulmak

[1mak1mak]

Netten Güncellediğim Verilerin sıraları değişiyor hesap tutmuyor.

Sevgili arkadaşlar iyi günler,

Benim sorum Hazırladığım Excel sayfasında çeşitli Banka sitelerinden
Veri olarak çektiğim değerler var örnek olarak günlük Hazine Bono
Alış Satış Rakkamları fakat bu verileri çektiğimde veri satırlarının sırası
sürekli bankanın girişine göre değişiyor.

Benim istediğim satırdaki Değerin yerinin belirlenerek karşısındaki
mesela "Banka Alış" değerinin karşısına getirilmesi.

Örnek : Gelen verilerde "TRT030811T14" bulacak karşısındaki "Banka Alış"
değerini karşısına yazacak.
Ekteki örnekte nereye nasıl gelmesi gerektiğini yazdım.(En Altta)
Ben bu sayfadan başka sayfaya veri alarak hesaplamalarda kullanıyorum.
satırlar sürekli yer değiştirdiği için sağlıklı veri alamıyorum.

Önemli Not : Veriler çalışma günleri banka çalışma saatleri içersinde güncellenmektedir.
veriler bu saatler dışında banka sildiği için gözükmemektedir.

Yardımcı olan arkadaşa şimdiden Teşekkürler

 

[1mak1mak]

Arkadaşlar şimdi gün içinde veriler güncellenebiliyor.
ilgilenebilecek uzman bir arkadaştan yardım bekliyorum.

Teşekkürler

 

[Huseyinkis]

Arkadaşlar şimdi gün içinde veriler güncellenebiliyor.
ilgilenebilecek uzman bir arkadaştan yardım bekliyorum.

Teşekkürler

Merhaba ekteki formul dosyaya fonsiyon ekler. Eğer yada düşeyara gibi kullanabilirsiniz.

A11500 aralığından aradığınız değeri bulur ve banka alış fiyatını getirir.

Function AHK(aranan)
Set S1 = Sheets("Sayfa2")
a = S1.Range("A1:P1500").Find(What:=aranan, LookAt:=xlWhole).Row
b = S1.Range("A1:P1500").Find(What:=aranan, LookAt:=xlWhole).Column
AHK = S1.Cells(a, b + 3).Value
End Function

 

[1mak1mak]

Merhaba ekteki formul dosyaya fonsiyon ekler. Eğer yada düşeyara gibi kullanabilirsiniz.

A11500 aralığından aradığınız değeri bulur ve banka alış fiyatını getirir.

Function AHK(aranan)
Set S1 = Sheets("Sayfa2")
a = S1.Range("A1:P1500").Find(What:=aranan, LookAt:=xlWhole).Row
b = S1.Range("A1:P1500").Find(What:=aranan, LookAt:=xlWhole).Column
AHK = S1.Cells(a, b + 3).Value
End Function

Hüseyin Bey,

İlginize Teşekkürler
Bu söylediğinizi örnek dosyama uyarlayarak verebilirmisiniz acaba.
Gelen verilerde "TRT030811T14" bulacak karşısındaki "Banka Alış"
değerini karşısına yazacak şekilde yapabilirmisiniz.

Birazdan alınan veri sayfası kaybolabilir. Banka gün sonu siliyor.
Yetişmezsse yarında olabilir.

Tekrar Teşekkürler

 

[Huseyinkis]

Hüseyin Bey,

İlginize Teşekkürler
Bu söylediğinizi örnek dosyama uyarlayarak verebilirmisiniz acaba.
Gelen verilerde "TRT030811T14" bulacak karşısındaki "Banka Alış"
değerini karşısına yazacak şekilde yapabilirmisiniz.

Birazdan alınan veri sayfası kaybolabilir. Banka gün sonu siliyor.
Yetişmezsse yarında olabilir.

Tekrar Teşekkürler

Sayfa2 de 1500 satıra kadar aratma yaptığım için sayfa1 ekledim ve veriyi oraya çektim.
Eğer sayfa2 uzerinde işlem yapmak istiyorsanız 1500 satıdan sonraki hücrelerde kullanınız.

 

[1mak1mak]

Sayfa2 de 1500 satıra kadar aratma yaptığım için sayfa1 ekledim ve veriyi oraya çektim.
Eğer sayfa2 uzerinde işlem yapmak istiyorsanız 1500 satıdan sonraki hücrelerde kullanınız.

Hüseyin bey,

Bankadan güncelleme yapamadığımdan test edemedim yarın kontrol edip
size cevabı vereceğim.

ilginize Teşekkürler

 

[1mak1mak]

Sayfa2 de 1500 satıra kadar aratma yaptığım için sayfa1 ekledim ve veriyi oraya çektim.
Eğer sayfa2 uzerinde işlem yapmak istiyorsanız 1500 satıdan sonraki hücrelerde kullanınız.

Hüseyin bey,

Tekrar Rahatsız ediyorum

Yapmış olduğunuz son güncellenen veriyi gayet güzel almış.
İstediğim buydu yalnız siz bunu Makro ile yaptığınızdan ben nasıl bunu diğer aramalarımada ekleyeceğimi bilemiyorum.
Zira Makro konusunda bilgim yok.

Arattırmada 1500 satırada gerek yok esasında 680-700 arasındaki arattırma benim için yeterlidir.
Ayrıca Sonucuda 710 satırn altına 4-5 satır kullanarak yaptırmak istiyorum
1.Sayfadaki Ana Tabloma 710.Satırdan sonraki bu 4-5 satırdaki bulunan veriyi çekecem.

Bunu bana Formül olarak verme imkanınız olabilirmi ben Formülü bu 4-5 satıra uyarlarım.

Teşekkürler

 

[1mak1mak]

Sayfa2 de 1500 satıra kadar aratma yaptığım için sayfa1 ekledim ve veriyi oraya çektim.
Eğer sayfa2 uzerinde işlem yapmak istiyorsanız 1500 satıdan sonraki hücrelerde kullanınız.

Hüseyin bey,

Tekrar Rahatsız ediyorum

Yapmış olduğunuz son güncellenen veriyi gayet güzel almış.
İstediğim buydu yalnız siz bunu Makro ile yaptığınızdan ben nasıl bunu diğer aramalarımada ekleyeceğimi bilemiyorum.
Zira Makro konusunda bilgim yok.

Arattırmada 1500 satırada gerek yok esasında 680-700 arasındaki arattırma benim için yeterlidir.
Ayrıca Sonucuda 710 satırn altına 4-5 satır kullanarak yaptırmak istiyorum
1.Sayfadaki Ana Tabloma 710.Satırdan sonraki bu 4-5 satırdaki bulunan veriyi çekecem.

Bunu bana Formül olarak verme imkanınız olabilirmi ben Formülü bu 4-5 satıra uyarlarım.

Teşekkürler

Bu Şekilde Biraz Makro çalışarak yaptım herhalde doğru olmuştur.
Yarın deneyecem ama siz genede formül olarakta verilebiliyorsa verirseniz iyi olur.

Beni Makro konusunda araştırmaya ittiniz faydalıda oldu heralde.
Teşekkürler

 

[Huseyinkis]

Bu Şekilde Biraz Makro çalışarak yaptım herhalde doğru olmuştur.
Yarın deneyecem ama siz genede formül olarakta verilebiliyorsa verirseniz iyi olur.

Beni Makro konusunda araştırmaya ittiniz faydalıda oldu heralde.
Teşekkürler

evet Faydalı olmuş istemiş olduğunuzu yapmışsınız.

iyi çalışmalar.

 

[1mak1mak]

evet Faydalı olmuş istemiş olduğunuzu yapmışsınız.

iyi çalışmalar.

Evet Hallettim sağolun Teşekkürler.
Sadece dün verdiğim son dosyada makroda S1 leri anlamamıştım
ben (Sayfa 2) de çalışacağım için Bugün onlarıda S2 olarak değiştirdim halloldu.

Function AHK(aranan)
Set S2 = Sheets("Sayfa2")
a = S2.Range("A1:P700").Find(What:=aranan, LookAt:=xlWhole).Row
b = S2.Range("A1:P700").Find(What:=aranan, LookAt:=xlWhole).Column
AHK = S2.Cells(a, b + 3).Value
End Function

Tüm Yardımlarınız için çok Teşekkür ederim

 

[Huseyinkis]

"S2" Ad tanımlamadır her seferinde Sheets("Sayfa2") yazmamak için öncesinde tanımlama yapmıştım. Ad tanımlama ile kodu birazdaha kısaltmış oluyoruz.

İyi Çalışmalar

 

[1mak1mak]

"S2" Ad tanımlamadır her seferinde Sheets("Sayfa2") yazmamak için öncesinde tanımlama yapmıştım. Ad tanımlama ile kodu birazdaha kısaltmış oluyoruz.

İyi Çalışmalar

Hüseyin Hocam merhaba,
Bu konu ile ilgili problem yaşamaya başladım.
Problem şöyle excel dosyasını çalıştırdığım zaman makro çalışıyor.
Ancak zannedersem makro veri güncellemesinden önce çalıştığı için
dosyayı son kaydettiğim zamanki verileri buluyor.
Bulduğu veriler son veriler olmuyor.
Bunu çözmek için Makroyu sayfa açıkken çalıştırmayı deniyorum bir türlü başaramadım.
Sayfaya AHK Çalıştır Butonu ekledim hata verdi.
Araç Çubuğuna buton atayım dedim gene olmadı zira "Araçlar>Makro>Makrolar"
dediğimde Makro "AHK" burada gözükmüyor.
Genede Makro adı bölümüne AHK yazıp çalıştır diyorum
bu seferde "Argument not optional" uyarısı alıyorum.

Kısaca Çalıştır (Run) komutları "AHK" yı bulamıyor.

Bende Tektek Örnek : =AHK(N67) =AHK(N80) Türündeki satırlara gidip
üstteki formül satırının sonuna tıklayıp tektek "Enter" dersem son değerleri getiriyor.

Anladığım kadarıyle Tüm bu problem sıralamada Makronun Veri güncellemesinden önce çalışması.

Bunun daha basit bir çözümü varmı.
Yada Sayfa açıkken veriler alındıktan sonra "AHK" yı nasıl çalıştırabilirim.?

AHK Kodu: Hem Sayfa1 hemde Module1 de var.

Function AHK(aranan)
Set S1 = Sheets("Sayfa2")
a = S1.Range("A1750").Find(What:=aranan, LookAt:=xlWhole).Row
b = S1.Range("A1750").Find(What:=aranan, LookAt:=xlWhole).Column
AHK = S1.Cells(a, b + 3).Value
End Function

Teşekkürler

 

[Huseyinkis]

Yurttaş ve Korhan beyin verdiği formulu ekteki yere yerletirmek yeterli oluyor.


Function AHK(aranan)
Application.Volatile
Set S1 = Sheets("Sayfa2")
a = S1.Range("A1750").Find(What:=aranan, LookAt:=xlWhole).Row
b = S1.Range("A1750").Find(What:=aranan, LookAt:=xlWhole).Column
AHK = S1.Cells(a, b + 3).Value
End Function

 

[1mak1mak]

Yurttaş ve Korhan beyin verdiği formulu ekteki yere yerletirmek yeterli oluyor.


Function AHK(aranan)
Application.Volatile
Set S1 = Sheets("Sayfa2")
a = S1.Range("A1750").Find(What:=aranan, LookAt:=xlWhole).Row
b = S1.Range("A1750").Find(What:=aranan, LookAt:=xlWhole).Column
AHK = S1.Cells(a, b + 3).Value
End Function

İlgin için çok Teşekkürler

 

[1mak1mak]

Yurttaş ve Korhan beyin verdiği formulu ekteki yere yerletirmek yeterli oluyor.

Function AHK(aranan)
Application.Volatile
Set S1 = Sheets("Sayfa2")
a = S1.Range("A1750").Find(What:=aranan, LookAt:=xlWhole).Row
b = S1.Range("A1750").Find(What:=aranan, LookAt:=xlWhole).Column
AHK = S1.Cells(a, b + 3).Value
End Function

Hüseyin bey,

Kode ilavesini yaptım ancak ilk açılışta #DEĞER! boş geliyor.
Bende Örnek : =AHK(N67) Türündeki satırlara gidip üstteki formül satırının sonuna tıklayıp "Enter" dersem son değerlerin tümünü getiriyor.
Yani bu ilave Kodun tek faydası herhangi bir "AHK" Kodu olan satıra gidip Tıkladığımda hepsini birden çalıştırması oldu.
Sayfa açıkken arada çalıştırmak için Araç Çubuğuna veya sayfaya bir buton koymak istiyorum.

Bunu çözmek için Makroyu sayfa açıkken çalıştırmayı deniyorum bir türlü başaramadım.
Sayfaya AHK Çalıştır Butonu ekledim hata verdi.
Araç Çubuğuna buton atayım dedim gene olmadı zira "Araçlar>Makro>Makrolar"
dediğimde Makro "AHK" burada gözükmüyor.
Genede Makro adı bölümüne AHK yazıp çalıştır diyorum
bu seferde "Argument not optional" uyarısı alıyorum.

Çalıştır (Run) komutları "AHK" yı bulup çalıştıramıyor.

Bunun için bir çözüm varmı?

Teşekkürler

 

[Huseyinkis]

Hüseyin bey,

Kode ilavesini yaptım ancak ilk açılışta #DEĞER! boş geliyor.
Bende Örnek : =AHK(N67) Türündeki satırlara gidip üstteki formül satırının sonuna tıklayıp "Enter" dersem son değerlerin tümünü getiriyor.
Yani bu ilave Kodun tek faydası herhangi bir "AHK" Kodu olan satıra gidip Tıkladığımda hepsini birden çalıştırması oldu.
Sayfa açıkken arada çalıştırmak için Araç Çubuğuna veya sayfaya bir buton koymak istiyorum.

Bunu çözmek için Makroyu sayfa açıkken çalıştırmayı deniyorum bir türlü başaramadım.
Sayfaya AHK Çalıştır Butonu ekledim hata verdi.
Araç Çubuğuna buton atayım dedim gene olmadı zira "Araçlar>Makro>Makrolar"
dediğimde Makro "AHK" burada gözükmüyor.
Genede Makro adı bölümüne AHK yazıp çalıştır diyorum
bu seferde "Argument not optional" uyarısı alıyorum.

Çalıştır (Run) komutları "AHK" yı bulup çalıştıramıyor.

Bunun için bir çözüm varmı?

Teşekkürler

yukarıdaki işlem normal bir makro değil özellik ekleme gibi dusunun exceldeki eğer düşeyara gibi işlem bunu makro olarak çalıştıramassınız.

dosyayı açtığınızda tahminen aranan değer olmadığı için #değer hatası veriyor. siteden verileri indirdikten sonra excel hesaplama seçenekleri otomatikse direk getirmesi gerekir otomatik değilse F9 tuşuna bastığınızda gelmesi gerekiyor.

 

[1mak1mak]

yukarıdaki işlem normal bir makro değil özellik ekleme gibi dusunun exceldeki eğer düşeyara gibi işlem bunu makro olarak çalıştıramassınız.

dosyayı açtığınızda tahminen aranan değer olmadığı için #değer hatası veriyor. siteden verileri indirdikten sonra excel hesaplama seçenekleri otomatikse direk getirmesi gerekir otomatik değilse F9 tuşuna bastığınızda gelmesi gerekiyor.

F9 ile denedim çalıştırıyor ama hepsini çalıştırmıyor.
Bazılarını bırakıyor onlar hala #DEĞER! olarak gözüküyor.
Her halukarda satıra gidip üstteki formül satırının sonuna tıklayıp "Enter"
demek gerekiyor.

Acaba Makro olarak çalıştıramıyoruz bunun yerine herhangi bir AHK Satırına gidip onu çalıştırmak için birşey yapabilirmiyiz.
Bu işlemi yaptıracak bir buton veya komut falan.
Birde Excel hesaplama seçenekleri aktifse demişsiniz baktım Otomatik seçili.
Teşekkürler

 

[Huseyinkis]

F9 ile denedim çalıştırıyor ama hepsini çalıştırmıyor.
Bazılarını bırakıyor onlar hala #DEĞER! olarak gözüküyor.
Her halukarda satıra gidip üstteki formül satırının sonuna tıklayıp "Enter"
demek gerekiyor.
Acaba Makro olarak çalıştıramıyoruz bunun yerine herhangi bir AHK Satırına gidip onu çalıştırmak için birşey yapabilirmiyiz.
Bu işlemi yaptıracak bir buton veya komut falan.
Birde Excel hesaplama seçenekleri aktifse demişsiniz bunu nasıl aktif yapabiliriz.
Teşekkürler

Eğer F9 ile işlemi yapıyor veya herhangi bir tanesinin içine gelip değiştirince butun dosyadaki diğerlerini hesaplaması çok tuhaf.

makro ile cözmü zor fakat dosyanın bşr örneğini sisteme takrar yüklerseniz bir incelemek isterin benim bilgisayarda ne yaptıysam hata alamadım.

 

[1mak1mak]

Eğer F9 ile işlemi yapıyor veya herhangi bir tanesinin içine gelip değiştirince butun dosyadaki diğerlerini hesaplaması çok tuhaf.

makro ile cözmü zor fakat dosyanın bşr örneğini sisteme takrar yüklerseniz bir incelemek isterin benim bilgisayarda ne yaptıysam hata alamadım.

Şimdi F9 ile çalıştırılamayan satırların yerlerini değiştirdim.
Otomatik çalıştırmıyor ama F9 ile hepsini çalıştırdı.

Bende F9 Tuşunu Makroya atadım.

Function AHK(aranan)
Application.Volatile
Set S1 = Sheets("Sayfa2")
a = S1.Range("A1750").Find(What:=aranan, LookAt:=xlWhole).Row
b = S1.Range("A1750").Find(What:=aranan, LookAt:=xlWhole).Column
AHK = S1.Cells(a, b + 3).Value
End Function
-----------------------------------------------------------------------
Sub Güncelle()
Application.Calculation = xlCalculationAutomatic
End Sub

Daha sonra Araç Çubuğuna Makro Çalıştırma Butonu atadım.
Butona Tıkladığımda Güncellemeleri yapıyor.

Bu şekilde olayı çözmüş oldum.

Teşekkürler

 

[Huseyinkis]

Yaptığınız bu işlem

Excel / Seçenekler / Hesaplama / Otomatik

işleminin macro ile yapılması..

Application.Calculation = xlCalculationAutomatic

işin tuhafı F9 aynı şeyi yapıyor nasıl bir hata verdi tam olarak çözemedim ama sorununuzun çözülmesine sevindim.

iyi çalışmalar.