Herhangi bir hücreye tıklayınca sonsuz sağ sol - aşağı yukarı biçimlendiren işlev

[NoPasaran56]

Merhaba,
Hakediş ile alakalı veya ihale dosyaları ile alakalı excelleri incelemekteyim.
Binlerce kalem var dolayısı ile sütun ve satırlar sayılamayacak miktarda fazla.
Diyelim ki 100.satır-150.sutün daki bir bilgiye tıklıyorum. Yani hücreye tıklıyorum. Ama sağ başında ne yazıyor üst başında ne yazıyor görmem için baya bi mause hareket ettirmem gerekiyor. Bu işlemi görecek herhangi bir komut, biçimlendirme vs var mıdır ? Destek olabilirseniz sevinirim.

 

[uzmanamele]

Merhaba
Sol tarafta ve üstte sabit kalmasını istediğiniz satır ve sütunun köşe hücresini seçin.
Görünüm / Bölmeleri dondur

A sütununda poz no 1.satırda imalatın adı varsa, B2 hücresini seçip bölmeleri dondurduğunuzda;
A sütunu ve 1. satır her saman ekranda görünür olacaktır.

 

[NoPasaran56]

Merhaba
Sol tarafta ve üstte sabit kalmasını istediğiniz satır ve sütunun köşe hücresini seçin.
Görünüm / Bölmeleri dondur

A sütununda poz no 1.satırda imalatın adı varsa, B2 hücresini seçip bölmeleri dondurduğunuzda;
A sütunu ve 1. satır her saman ekranda görünür olacaktır.

Cevap için öncelikle teşekkürler. Bazı bölmeleri dondurdum tabi 100. satıra tıklıyorum diyelim ki, tıkladığım satırın solundan 50. satıra bakmam gerekiyor diyelim ki ama dondurduğum stun yada satırlar 3-4 satır yada stun olabiliyor sadece. Ben sadece bir hücreye tıkladığım zaman yukarı aşağı ve soldan sağa giden farklı bir renkte işaretleme istiyorum. Umarım anlatabilmişimdir. Saygı ile.

 

[uzmanamele]

Cevap için öncelikle teşekkürler. Bazı bölmeleri dondurdum tabi 100. satıra tıklıyorum diyelim ki, tıkladığım satırın solundan 50. satıra bakmam gerekiyor diyelim ki ama dondurduğum stun yada satırlar 3-4 satır yada stun olabiliyor sadece. Ben sadece bir hücreye tıkladığım zaman yukarı aşağı ve soldan sağa giden farklı bir renkte işaretleme istiyorum. Umarım anlatabilmişimdir. Saygı ile.

Merhaba
Bu durumda makro yazmak gerekir.
Satır sütun renklendirme vs gibi sitede arama yapınız.

 

[excelokyanus500]

Bu kodları

Private Sub Workbook_Deactivate()
Dim xArrB As Variant
Dim xFNum As Integer
Dim xStr As String
On Error Resume Next
With Application
xArrB = Array("APgizle", "MyMacro02", "SATIRLARICOZ")
For xFNum = 0 To UBound(xArrB)
xStr = xArrB(xFNum)
.CommandBars("Cell").Controls(xStr).Delete
Next xFNum
End With
On Error GoTo 0
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim cmdBtn As CommandBarButton
Dim xArrB As Variant
Dim xFNum As Integer
Dim xStr As String
On Error Resume Next
xArrB = Array("APgizle", "MyMacro02", "SATIRLARICOZ")
For xFNum = 0 To UBound(xArrB)
xStr = xArrB(xFNum)
With Application
.CommandBars("Cell").Controls(xStr).Delete
Set cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)
End With
With cmdBtn
.Caption = xStr
.Style = msoButtonCaption
.OnAction = xStr
End With
Next xFNum
On Error GoTo 0
End Sub

Geliştirici > Visula Basic>BuÇalışmaKitabı modüle yapıştırın.

Bu kodları normal bir modüle yapıştırın.

Sub APgizle()
Columns("A:P").EntireColumn.Hidden = True
End Sub
Sub SATIRLARICOZ()
Columns("A:AAZ").EntireColumn.Hidden = False
End Sub

Sayfanızda farenin sağına tıkladığınızda makroları isimleri ile göreceksiniz. Hangi işlemi yapmak isterseniz ona tıklayın. Ben rastgele yazdım. Siz kendinize göre geliştirin.