İsimler Büyüsün

[beykatip]

Sevgili arkadaşlar malumunuz aranıza yeni katılıp konuyu ben başlatmıştım ancak soru sayfasının -Kontrol Paneli Yeni Mesajlar Arama Hızlı Linkler Çıkış Yap- bölümündeki menuleri kurcalarken hangisinden oldu ise konu kilitlendi onun için konuyu ben yeniden tekrar iki adet sorumla açmak istiyorum. Birinci sorum böyle konu kilitlenme olayında kilidi açabirimiyiz evet ise nasıl açılır.İkinci sorum ise ekteki dosyama isimlerin yanına tc numarası yazdım aynı isimlerde olduğu gibi tc ye tıkladığımda tc de büyüsün istiyorum saygılarımla dosyam ektedir

 

[halit3]

Böyle denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
Range("B1:c" & sat).Font.Size = 10
If Target.Column = 2 Then Target.Font.Size = 18: Cells(Target.Row, 3).Font.Size = 18
If Target.Column = 3 Then Target.Font.Size = 18: Cells(Target.Row, 2).Font.Size = 18
End Sub

 

[Necdet]

Merhaba,

2. seçeneği ben yine yineleyeceğim , her ne kadar yorum gelmesede

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    ActiveSheet.Shapes("Resim").Visible = False
    
    If Intersect(Target, [B:C]) Is Nothing Then Exit Sub
    
    With ActiveSheet.Shapes("Resim")
        .Visible = True
        .Select
            Selection.Formula = Range("B" & Target.Row & ":C" & Target.Row).Address
        .Top = Target.Offset(3, 0).Top
        .Left = Target.Offset(0, 0).Left
    End With
    
End Sub

 

[beykatip]

Halit3 bey ilgilenip cevap verdiğiniz için teşekkürler,Necdet bey sizede cevap verdiğiniz için çok teşekkür ederim Necdet bey cevabınız ve kodlar çok mükemmel birde resim üzerine çok nefis olmuş bundan iyisi olmaz teşekkürler

 

[beykatip]

Necdet bey yazıların enden veya boydan biraz küçültmesi için ne yapmak gerekir

 

[Necdet]

Necdet bey yazıların enden veya boydan biraz küçültmesi için ne yapmak gerekir

Merhaba,

Resim belirlendikten sonra Sağ Tık yapıp biçimlendirebilirsiniz.