Kısayol yapma

[hammo]

Arkadaşlar ekli tablonun B9 ve B10 hücrelerindeki kapatma işaretini (elle çizmek yerine) kısayol olarak yapma imkanı varmı? bilgisi olanların yardımını bekliyorum

 

[mehmett]

Dosyanıza küçük bir makro ekledim, istediğiniz böyle bir şey mi acaba?

Makroyu çalıştırmak için Ctrl+y tuşlayın.

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub Makro1()
ActiveSheet.Shapes.SelectAll
Selection.Delete
ActiveSheet.Shapes.AddLine(81.75, 213#, 329.25, 213.75).Select
Selection.ShapeRange.Flip msoFlipVertical
ActiveSheet.Shapes.AddLine(84#, 213.75, 329.25, 287.25).Select
Selection.ShapeRange.Flip msoFlipVertical
End Sub

 

[Seyit Tiken]

Alternatif :
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] > 0 Then ActiveSheet.Shapes("Group 4").Visible = 1
If [A1] = "" Then ActiveSheet.Shapes("Group 4").Visible = 0
End Sub

 

[mehmett]

Özel mesaj ile sorduğunuz soruların cevabı.

Dosyanızda değişiklik yaptım. Makroyu çalıştırdığınızda hangi hücre seçili ise o hücreye şekil çizecek.

Bu makroyu başka dosyalarda çalıştırmak için, kod sayfasından makroyu ilgili dosyaya kopyalayın. Menülerden Araçlar, Makro, Makrolar, Seçenekler tıklayın. Gelen pencerede Ctrl'nin yanındaki küçük boşluğa "y" yazın veya siz hangi harfi kullanmak isterseniz onu yazın. (Yalnız Ctrl+c, Ctrl+x, Ctrl+v gibi tuşlar excel tarafından kullanılmaktadır dikkat edin.)

Not: Lütfen sorularınızı özel mesaj ile değil buradan sorunuz.

 

[hammo]

teşekkürler

Arkadaşlar ilginize çok teşekkürler.