çalışma sayfasında düzenleme

[igultekin2000]

iyi akşamlar, döküm alıp üzerinde süzme işlemleri yaptığım çalışma sayfasını sadeleştirmem gerekiyor. bunu makro ile pratikleştirmek istiyorum. Makro bilgim yeterli değil.

 

[cems]

Modül içine :

Sub temizle()

    Cells.Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
    Range("B46:H55").Select
    Selection.Delete Shift:=xlUp
    
    Range("B46:H46").Select
    Selection.Delete Shift:=xlUp
   
    Range("B80:H80").Select
    Selection.Delete Shift:=xlUp
 
    Range("B2").Select
  '
    Sheets("Sayfa1").Select
    MsgBox "Düzeltmeler yapıldı ve sayfa düzeltmeleri kaydedildi"
    ActiveWorkbook.Save
End Sub

Aktarın , sayfa üzerine bir tuş yerleştirin ve üstünde çift tıklayarak vba kısmını açın

private sub commandbutton1()
call temizle
end sub

Yazın ve save edin. Dosya ektedir.

Dikkat etmeniz gereken , bu işlemi ikinci kez yaparsanız bilgiler slinecektir. Kodlar "makro kaydet " yolu ile elde edilmiştir , bunu ya da daha farklısını siz de istediğiniz gibi deneyerek yapabilirsiniz. Konu makroya döndüğünde dosyayı en başta farklı kaydet + makro çalıştırılabilir seçeneği ile yeniden kaydetmeniz gerekir.

 

[igultekin2000]

sonuç tamam

Teşekkürler, işimi gördü. iyi çalışmalar