Makronun script karşılığı nasıl olmalı?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub Duzelt_AB()
    Son = Cells(Rows.Count, "A").End(3).Row
    Range("D1:E" & Son).ClearContents
    Range("A1:B" & Son).Select
    Range("A1:B" & Son).Sort Range("A1"), 1
    
    Range("A1:A" & Son).Select
    Selection.Copy
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B1:B" & Son).Select
    Selection.Copy
    Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D1:E" & Son).Select
    Range("D1:E" & Son).Sort Range("D1"), 1
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Dosyada hazırladığım çalışmayı Google E-tablo da devam ettirmek istiyorum. Bunun için kullandığım makronun script karşılığı nasıl olmalıdır?
Saygılarımla

 

[pitchoute]

Merhaba, bu şekilde deneyip sonucu paylaşabilir misiniz;

function Duzelt_AB() {
  var sheet = SpreadsheetApp.getActiveSheet();
  var lastCell = sheet.getRange("A" + sheet.getMaxRows()).getNextDataCell(SpreadsheetApp.Direction.UP);
  var lastRow = lastCell.getRow();

  if (lastRow < 1) {
    return;
  }

  sheet.getRange("D1:E" + lastRow).clearContent();
  sheet.getRange("A1:B" + lastRow).sort({column: 1, ascending: true});
  sheet.getRange("E1:E" + lastRow).setValues(sheet.getRange("A1:A" + lastRow).getValues());
  sheet.getRange("D1:D" + lastRow).setValues(sheet.getRange("B1:B" + lastRow).getValues());
  sheet.getRange("D1:E" + lastRow).sort({column: 4, ascending: true});
  sheet.setActiveSelection("A1");
}

 

[Tevfik_Kursun]

Sayın Pitchoute,
İlginize çok teşekkür ederim.
Saygılarımla

 

[pitchoute]

Saygılar bizden, iyi çalışmalar