Makro ile bir hücredeki bütün yazıları büyük harfe dönüştürmek :
Sub buyharf()
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub
----------------------------------------------------------------------------------
Sub kucharf()
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub
---------------------------------------------------------------------------------Bulunduğunuz satırdan itibaren aşağı doğru 8 satır silmek için kodu Kullanabilirsiniz.
Sub Sil()
i = ActiveCell.Row
a = i + 7
Rows(i & ":" & a).Select
Selection.Delete Shift:=xlUp
Range("A" & i).Select
End Sub
---------------------------------------------------------------------------------
Sayfa seçmek için;
Sub TumSayfayiSec()
Cells.Select
End Sub
Hiç yorum yok:
Yorum Gönder