Excelde bir hücreye tıklandığında yanda daha büyük görebilme

Katılım
26 Mayıs 2011
Mesajlar
3
Excel Vers. ve Dili
2003 tr
Öncelikle herkese merhabalar
Sorunum şöyle bir sayfadan köprü ile başka bir sayfadaki serial number yazdığım kısma ulaşıyorum içerik uzun ve karışık olduğu için serial numberı adres çubuğunda görüyorum fakat yazı küçük ve gelen kursörü görmek zor oluyor.
istediğim, bu sayfada hangi hücreye tıklanırsa büyük boyutta yan tarafta görebilmek
hatta kursörde farklı bir renkte veya yanıp sönen birşey olursa süper olur.

Şimdiden vereceğiniz cevaplar için teşekkürler.
 

Ekli dosyalar

Son düzenleme:

Mahir64

Destek Ekibi
Destek Ekibi
Katılım
19 Nisan 2006
Mesajlar
6,682
Excel Vers. ve Dili
Excel 2013-Türkçe
Excel 2016-Türkçe
Merhaba,

Sayfanın kod bölümüne uygulayarak deneyiniz.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
[G1] = ActiveCell.Text
End If
End Sub
 

uzmanamele

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,421
Excel Vers. ve Dili
excel 2010
merhaba

sorularınızı örnek dosya ile desteklerseniz net cevaplar alabilirsiniz.

ek dosyayı inceleyiniz.
c2:c10 aralığında bir hücreyi tıklayınız
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,769
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Forumumuza hoşgeldiniz.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayınız.

Kod:
Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("C2:C" & Rows.Count)) Is Nothing Then Exit Sub
    Range("G4") = ""
    If Target <> "" Then Range("G4") = Target
End Sub
 

1Al2Ver

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,720
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Altın Üyelik Bitiş Tarihi
04-01-2026
Öncelikle herkese merhabalar
Sorunum şöyle bir sayfadan köprü ile başka bir sayfadaki serial number yazdığım kısma ulaşıyorum içerik uzun ve karışık olduğu için serial numberı adres çubuğunda görüyorum fakat yazı küçük ve gelen kursörü görmek zor oluyor.
istediğim, bu sayfada hangi hücreye tıklanırsa büyük boyutta yan tarafta görebilmek
hatta kursörde farklı bir renkte veya yanıp sönen birşey olursa süper olur.

Şimdiden vereceğiniz cevaplar için teşekkürler.
Merhaba,

İşiniz görür mü bilemiyorum ama şöyle bir çözüm var (Hücreye tıklayınca çalışır)

Verinin bulunduğu sayfanın kod bölümüne, aşağıdaki kodu kopyalayın,

Not ; Kırmızı yazan yerdeki sayıyı çoğaltabilisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
With [C2:C20]
Cells.Interior.ColorIndex = xlNone
Cells.Font.Size = 10
Cells.Font.ColorIndex = 0
Cells.Font.Italic = False
End With
If Intersect(Target, [C2:C20]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
If Not IsEmpty(Target) Then
Target.Interior.ColorIndex = 8
Target.Font.Size = 16
Target.Font.ColorIndex = 3
Target.Font.Italic = True
End If
Son:
Application.ScreenUpdating = True
End Sub
 
Katılım
26 Mayıs 2011
Mesajlar
3
Excel Vers. ve Dili
2003 tr
Teşekkürler

Herkese ilgisinden dolayı çok ama çok teşekkür ederim.
herbiri işime ayrı ayrı yaradı. saolun varolun.
 
Üst