Hücrelere popup şeklinde veri çağırma

[publicenemy]

Yapılabilir mi bilmiyorum. Tam olarak yapmak istediğim şey, dosyadaki bir hücrenin üzerine geldiğimizde veya tıkladığımızda diğer sayfadaki veriyi karşımıza popup ekranı olarak veya açıklama ekranı olarak çıkarması...

Örneğin eklediğim dosyada

Sayfa 1 L3 hücresine geldiğimizde sayfa 2 B2 hücresini bir şekilde ekrana getirmesi.

Umarım derdimi anlatabilmişimdir. Arama yaptım ama buna benzer bir soru göremedim.

 

[leumruk]

Merhaba,
Aşağıdaki kodu sayfa1'in kod bölümüne kopyalayın ve ilgili hücreyi seçin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [l3]) Is Nothing Then
msj = [Sayfa2!b1]
    Target.ClearComments
    Range("L3").AddComment
    Range("L3").Comment.Visible = True
    Range("L3").Comment.Text Text:="" & msj & ""
    Range("L3").Comment.Shape.Width = 170.25
    Range("L3").Comment.Shape.Height = 283.5
Else:
    [l3].ClearComments
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Sayfa1 'in kod bölümüne uygulayın.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("L3")) Is Nothing Then
        MsgBox Sheets("Sayfa2").Range("B2")
    End If
End Sub

 

[publicenemy]

Dediğinizi denedim, ilk seferinde oldu. Ancak bunu tüm dosyaya uygulamaya çalıştığımda hata verdi. Hatamı anlamak için en başa döndüğümde ise, ilk denediğim yardım dosyasında bile çalışmadı yine

 

[Korhan Ayhan]

Selamlar,

Sorunuzda tek sayfa ismi belirtmişsiniz. Fakat son mesajınızda tüm dosyadan bahsediyorsunuz. Tam olarak yapmak istediğiniz işlem nedir açıklar mısınız?

 

[publicenemy]

Selamlar,

Sorunuzda tek sayfa ismi belirtmişsiniz. Fakat son mesajınızda tüm dosyadan bahsediyorsunuz. Tam olarak yapmak istediğiniz işlem nedir açıklar mısınız?

Korhan Bey. Şu sıralar DGS de ek yerleştirmeler yapılıyor. Bende bunun için bir tercih robotu hazırlıyorum. Excel de filtreleme özelliği kullanılarak rahatlıkla anlaşılabilen bir robot oluyor bu ve tercihlerde çok işimize yarıyor. Ancak öğrenciye bilgi verirken en çok sorun yaşadığımız nokta üniversitelerin özel koşulları. Sırf bu koşullar için tekrar tekrar kılavuzu açmak zorunda kalıyor ve vakit kaybediyoruz.

Benim hazırladığım dosya 1745 satırdan oluşuyor. 3740 ayrı özel koşul var. Bu 3740 hücreyi diğer sayfadaki koşullara eşlemeye çalışıyorum. Koşul sayısı 106 ve bazı koşullar çok fazla tekrar ettiği için kolay yolunu arıyorum.

Daha net olması için 1 üniversitenin tüm bölümlerini ekledim.

 

[Korhan Ayhan]

Selamlar,

Dosyanızı eklediniz fakat ne yapmak istediğinizi net olarak açıklamamışsınız.

Siz SAYFA1 L3 hücresindeki 15 değerine karşılık gelen açıklamayımı L3 hücresini tıkladığınızda görmek istiyor sunuz?

 

[publicenemy]

Selamlar,

Dosyanızı eklediniz fakat ne yapmak istediğinizi net olarak açıklamamışsınız.

Siz SAYFA1 L3 hücresindeki 15 değerine karşılık gelen açıklamayımı L3 hücresini tıkladığınızda görmek istiyor sunuz?

Haklısınız afedersiniz.

Şimdi adı geçen üniversitenin Fizik bölümünü(3. satır) seçecek bir öğrenci için bizim 15 17 ve 28 kodlarının ne olduğunu bilmemiz lazım. bunlar sayfa 2 de numaralar ve karşılıkları şeklinde mevcut. Benim kullanmak istediğim sizin belirttiğiniz makrodaki gibi, tıkladığınızda bir uyarı ekranı gelmesi.

Bu arada leumruk adlı kullanıcıya da size de ilginiz için çok teşekkür ediyorum.

 

[Korhan Ayhan]

Selamlar,

Sayfa2 deki açıklamalar uzun olduğu için UserForm nesnesi kullanmak daha uygun olacaktır. Ekteki örnek dosyayı inceleyiniz.

E sütunundaki hücrelere tıkladıkça gerekli açıklamalar listelenecektir.

 

[publicenemy]

Öncelikle belirteyim istediğimden de güzel bir çalışma oldu bu...

Nedenini bulamadığım bir sorun var ama basit bir müdahaleyle çözülüyor. Normalde 2 görmesi gereken koşulu da 20 görüyor. Yani koşullar arasında 2 var ama tıkladığımızda 2. koşulu değil 2. koşulu yazıyor. Nedenini bulamadım ama sayfa 2 de en üste boş bir satır ekleyince düzeldi.

Anladığım kadarıyla bulamadığı koşulda o sayı ile başlayan ilk koşula gidiyor. Örneğin 1 yok koşullar arasında, biz üniversite koşuluna 1 yazarsak 1 ile başlayan ilk koşul 15 olduğu için 15 i yazıyor

Dediğim gibi tek satır boş bıraktığımda en üstte düzeldi. Size de çok çok teşekkür ediyorum. Beklediğimden de mükemmel bir çalışma oldu

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyadaki koda küçük bir ekleme yaptım. Birde bu şekilde denermisiniz.

 

[publicenemy]

Selamlar,

Üstteki mesajımdaki dosyadaki koda küçük bir ekleme yaptım. Birde bu şekilde denermisiniz.

Evet bu müdaheleyle düzeliyor... dün imkansız diye düşündüğüm bir çalışmanın çok daha sağlamı var şu an elimde

Tekrar tekrar teşekkür ediyorum

 

[tipitipim]

Merhaba Korhan Bey ve Arkadaşlar,

Bu çalışmayı inceleyince merak ettim farklı bir sheet üzerinde yer alan A3:C12 arasındaki verilere ait grafiği popup olarak göstermek mümkün mü? Hücreye tıkladığımızda veya mause ile üzerine gittiğimizde.

İyi çalışmalar.

 

[senerelmas]

b2:b20 arası veri gösterimi

aşağıdaki kod ile b2:b20 arasındaki bilgileri açıklamaya eklemek için nasıl bir düzenleme yapmam gerekiyor.yardımcı olabilirmisiniz.

Merhaba,
Aşağıdaki kodu sayfa1'in kod bölümüne kopyalayın ve ilgili hücreyi seçin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [l3]) Is Nothing Then
msj = [Sayfa2!b1]
    Target.ClearComments
    Range("L3").AddComment
    Range("L3").Comment.Visible = True
    Range("L3").Comment.Text Text:="" & msj & ""
    Range("L3").Comment.Shape.Width = 170.25
    Range("L3").Comment.Shape.Height = 283.5
Else:
    [l3].ClearComments
End If
End Sub

 

[senerelmas]

yada bir ad tanımlamasını getirsin istersem nasıl düzenleyebilirim

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod ile hücre aralığı seçip belirlediğiniz bir hücrenin açıklama bölümüne resim olarak ekletebilirsiniz.

Sub resimekle()
On Error Resume Next
Set s1 = Sheets("Sayfa2")
Selection.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
Set grafik = s1.ChartObjects.Add(Left:=s1.[a1].Left, Top:=s1.[a1].Top, Width:=genislik, Height:=yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\xresimx.gif"
grafik.Delete
s1.[a1].ClearComments
Set ekle = s1.[a1].AddComment
ekle.Text Text:=""
With ekle.Shape
.Fill.UserPicture "c:\xresimx.gif"
.Width = genislik
.Height = yukseklik
End With
Kill "c:\xresimx.gif"
MsgBox "Açıklama oluşturulmuştur"
End Sub

 

[senerelmas]

ilginiz için çok teşekkür ederim . fakat ben bu işlemi bir kaç yerde yapacam yaklaşık 50 hücrede , ve bu hücrelere istediğim hücre aralıklarındaki bilgilerin açıklama olarak gelmesini istiyorum . örneğin A1 hücresine B1:b50 arasındaki değerlerin açıklama olarak gelmesi gibi. hatta bu bilgiler aralarında virgül ile ayrılarakta gelebiliri.

Merhaba,

Aşağıdaki kod ile hücre aralığı seçip belirlediğiniz bir hücrenin açıklama bölümüne resim olarak ekletebilirsiniz.

Sub resimekle()
On Error Resume Next
Set s1 = Sheets("Sayfa2")
Selection.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
Set grafik = s1.ChartObjects.Add(Left:=s1.[a1].Left, Top:=s1.[a1].Top, Width:=genislik, Height:=yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\xresimx.gif"
grafik.Delete
s1.[a1].ClearComments
Set ekle = s1.[a1].AddComment
ekle.Text Text:=""
With ekle.Shape
.Fill.UserPicture "c:\xresimx.gif"
.Width = genislik
.Height = yukseklik
End With
Kill "c:\xresimx.gif"
MsgBox "Açıklama oluşturulmuştur"
End Sub

 

[Korhan Ayhan]

Örnek dosyanızı eklerseniz afaki cevaplar vermek zorunda kalmayız. Dosyanızı paylaşım sitelerine yükleyip link verebilirsiniz. (http://s3.dosya.tc/ gibi)