Track changes

[haciyildiz]

Merhaba ; excelde track changes olayının comment olarak değilde aynı worddeki gibi eskinin üstünü çiz yanına yeniyi göster şeklinde olmasını istiyorum bu konuda macro önerisi olan var mı örnek bir tane buldum ama yapamadm

 

[Necdet]

Merhaba,

Bildiğim kadarıyla excelde açıklama olarak var, sizin bulduğunuz nedir? ekleyin hep birlikte bakalım.

 

[haciyildiz]

1. Create a new workbook.

2. From the View menu, click Macros > View Macros. In the dialog that appears, click under 'Macro name' and give your macro any name you want. Then click the 'Create' button to the right. This will open the VBA editor, a new module and a subroutine with the name you supplied. The cursor is blinking between the beginning and end of the subroutine.

3. Add the following code:

Dim xLen As Integer
Dim x, y, z, addr As String

Worksheets("History").Activate
Range("G2").Select

While ActiveCell.Value <> ""
    x = ActiveCell.Offset(0, -1).Value
    y = ActiveCell.Offset(0, 1).Value
    z = ActiveCell.Offset(0, 2).Value
    addr = ActiveCell.Value
    Worksheets(x).Activate
    Range(addr).Select
    xLen = Len(z)
    ActiveCell.Value = z & " " & y
    With ActiveCell.Characters(Start:=1, Length:=xLen).Font
        .Strikethrough = True
    End With
    Worksheets("History").Activate
    ActiveCell.Offset(1, 0).Select
Wend

4. Save your workbook as a macro-enabled spreadsheet. It will have the XLSM file extension.

5. With Book1.XLSM open, also open your workbook that has your tracked changes. Go to the Review menu > Track Changes > Highlight changes and check ‘List changes on a new sheet’ and click OK. This should create a ‘history’ sheet.

6. From the View menu click Macros (by default the last item on the ribbon) > View Macros

7. Click to highlight Book1.xlsm!<Name of your macro> and click Run