Değişken Hücre İçeriğine Göre Oluşturulan Köprü Üzerine Makro Çalıştırmak

[rogerios]

Merhaba;

Çalışma kitabımda, iki adet sayfa var, Home ve Data şeklinde.

Home sayfasında, C2 hücresinde açılır listeden içeriğini değiştirebiliyorum;
bu değişkene bağlı olarak da AE2 hücresinde aşağıdaki formatta bir köprüm var.

=KÖPRÜ("#"&HÜCRE("adres";İNDİS(Data!$L$2:$L$21505;KAÇINCI(C2;Data!$L$2:$L$21505;0)));"Git")

Köprü kendi başına çalışıyor, istediğim hücreye imleci götürüyor; sıkıntı yok.
Makroyu da kaydettiğim zaman çalışıyor, istediğim hücreye imleci götürüyor; yine sıkıntı yok.

Fakat, sıkıntı; bu makroyu C2 hücresinden değil de C6 hücresinden çalıştırmayı denediğimde;

C2'yi referans alarak, onun köprü bağlantısı kullanıyor.

Problemim şu, imleci;
Application.Goto Reference:="Data!R8546C12"
bu bölümü değişkene göre, AE sütunundaki aşağıya doğru sıralanan köprülere göre makroyla göndermek istiyorum.
Oraya nasıl bir şey yazmalıyım ki, makro göreli olarak çalıştığı satırdaki alakalı köprüye tıklayıp o sayfada formülle bulunan referansa gitsin.

Makro Kodu aşağıdaki gibi;

Sub UpdateSon()
'
' Update Makro
'
' Klavye Kisayolu: Ctrl+ÜstKrkt+D
'
ActiveCell.Offset(0, 28).Range("A1").Select
Application.Goto Reference:="Data!R8546C12"
ActiveWindow.SmallScroll Down:=18
ActiveCell.Offset(1, -9).Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Home").Select
ActiveCell.Offset(2, -28).Range("A1:C2").Select
End Sub

İnternette çok fazla araştırdım, fakat makro kodlarına çok hakim olmadığımdan düzeltmeyi başaramadım.
Yardımcı olabilecek birisi varsa, çok memnun olurum.
Çok teşekkürler.

 

[ÖmerFaruk]

Bu dosyanın kendisini paylaşabiilr misiniz?

 

[rogerios]

Bu dosyanın kendisini paylaşabiilr misiniz?

Merhaba Ömer Bey,
Cevap bölümünde dosya ekleme bölümünü bulamadım.

Orijinal dosya 40 MB civarında; ondan ötürü sadeleştirerek atıyorum dosyayı.

Aşağıdaki link'e ekledim dosyayı.

Download Data package from June 18th.

Free transfer of up to 6 GB of photos, videos and documents. Send large files via email or a link to share. No registration, no ads, just simple file sharing!

filetransfer.io

Ctrl+Shift+D 'ye bir makro çalıştırıyor;
C2 hücresinden çalıştırdığımda düzgün çalışıyor;
C2 - C4 - C6 vs gibi hücrelerden çalıştırdığımda ise,
ilk olarak çalıştırdığım yerin formül sonucunu kaydedip yine orayı güncelliyor;
Sıkıntım, hangi hücreden başlarsa, o satırda Köprü formulünün sonucuna göre gidip güncellemesi.

 

[ÖmerFaruk]

Bu şekilde işinizi görüyor mu?

Sub Update()
'
' Update Makro
'
' Klavye Kisayolu: Ctrl+ÜstKrkt+D
'
Dim Bak As Range
Set Bak = Sheets("Data").[L:L].Find(ActiveCell.Value)
If Not Bak Is Nothing Then
    Sheets("Data").Select
    Bak.Select
    ActiveWindow.SmallScroll Down:=18
    ActiveCell.Offset(1, -9).Range("A1").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Sheets("Home").Select

End If
End Sub

 

[rogerios]

İşimi gördü; ilginiz için çok teşekkür ederim. Muazzam.

Bu şekilde işinizi görüyor mu?

Sub Update()
'
' Update Makro
'
' Klavye Kisayolu: Ctrl+ÜstKrkt+D
'
Dim Bak As Range
Set Bak = Sheets("Data").[L:L].Find(ActiveCell.Value)
If Not Bak Is Nothing Then
    Sheets("Data").Select
    Bak.Select
    ActiveWindow.SmallScroll Down:=18
    ActiveCell.Offset(1, -9).Range("A1").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Sheets("Home").Select

End If
End Sub

 

[HEROGERONIMO]

merhaba. benim de benzer bir konuda yardıma ihtiyacım var. ekteki dosyada "ürün bulma" sayfasındaki “F” sütununda açılır listelerden seçtiğim özelliklere göre "L" sütünün da formül ile bulunan değişken bir hücre değeri çıkmaktadır. Farklı bir özellik seçtiğimde bu “L” sütunudaki rakam değişmektedir. “L” sütunundaki bu hücre değerini köprü yardımıyla "ürün takip" sayfasında “A” sütununda bulmasını istiyorum. birkaç köprü yöntemi denedim ama olmadı. rica etsem yardımcı olurmusunuz.

 

[Korhan Ayhan]

Uygun bir hücreye aşağıdaki formülü uygulayınız.

=KÖPRÜ("[KOST.xlsx]ÜRÜN TAKİP!A"&KAÇINCI(L6;'ÜRÜN TAKİP'!A:A;0);"Ürüne Git...")

 

[HEROGERONIMO]

Uygun bir hücreye aşağıdaki formülü uygulayınız.

=KÖPRÜ("[KOST.xlsx]ÜRÜN TAKİP! A"&KAÇINCI(L6;'ÜRÜN TAKİP'!A:A;0);"Ürüne Git...")

bu formülü uyguladım ancak çalışmadı. ekte gönderdiğim jpg teki gibi ikaz verdi. başka bir formül önerebilirmisiniz?
emin değilim ama "L6" hücresinde çıkan değere atadığımız köprü farklı bir sayfada olduğu için çalışmıyor olabilir mi?

 

[Korhan Ayhan]

Formülü deneyerek olumlu sonuç aldıktan sonra paylaşmıştım. Siz yazınca şimdi tekrar kontrol ettim formülde fazladan bir boşluk karakteri var. Fakat bu haliyle bile bende çalışıyor. Ben yine de bir önceki mesajımı revize ettim. Tekrar deneyiniz.

 

[HEROGERONIMO]

Formülü deneyerek olumlu sonuç aldıktan sonra paylaşmıştım. Siz yazınca şimdi tekrar kontrol ettim formülde fazladan bir boşluk karakteri var. Fakat bu haliyle bile bende çalışıyor. Ben yine de bir önceki mesajımı revize ettim. Tekrar deneyiniz.

Tekrar denedim ama olmadı. Bende az çok formül biliyorum. Ama var bi sıkıntı çözemedim. ben emeğiniz için size çok teşekkür ederim.

 

[Korhan Ayhan]

Bir de dosya adını kaldırıp deneyiniz.

=KÖPRÜ("ÜRÜN TAKİP!A"&KAÇINCI(L6;'ÜRÜN TAKİP'!A:A;0);"Ürüne Git...")

Benim sonuç aldığım dosyayı da paylaşıyorum.

 

[HEROGERONIMO]

Bir de dosya adını kaldırıp deneyiniz.

=KÖPRÜ("ÜRÜN TAKİP!A"&KAÇINCI(L6;'ÜRÜN TAKİP'!A:A;0);"Ürüne Git...")

Benim sonuç aldığım dosyayı da paylaşıyorum.

Dosya adını kaldırınca olmuyor. Sizden gelen dosyada ki formül çalışıyor. Ancak "L6" hücresindeki değer dinamik bir değer. Örneğin; bu değer 20 olunca "Ürüne git" dediğimde "ürün takip" sayfasındaki 20 nin bulunduğu yere gitmesi lazım. ancak yine 7 nin bulunduğu hücreye gidiyor.

 

[Korhan Ayhan]

Bunu deneyiniz.

=KÖPRÜ("[KOST.xlsx]'ÜRÜN TAKİP'!A"&KAÇINCI(L6;'ÜRÜN TAKİP'!A:A;0);"Ürüne Git...")