Quisiera hacer una macro que me cortase una celda diagonal cuando en una celda determinada ponga astm_din  y ponga 50 en una parte del corte como en el ejemplo,como lo puedo conseguir

ejemplo1.xlsx

Pon esta macro en la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If LCase(Target) = "astm_din" Then
    Application.EnableEvents = False
    Target.Offset(0, 1).Select
    With ActiveCell
        .Value = 50
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .Borders(xlDiagonalDown).LineStyle = xlContinuous
    End With
End If
Application.EnableEvents = True
End Sub

 

OK Funciona muchas gracias

Tema Solucionado