Hücre açıklaması yerine belli bir kaynaktaki veriyi gösterme.

[sdegirmenci]

Değerli Hocalarım merhaba;
Ekteki dosyam üzerinde açıkladığım gibi hücre açıklaması yerine (İlla hücre açıklaması olmayabilir,makro ile olabilir). Kaynak sayfası üzerindeki belli hücreler arasındaki veriyi resim şeklinde görebilirmiyim.

 

[hamitcan]

Eki inceleyin.

 

[sdegirmenci]

Hocam İlginize teşekkür ederim.
Bunu bir düğme altında makro ile yapmak mümkünmü? Toogle Buton gibi bir tık yapıp görüp ikinci tıkta kaybolması gibi.

 

[hamitcan]

Private Sub ToggleButton1_Click()
    If ToggleButton1 Then
        ActiveSheet.Shapes("Picture 61").Visible = False
        ToggleButton1.Caption = "Göster"
    Else
        ActiveSheet.Shapes("Picture 61").Visible = True
        ToggleButton1.Caption = "Gizle"
    End If
End Sub

 

[sdegirmenci]

Hamitcan hocam lütfen kızmayın,çünkü ben anlatamadım.Bu yazdığınız kod, örnek sayfadan çoğaltılacak belki 150 küsur sayfada kullanılan toogle buton düğmesine tıklandığında Kaynak sayfa daki veriyi fotoğraflayıp aktif olan sayfaya yapıştıracak. İkinci tıklamada kapanacak. Ben Biraz uğraştım ama başaramadım.

 

[hamitcan]

Bence bu kadar sayfaya buton eklemek, sayfanızı ağırlaştırır. En iyisi, kodu, bir tuş kobinasyonuna bağlamak.

 

[sdegirmenci]

Bütün düğmeler aynı kodu kullansada mı ağırlaşır.?

 

[hamitcan]

Önemli olan, oluşturulan şekiller ve nesneler.

 

[hamitcan]

Sub ResmiKopyala()
   Set y = Sayfa106.Shapes("Picture 61")
   y.Copy
   Sheets("Sayfa1").Select
   ActiveSheet.Paste
End Sub

Sub ResmiSil()
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
End Sub

şeklinde kullanabilirsiniz.

 

[sdegirmenci]

Kıymetli Hamitcan Hocam;
Sizi uğraştırdım. Çok teşekkür ederim. Hoşçakalaın

 

[hamitcan]

Umarım faydalı olmuştur.