Excel vba kodunu google_scripte çevirme

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub Gotur_Yaz()
    Range("H1").Select
    Selection.Copy
    Range([M1].Text).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D5").Select
    Application.CutCopyMode = False
    Range([M2].Text).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 9960867
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range([M3].Text).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 13408767
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Exceldeki VBA kodu ile yaptığım işi GoogleScript ile yapabilmem için yardımcı olur musunuz, lütfen?
Saygılarımla

 

[Trilenium]

Convert VBA macros to Apps Script | Google for Developers

developers.google.com

 

[Tevfik_Kursun]

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

 

[Haluk]

Bence, aynı işlemi Google Sheets'de manuel olarak yaparken tıpkı MS Excel'de olduğu gibi "Makro Kaydet" yöntemini kullanın.

Ortaya çıkan script işinize yarayacaktır, olmazsa elini yüzünü biraz düzeltirsiniz...

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Dediklerinizi aynen yaptım ama, bir türlü başarılı olamadım. Bir okul için pandemi öncesi hazırladığım notları da bulamıyorum. O nedenle bu soruyu sordum.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Haluk Hocam,

function Gotur_Yaz() {
  var spreadsheet = SpreadsheetApp.getActive();
  spreadsheet.getRange('H1').activate();
  spreadsheet.getRange('H1').copyTo(spreadsheet.getRange("M1"),
  SpreadsheetApp.CopyPasteType.PASTE_VALUES, true);
  spreadsheet.getRange('D5').activate();
};

Bu haliyle H1 de yazılı olanları M1 e kopyalıyor. Ben M1 de yazılı hücreye kopyalamasını istiyorum. M2 de yazılı hücreyi boyayamadım.
Saygılarımla

 

[Haluk]

İlgili satırı aşağıdakiyle değiştirip, deneyin...

spreadsheet.getRange('H1').copyTo(spreadsheet.getRange(spreadsheet.getRange("M1").getValue()));

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Resimdeki hata geldi
Saygılarımla

 

[Haluk]

Mesajin Türkçe meâli; "7. satırın sonunda fazladan bir ")" karakteri var" diyor...

.

 

[Haluk]

"M2" hücresinde yazılan hücre adresinin seçilerek boyanıp, bordür eklenmesi kısmı da aşağıdaki gibi olabilir;

  spreadsheet.getRange(spreadsheet.getRange("M2").getValue()).activate();
  spreadsheet.getActiveRangeList().setBackground('#00ff00')
  .setBorder(true, true, true, true, true, true, '#000000', SpreadsheetApp.BorderStyle.SOLID);

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
İlginize çok teşekkür ederim. Özür diliyorum ama resimdeki hata geldi. 10. mesajınızı deneyeceğim
Saygılarımla

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
İlginize çok teşekkür ederim. Çok özür diliyorum ama 10. mesajı denedim, ilk görevi tamamlıyor ikincide resimdeki hatayı veriyor. Farklı bir şey yapmadım diye düşünüyorum.
Saygılarımla

 

[Haluk]

Bende çalışan şekliyle tamamı şöyle;

function Gotur_Yaz() {
  var spreadsheet = SpreadsheetApp.getActive();
  spreadsheet.getRange('H1').copyTo(spreadsheet.getRange(spreadsheet.getRange("M1").getValue()));
  SpreadsheetApp.CopyPasteType.PASTE_VALUES, true;
  spreadsheet.getRange(spreadsheet.getRange("M2").getValue()).activate();
  spreadsheet.getActiveRangeList().setBackground('#00ff00')
  .setBorder(true, true, true, true, true, true, '#000000', SpreadsheetApp.BorderStyle.SOLID);

  spreadsheet.getRange('D5').activate();
};

Şimdi gidip, bulaşıkları yıkamam lazım ..... sonra bir ara bakarım buraya.

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
İlginize çok teşekkür ederim. H1 hücresinde olan

="A"&METNEÇEVİR(D5;"00000")&";"&E5&";"&F5

Bu haliyle istenilen yere geliyor ama metin olarak değil fonksiyon olarak. Uygun olduğunuzda cevap verirseniz makbule geçer.
Saygılarımla

 

[Haluk]

Son olarak bir de şunu deneyin...;

function Gotur_Yaz() {
  var spreadsheet = SpreadsheetApp.getActive();
  spreadsheet.getRange('H1').copyTo(spreadsheet.getRange(spreadsheet.getRange("M1").getValue()),
  SpreadsheetApp.CopyPasteType.PASTE_VALUES, true);
  spreadsheet.getRange(spreadsheet.getRange("M2").getValue()).activate();
  spreadsheet.getActiveRangeList().setBackground('#00ff00')
  .setBorder(true, true, true, true, true, true, '#000000', SpreadsheetApp.BorderStyle.SOLID);

  spreadsheet.getRange('D5').activate();
};

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
İlginize çok teşekkür ederim. Yordum sizi.
Saygılarımla

 

[Haluk]

Problem çözüldü mü yani?

.

 

[Tevfik_Kursun]

Evet Haluk Hocam, sanırım o satır alt satırı da etkiledi parantez eksilmiş ve virgül olmuş sonu
Tekrar teşekkür ederim
Saygılarımla