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

[keremdemir]

Ö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.

 

[Mahir64]

Merhaba,

Sayfanın kod bölümüne uygulayarak deneyiniz.

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]

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

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

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

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]

Ö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

 

[keremdemir]

Teşekkürler

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

 

[Mahir64]

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

İyi çalışmalar