DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
bir alt satırı seçip
Görünüm > Bölmeleri Dondur
[B]Sub KOD()[/B]
On Error Resume Next
ActiveWindow.FreezePanes = False
satır = Selection.Row + 1
Rows(satır).Select
ActiveWindow.FreezePanes = True
End Sub
[B]Sub İPTAL()[/B]
On Error Resume Next
ActiveWindow.FreezePanes = False
End Sub
. . .
Makro ile yapmak isterseniz.
İlgili satırı seçip, kodları çalıştırın.
Kod:[B]Sub KOD()[/B] On Error Resume Next ActiveWindow.FreezePanes = False satır = Selection.Row + 1 Rows(satır).Select ActiveWindow.FreezePanes = True End Sub [B]Sub İPTAL()[/B] On Error Resume Next ActiveWindow.FreezePanes = False End Sub
. . .