Kenar çizgilerini makro ile kadırma...

[selcuk_c]

Butona bastığımda ; F Sütununda sağ çizgiyi,G Sütununda sağ çizgiyi, J Sütunundaki sol çizgiyi , L Sütunundaki sağ ve sol çizgiyi ve N Sütunundaki sağ çizgiyi kaldıran bir makroya ihtiyacım var.

sayfadaki bu işlemlerle beraber G Sütunundaki yazıyıda küçük harfe dönüştürmek istiyorum. Ekteki örnek dosyada anlatmaya çalıştım.

Teşekkürler,

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("G5:G26").Select
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Range("J5:J26").Select
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Range("L5:L26").Select
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Range("O5:O26").Select
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Range("A1").Select
Application.ScreenUpdating = True
End Sub

 

[selcuk_c]

çok teşekkür ederim. Birde G Sütunundaki yazıyıda küçük harfe dönüştürmek istiyordum bunada yardımcı olabilirmisiniz.

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("G5:G26").Select
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Range("J5:J26").Select
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Range("L5:L26").Select
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Range("O5:O26").Select
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Range("A1").Select
        
        For x = 1 To 26
        güçcük_yaz = LCase(Replace(Replace(Cells(x, "G"), "I", "ı"), "İ", "i"))
        Cells(x, "G") = güçcük_yaz
Next

Application.ScreenUpdating = True
End Sub