hyperlink ile grafik verileri alma

[muhammed yıldız]

merhabalar..

ekli dosyada yukarıda mevcut olan tablodan aşağıdaki linklere tıkladığımda onlara ait verilerin gelmesini istiyorum. mesela cari hesaplar butonuna tıkladığımda ona ilşkin aylarda dağılmış rakamlar getirebilir miyiz?

 

[hamitcan]

Sub cari()
[f17:i17] = [e6:h6].Value
End Sub
Sub kpdg()
[f17:i17] = [e10:h10].Value
End Sub
Sub kurumsal()
[f17:i17] = [e7:h7].Value
End Sub
Sub grafikolustur()
ActiveSheet.ChartObjects(1).Activate
With ActiveChart
.SetSourceData Source:=Range("$F$16:$I$17")
.ChartType = xlColumnClustered
.PlotBy = xlColumns
.ApplyLayout (3)
End With

End Sub

 

[muhammed yıldız]

üstad teşekkür ederim ama ben anlayamadım maalese. böyle kod yazmadan olmaz mı? kod yazmayı bilmiyorum. ekte bir dosya daha gönderiyorum. bu işlemin yapıldığı.

 

[Merhum İdris SERDAR]

merhabalar..

ekli dosyada yukarıda mevcut olan tablodan aşağıdaki linklere tıkladığımda onlara ait verilerin gelmesini istiyorum. mesela cari hesaplar butonuna tıkladığımda ona ilşkin aylarda dağılmış rakamlar getirebilir miyiz?

Dosyanız ekte.

.

 

[muhammed yıldız]

tşk sayın yurttaş.. sanırım benim gönderdiğim şekilde olmuyor işlem. ellerinize sağlık

 

[Merhum İdris SERDAR]

tşk sayın yurttaş.. sanırım benim gönderdiğim şekilde olmuyor işlem. ellerinize sağlık

Bir de buna bakın.


.

 

[muhammed yıldız]

sn Yurttaş,

ekli dosyanı size gönderdiğimin aynısı. yapılış şeklini izah eden yada açıklayan herhangi birşey yok

 

[Merhum İdris SERDAR]

sn Yurttaş,

ekli dosyanı size gönderdiğimin aynısı. yapılış şeklini izah eden yada açıklayan herhangi birşey yok

Ayni demekle, ne demek istiyorsunuz? Yani hiç birşey yapılmamış mı?

Şekillere tıkladığınızda istenilen grafik gelmiyor mu?

Ben bir şey anlamadım.

.

 

[muhammed yıldız]

üstad, şekillere basıldığında geliyor evet. benim gönderdiğim dosyada bu şekilde. bana işlemin yapılışı lazım. bu dosya bir birimden geldi beğendim ve farklı raporlamalarda kullanmak istiyorum. yapılış yönteminde yardımcı olursanız sevinirim

 

[Merhum İdris SERDAR]

- 3.Nolu mesajında eklediğiniz dosyada makro kaydet ile yapılmış. Ancak bunun makroları bende çalışmadı. (Siz bunu kendiniz rahatlıkla macro kaydet ile yapmanız mümkün. Bunun üzerinde durmadım.)

- Makrosuz olmuyor mu dediniz. 4 nolu mesajımda makrosuz bir örnek ekledim.

- 5. nolu mesajınızda benimki gibi olmuyor mu dediniz? Bu kez hem formül ve hem makro kullanarak bir çözüm gönderdim.

Şimdi enson gönderdiğim çözüme açıklık getireyim:

Grafiği yana veya aşağıya çekerseniz,

F16 hücresinde: bir rakam,
G16 hücresinde: =OFFSET($B$2;$F$16;0)
H16 hücresinde: =OFFSET($B$2;$F$16;COLUMN(A1))
(bu formül yazılarak, K16 hücresine kopyalanmıştır.)

formülleri göreceksiniz.

Kutuların bağlanacağı makro için aşağıdaki kodlar yazılmıştır. Bu kodlar F16 hücresine 1,2,3,4,5,6,7 gibi rakamların getirilmesine yarar.

Sub Macro1()
    Range("f16").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B12").Select
End Sub
Sub Macro2()
    Range("f16").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B12").Select
End Sub

Sub Macro3()
    Range("f16").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("B12").Select
End Sub
Sub Macro4()
    Range("f16").Select
    ActiveCell.FormulaR1C1 = "4"
    Range("B12").Select
End Sub
Sub Macro5()
    Range("f16").Select
    ActiveCell.FormulaR1C1 = "5"
    Range("B12").Select
End Sub
Sub Macro6()
    Range("f16").Select
    ActiveCell.FormulaR1C1 = "6"
    Range("B12").Select
End Sub
Sub Macro7()
    Range("f16").Select
    ActiveCell.FormulaR1C1 = "7"
    Range("B12").Select
End Sub

Böylece her kutu seçiminde F16 hücresindeki sayı değişceğinden, formüller buna bağlı olarak grafiğe konu olan verileri getirmektedir.

Ve böylece bu veriler sayesinde de grafikler değişmektedir.


.

 

[muhammed yıldız]

üstad açıklamaların için teşekkür ederim. makro olayına pek bir merak sardım. ekte iki adet dosya bulunmakta. moduül çalışma ve yavuzselim. modül çalışma da AÇIKLAMA sayfasında sormak istediklerimi biraz açıklayarak gittim. bu şekilde daha net ifade edebilirm kendimi. yardımcı olursanız çok sevinirim

 

[assenucler]

Sayın hamitcan ve yurttas;

Değerli öğretenlerimiz, emek ve katkılarınız için kendi adıma teşekkürler.

Sevgi ve saygılar...