Pop-up özelliği hk.

[Cico34]

merhabalar ,

müşterilerime ait sigorta hasar verilerini excel tablosunda tutuyorum. tablo çok uzun ve her bir hücrede açıklama var hasar tarihi , ilgili kişi , cep numarası , dosya durumu vs. sitede bir kod buldum ama sadece o hücreye tıkladığımda pop-up açılıyor her bir satır için o kodu yazmak istiyorum. Kod aşağıda ki gibi sadece 27 satırın A27 hücresine tıkayınca açılıyor , ayrıca açılan pop-up da çıkan bilgilerin düzenlemesini yapma imkanımız var mı ? yardımınzı rica ederim. Görüntü ekledim umarım başarmışımdır. Görüntü altınada örnek çalışma linki koydum. amacım sigortalı ismine tıkladığımda o satırda belirlediğim bilgileri pop-up olarak açması aşağıda ki formül sadece bir hücre için her ücre için nasıl çoğaltabilirim ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = [D27]
b = [E27]
c = [G27]
d = [H27]
e = [I27]
f = [N27]
g = [O27]
h = [Q27]
i = [R27]
j = [S27]
k = [l27]

mesaj = a & " - " & b & " - " & c & " - " & d & vbCrLf _
& e & " - " & f & " - " & g & " - " & h & vbCrLf _
& i & " - " & j & " - " & k & " - " & l & vbCrLf _
& m & " - " & n & " - " & o & " - " & p

If Target.Address(0, 0) = "A27" Then MsgBox mesaj
End Sub

[/url][/IMG]

Yeni Microsoft Excel Çalışma Sayfası (2).xlsx - 13 KB

 

[Korhan Ayhan]

Dosyanızın benzerini paylaşım sitelerine yükleyik link verirseniz yardım almanız kolaylaşır. İçinde gerçek veriler olmasına gerek yok.

Ayrıca pop-up mesajın nasıl biçimlendirmek istediğinizi de belirtiniz.

 

[Cico34]

kimse yok mu yardımcı olacak :/

 

[askm]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:A100]) Is Nothing Then Exit Sub
a = Cells(Target.Row, "D")
b = Cells(Target.Row, "E")
c = Cells(Target.Row, "G")
d = Cells(Target.Row, "h")
e = Cells(Target.Row, "I")
f = Cells(Target.Row, "N")
g = Cells(Target.Row, "O")
h = Cells(Target.Row, "q")
i = Cells(Target.Row, "R")
j = Cells(Target.Row, "S")

k = Cells(Target.Row, "L")

mesaj = a & " - " & b & " - " & c & " - " & d & vbCrLf _
& e & " - " & f & " - " & g & " - " & h & vbCrLf _
& i & " - " & j & " - " & k & " - " & l & vbCrLf _
& m & " - " & n & " - " & o & " - " & p

'If Target.Address(0, 0) = Cells(Target.Row, "A") Then
MsgBox mesaj
End Sub

 

[Korhan Ayhan]

Pop-up mesajdaki bilgileri düzenlemekten kasıtınız nedir? Görsel olarak görünümünü mü değiştirmek istiyorsunuz? Yoksa listenen verileri değiştirip sayfaya güncel halini mi aktarmak istiyorsunuz?

 

[Cico34]

Pop-up mesajdaki bilgileri düzenlemekten kasıtınız nedir? Görsel olarak görünümünü mü değiştirmek istiyorsunuz? Yoksa listenen verileri değiştirip sayfaya güncel halini mi aktarmak istiyorsunuz?

Merhabalar

aslında konu başlıklarının da yazının önüne gelmesini istiyorum. Melasa sigortalı BURAK A. DOSYA NO 12345 ayrıca pop ekranında çıkan yazılara kopyala yapıştır yapamıyorum bunu yapma imkanımız var mıdır ?

A1 Hücresinin A2,A3,A+ den gelen bilgilerin önünde sabit kalmasını istiyorum. Şimdi yukarıda ki kodu deniyor olacağım umarım işe yarar şimdiden çok teşekkürler.
saygılarımla.

 

[Cico34]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:A100]) Is Nothing Then Exit Sub
a = Cells(Target.Row, "D")
b = Cells(Target.Row, "E")
c = Cells(Target.Row, "G")
d = Cells(Target.Row, "h")
e = Cells(Target.Row, "I")
f = Cells(Target.Row, "N")
g = Cells(Target.Row, "O")
h = Cells(Target.Row, "q")
i = Cells(Target.Row, "R")
j = Cells(Target.Row, "S")

k = Cells(Target.Row, "L")

mesaj = a & " - " & b & " - " & c & " - " & d & vbCrLf _
& e & " - " & f & " - " & g & " - " & h & vbCrLf _
& i & " - " & j & " - " & k & " - " & l & vbCrLf _
& m & " - " & n & " - " & o & " - " & p

'If Target.Address(0, 0) = Cells(Target.Row, "A") Then
MsgBox mesaj
End Sub

çok teşekkür ederim tam istediğim gibi acaba pop ekranında ki yazıları kopyalama imkanımız var mı ? ve hepsinin alt alta düzenli olmasını sağlamamız mümkün mü çok karışık yan yana yazılar geliyor.