Butona makro ile farklı sekmeden açılır listeden veri seçtirme

[ahmetmis]

Birçok sekmenin olduğu bir Excel dosyam var. Benim istediğim şey "Ana Sayfa" sekmesinde bulunan ilçe butonuna tıkladığım zaman "Bilgiler" sekmesinden bulunan açılır listeden buton üzerinde yazan ilçenin aktif olmasını istiyorum. Yapmak istediğim şeyi Ek' de dosyada anlatmaya çalıştım. Şimdiden teşekkür ederim.

 

[YUSUF44]

Örneğin Afşin yazan düğmeye aşağıdaki makroyu atarsanız istediğiniz olacaktır. Her ilçe için bu şekilde ayrı makro düzenlemeniz ve düğmeye atamanız gerek:

Sub afsin()
Sheets("Bilgiler").[A1] = "Afşin"
End Sub

 

[Haluk]

Dosyaya bir modül ekleyin ve aşağıdaki kodu yapıştırın.

Sub Test()
    Sheets("Bilgiler").Range("A1") = Sheets("Ana Sayfa").Shapes(Application.Caller).TextFrame.Characters.Text
    Sheets("Bilgiler").Select
End Sub

Daha sonra, "Ana Sayfa" isimli sayfadaki butonların herbirine yukarıdaki "Test" isimli makroyu atayın.

Artık, bu butonlardan herhangibirine tıkladığınızda istediğiniz olacaktır...

Örnek dosya ektedir.

.

 

[ahmetmis]

Örneğin Afşin yazan düğmeye aşağıdaki makroyu atarsanız istediğiniz olacaktır. Her ilçe için bu şekilde ayrı makro düzenlemeniz ve düğmeye atamanız gerek:

Sub afsin()
Sheets("Bilgiler").[A1] = "Afşin"
End Sub

Merhabalar. Söylediğiniz gibi Afşin butonuna makroyu yazdım ama çalışmadı.

 

[Haluk]

Butonların hepsine ayrı ayrı makro yazmaya gerek yok. Yukarıda 3 No'lu mesajımı ve ekindeki dosyayı inceleyin...

.

 

[ahmetmis]

Dosyaya bir modül ekleyin ve aşağıdaki kodu yapıştırın.

Sub Test()
    Sheets("Bilgiler").Range("A1") = Sheets("Ana Sayfa").Shapes(Application.Caller).TextFrame.Characters.Text
    Sheets("Bilgiler").Select
End Sub

Daha sonra, "Ana Sayfa" isimli sayfadaki butonların herbirine yukarıdaki "Test" isimli makroyu atayın.

Artık, bu butonlardan herhangibirine tıkladığınızda istediğiniz olacaktır...

Örnek dosya ektedir.

.

Çok Teşekkür Ederim...

Buton üzerindeki yazı ile A1 hücresindeki yazıyı eşleştiriyor sanırım.

Buton üzerindeki yazı yerine örneğin A1 hücresini "Afşin" yap diyebilir miyim? Çünkü butonlarım ekte yolladığım gibi fotoğraf şeklinde.

 

[Haluk]

Ben sorduğunuz soruya cevap yazdım....

Sizin istediğiniz de olur ama, dosyayı fotoğraf boyutlarıyla şişirmeye gerek yok. Bu şekilde kullanmanız daha hayırlı olur sizin için....

.

 

[YUSUF44]

Merhabalar. Söylediğiniz gibi Afşin butonuna makroyu yazdım ama çalışmadı.

Örnek dosyanızda güzel bir şekilde çalışıyor zaten. Yani Afşin yazılı düğmeye bastığınızda Bilgiler sayfasındaki A1 hücresi Afşin oluyor. Başka nasıl bir çalışma istiyorsunuz anlamadım.

 

[Haluk]

Örnek olarak 6. mesajınız ekindeki Buton fotoğrafını ekli dosyada diğer mesajımdaki yönteme alternatif olarak kullandım.

Diğer butonları da benzer şekilde ayarladıktan sonra isteğiniz gerçekleşir....

.

 

[Haluk]

3 No'lu mesajımdaki kod ve sizin 6 No'lu mesajınız ekindeki fotoğraf kullanılarak yapılan bir başka alternatif de ektedir....

.

 

[ahmetmis]

Örnek dosyanızda güzel bir şekilde çalışıyor zaten. Yani Afşin yazılı düğmeye bastığınızda Bilgiler sayfasındaki A1 hücresi Afşin oluyor. Başka nasıl bir çalışma istiyorsunuz anlamadım.

Acaba yanlış mı gördüm diye tekrar aç kapa falan yaptım yine çalışmadı. Farklı bir bilgisayarda yeniden deneyeceğim. Teşekkür ederim.

 

[YUSUF44]

Muhtemelen burda istediğinizden farklı bir sonuç bekliyorsunuz, kodda bir sıkıntı yok.

 

[ahmetmis]

3 No'lu mesajımdaki kod ve sizin 6 No'lu mesajınız ekindeki fotoğraf kullanılarak yapılan bir başka alternatif de ektedir....

.

Yolladığınız dosyadaki gibi buton oluşturunca çok güzel çalıştı, ama resim butona ekleyince hücreye Resim10 gibi yazılar geldi.

 

[ahmetmis]

Muhtemelen burda istediğinizden farklı bir sonuç bekliyorsunuz, kodda bir sıkıntı yok.

hayır, link hiç açılmıyor. üzerine tıklıyorum ama bilgiler sekmesine bile geçmiyor, aynı sayfada kalıyor.

 

[YUSUF44]

Siz bilgiler sekmesine geçilmesine dair ya da başka bi istekte bulunmadınız ki? Sadece Bilgiler sayfasının A1 hücresinde o ilçenin adı yazılsın istediniz. Kod da o işi yapıyor zaten.

 

[ahmetmis]

3 No'lu mesajımdaki kod ve sizin 6 No'lu mesajınız ekindeki fotoğraf kullanılarak yapılan bir başka alternatif de ektedir....

.

Application.Caller yerine tırnak içinde ilçe ismini yazıp butona makro atayınca çalıştı. çok teşekkür ederim

 

[Haluk]

Application.Caller yerine tırnak içinde ilçe ismini yazıp butona makro atayınca çalıştı. çok teşekkür ederim

O zaman Excel VBA kullanmanıza gerek yok, daktilo bu iş için yeter....

Benim önerdiğim yöntemle; sadece bir adet makro yazıp, bunu bütün butonlara bağlamak yeterli. Sizin dediğiniz gibi olursa; her buton için ayrı makro yazmanız gerekir.

.