Excel vba yı google script e çevirme

[uurluyum]

merhaba,

Aşağıda yazılı olan kodu google e tablolar a göre nasıl ayarlayabilirim.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

Set KeyCells = Range("L4:L34")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

Call siralama

End If
End Sub


Aslında istediğim şey belirli bir sütundaki tarihleri o sayfaya bir değer girdiğim anda otomatik olarak küçükten büyüğe doğru sıralatmak.

 

[Haluk]

L4:L... alanını tarih olarak biçimlendirdikten sonra;

Not: Sayfa adı eğer Sheet1 değilse, aşağıdaki script içerisinde değiştirirsiniz...

function onEdit(e) {
  var sheet = SpreadsheetApp.getActiveSheet();
  var range = sheet.getRange("L4:L");
  var xCol = sheet.getActiveRange().getColumn();

  if ( xCol == 12 && sheet.getName() =='Sheet1' ) {
    range.sort({column: 12, ascending: true});
    }
}

.

 

[tamer42]

L4:L... alanını tarih olarak biçimlendirdikten sonra;

Not: Sayfa adı eğer Sheet1 değilse, aşağıdaki script içerisinde değiştirirsiniz...

function onEdit(e) {
  var sheet = SpreadsheetApp.getActiveSheet();
  var range = sheet.getRange("L4:L");
  var xCol = sheet.getActiveRange().getColumn();

  if ( xCol == 12 && sheet.getName() =='Sheet1' ) {
    range.sort({column: 12, ascending: true});
    }
}

.

Haluk Hocam,
MS Excel' de sayfa1' deki veriyi sayfa2 ye aktarmak için aşağıdaki kodu kullanıyoruz
google e-tabloda bu işlemin aynısını yapmak için kodu nasıl düzenleyebiliriz?

ilgi ve desteğiniz için şimdiden teşekkürler,
iyi çalışmalar.

Sub VeriAktar()
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim LR As Long, x As Long

Set WS1 = Sheets("Sayfa1")
Set WS2 = Sheets("Sayfa2")

LR = WS2.Cells(WS2.Rows.Count, "A").End(xlUp).Row

x = LR + 1

WS2.Range("A" & x) = WS1.Range("A12")
WS2.Range("B" & x) = WS1.Range("B12")
WS2.Range("C" & x) = WS1.Range("C12")
WS2.Range("D" & x) = WS1.Range("D12")

End Sub

 

[Haluk]

function Test() {
  var sourceSheet = SpreadsheetApp.getActive().getSheetByName('Sheet1');
  var targetSheet = SpreadsheetApp.getActive().getSheetByName('Sheet2');
  const arrData   = targetSheet.getRange('A:A').getValues();
 
  var lastA = arrData.map(x => x[0]).indexOf('') + 1;
  var myRng = targetSheet.getRange('A'+ lastA + ':D' + lastA);
 
  var data =[];
  data     = sourceSheet.getRange('A12:D12').getValues();
  myRng.setValues(data);
}

.

 

[tamer42]

function Test() {
  var sourceSheet = SpreadsheetApp.getActive().getSheetByName('Sheet1');
  var targetSheet = SpreadsheetApp.getActive().getSheetByName('Sheet2');
  const arrData   = targetSheet.getRange('A:A').getValues();

  var lastA = arrData.map(x => x[0]).indexOf('') + 1;
  var myRng = targetSheet.getRange('A'+ lastA + ':D' + lastA);

  var data =[];
  data     = sourceSheet.getRange('A12:D12').getValues();
  myRng.setValues(data);
}

.

Haluk Hocam çok teşekkürler, iyi ki varsınız!

google script' te for ... next döngüsü Microsoft ile benzer midir?

Örnek: Sayfa1' de 2 . satırdan başlayarak 12. satıra kadar sayfa2' ye aktarma işlemini nasıl yapabiliriz?

for i=2 to 12
   WS2.Range("A" & x+ i- 2) = WS1.Range("A"& i)
   WS2.Range("B" & x+ i- 2) = WS1.Range("B"& i)
   WS2.Range("C" & x+ i- 2) = WS1.Range("C" & i)
   WS2.Range("D" & x+ i- 2) = WS1.Range("D" & i)
Next i

iyi Akşamlar.

 

[Haluk]

Sonuçta her programlama dilinde döngüler kullanılır, yapıları biraz farklı gibi de olsa mantık aynıdır.

Google Script'te döngüler için aşağıdaki linke bakabilirsiniz;

Loops in Apps Script (spreadsheet.dev)

Ama, sayfadan veri okurken veya yazarken döngü kullanılması script'in yavaş çalışmasına neden olur..... bu her programlama dilinde böyledir. Bu nedenle, bu işler için mümkün mertebe dizilerden faydalanmak gerekir.

Bahsettiğiniz durum için dizi kullanarak,benim önerim;

function Test() {
  var sourceSheet = SpreadsheetApp.getActive().getSheetByName('Sheet1');
  var targetSheet = SpreadsheetApp.getActive().getSheetByName('Sheet2');

  const arrData   = targetSheet.getRange('A:A').getValues();
 
  var lastA = arrData.map(x => x[0]).indexOf('') + 1;

  var myRng = targetSheet.getRange('A'+ lastA + ':D' + (lastA + 10));
 
  var data =[];
  data     = sourceSheet.getRange('A12:D22').getValues();

  myRng.setValues(data);
}

.

 

[tamer42]

Sonuçta her programlama dilinde döngüler kullanılır, yapıları biraz farklı gibi de olsa mantık aynıdır.

Google Script'te döngüler için aşağıdaki linke bakabilirsiniz;

Loops in Apps Script (spreadsheet.dev)

Ama, sayfadan veri okurken veya yazarken döngü kullanılması script'in yavaş çalışmasına neden olur..... bu her programlama dilinde böyledir. Bu nedenle, bu işler için mümkün mertebe dizilerden faydalanmak gerekir.

Bahsettiğiniz durum için dizi kullanarak,benim önerim;

function Test() {
  var sourceSheet = SpreadsheetApp.getActive().getSheetByName('Sheet1');
  var targetSheet = SpreadsheetApp.getActive().getSheetByName('Sheet2');

  const arrData   = targetSheet.getRange('A:A').getValues();

  var lastA = arrData.map(x => x[0]).indexOf('') + 1;

  var myRng = targetSheet.getRange('A'+ lastA + ':D' + (lastA + 10));

  var data =[];
  data     = sourceSheet.getRange('A12:D22').getValues();

  myRng.setValues(data);
}

.

Haluk Hocam Sayfa1' deki satır sayısını dinamik hale getirmek için F1 hücresine değeri yazdım
koduda aşağıdaki gibi düzenledim, yalnız;

Exception: Verilerdeki satır sayısı, aralıktaki satır sayısıyla eşleşmiyor.

şeklinde hata mesajı alıyorum, kodda hata nerededir?

function Test() {
  var sourceSheet = SpreadsheetApp.getActive().getSheetByName('Sayfa1');
  var targetSheet = SpreadsheetApp.getActive().getSheetByName('Sayfa2');
    var lastA=[]
     lastA = sourceSheet.getRange('F1').getValues();
 
  const arrData   = targetSheet.getRange('A:A').getValues();

  var lastB = arrData.map(x => x[0]).indexOf('') + 1;

  var myRng = targetSheet.getRange('A'+ lastB + ':D' + (lastB + lastA) );
  var data =[];
  data     = sourceSheet.getRange('A12:D' + (12 + lastA)).getValues();
  myRng.setValues(data);
}

her şey için tekrar teşekkürler,

 

[Haluk]

function Test3() {
  var sourceSheet = SpreadsheetApp.getActive().getSheetByName('Sheet1');
  var targetSheet = SpreadsheetApp.getActive().getSheetByName('Sheet2');

  var size        = sourceSheet.getRange('F1').getValue();

  const arrData   = targetSheet.getRange('A:A').getValues();
 
  var lastA = arrData.map(x => x[0]).indexOf('') + 1;

  var myRng = targetSheet.getRange('A'+ lastA + ':D' + (lastA + size));
 
  var data =[];
  data     = sourceSheet.getRange('A12:D' + (12 + size)).getValues();

  myRng.setValues(data);
}

.

 

[tamer42]

function Test3() {
  var sourceSheet = SpreadsheetApp.getActive().getSheetByName('Sheet1');
  var targetSheet = SpreadsheetApp.getActive().getSheetByName('Sheet2');

  var size        = sourceSheet.getRange('F1').getValue();

  const arrData   = targetSheet.getRange('A:A').getValues();

  var lastA = arrData.map(x => x[0]).indexOf('') + 1;

  var myRng = targetSheet.getRange('A'+ lastA + ':D' + (lastA + size));

  var data =[];
  data     = sourceSheet.getRange('A12:D' + (12 + size)).getValues();

  myRng.setValues(data);
}

.

Haluk Hocam tekrar merhaba,
fazla olduğumunun farkındayım ama;
bir değeri ('123') çoklu hücre bloğunun tüm hücrelerine yazdırmak için nasıl bir düzenleme yazılabilir?

   var myRng = targetSheet.getRange('A'+ 10 + ':D' + (10 + size));
   myRng.setValues('123');

ilgi ve alakanız için tekrar teşekkürler,

 

[Haluk]

myRng.setValue(123);

.

 

[tamer42]

Haluk Hocam Sayfa1' deki satır sayısını dinamik hale getirmek için F1 hücresine değeri yazdım
koduda aşağıdaki gibi düzenledim, yalnız;

Exception: Verilerdeki satır sayısı, aralıktaki satır sayısıyla eşleşmiyor.

şeklinde hata mesajı alıyorum, kodda hata nerededir?

function Test() {
  var sourceSheet = SpreadsheetApp.getActive().getSheetByName('Sayfa1');
  var targetSheet = SpreadsheetApp.getActive().getSheetByName('Sayfa2');
    var lastA=[]
     lastA = sourceSheet.getRange('F1').getValues();

  const arrData   = targetSheet.getRange('A:A').getValues();

  var lastB = arrData.map(x => x[0]).indexOf('') + 1;

  var myRng = targetSheet.getRange('A'+ lastB + ':D' + (lastB + lastA) );
  var data =[];
  data     = sourceSheet.getRange('A12:D' + (12 + lastA)).getValues();
  myRng.setValues(data);
}

her şey için tekrar teşekkürler,

Haluk Hocam sağolun, varolun;
müsaadelerixle şöyle bir sorum daha olacak,
son satırı bulurken eğer arada boş hücreler varsa onları atlamıyor,

boşlukları pas geçip dolu olan en son hücreyi bulacak şekilde nasıl düzenlenebilir,

var lastA = arrData.map(x => x[0]).indexOf('') + 1;

 

[Haluk]

var lastA = targetSheet.getRange('A' + targetSheet.getMaxRows()).getNextDataCell(SpreadsheetApp.Direction.UP).getLastRow() + 1;

.

 

[tamer42]

var lastA = targetSheet.getRange('A' + targetSheet.getMaxRows()).getNextDataCell(SpreadsheetApp.Direction.UP).getLastRow() + 1;

.

Haluk Hocam teşekkürler,

Aşağıdaki kod da aynı işi yapmaz mı?
öğrenmek için soruyorum.

var LastA = targetSheet.getLastRow()

 

[Haluk]

Tam olarak yapmaz....

Şöyle ki; eğer A sütununda en son dolu hücre örneğin A125 olsun. Eğer A sütunu hariç diğer sütunların herhangibirinde en son dolu hücre örneğin 145 ise sizin örneğinizdeki "LastA" değeri 145 olur. Eğer A sütunu haricindeki diğer sütunların hiçbirinde son dolu hücre 125. satırı geçmiyorsa ancak o zaman "LastA" değeri 125 olur.

Bu bilgiyle birlikte bugünkü OnLine eğitim ücreti bedeli toplam 750 TL oldu....

.