Soru Excel den e tablolara makro.

[uurluyum]

Merhaba,

Aşağıda belirtmiş olduğum makro excel de çalışıyor ancak benim bunu e tablolar da çalıştırmam gerekiyor. Bunu nasıl yapabilirim bilen var mı?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("A1:A1000")
' ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, 1) = Date + Time
Next RaZelle
' ActiveSheet.protect
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

 

[veyselemre]

function onEdit(e)
{
  var activeSheet=e.source.getActiveSheet();
  var tabs = ['Sheet1'];
  var columns=[1];
  var cell=e.range; 
  if (tabs.indexOf(activeSheet.getName())!==-1 && columns.indexOf(cell.getColumn())!==-1 && cell.getRow()>4 && cell.getRow()<11)
  {
    if(cell.getValue()!=="")
    {       
           e.range.offset(0,1).setValue(new Date()).setNumberFormat("dd/MM/yyyy HH:mm:ss");;
    }
  }
}

 

[uurluyum]

function onEdit(e)
{
  var activeSheet=e.source.getActiveSheet();
  var tabs = ['Sheet1'];
  var columns=[1];
  var cell=e.range;
  if (tabs.indexOf(activeSheet.getName())!==-1 && columns.indexOf(cell.getColumn())!==-1 && cell.getRow()>4 && cell.getRow()<11)
  {
    if(cell.getValue()!=="")
    {      
           e.range.offset(0,1).setValue(new Date()).setNumberFormat("dd/MM/yyyy HH:mm:ss");;
    }
  }
}

Merhaba cevabınız için teşekkür ederim ancak çalışmıyor.

 

[veyselemre]

İnceleyin

 

[uurluyum]

İnceleyin
Ekli dosyayı görüntüle 223224

Garip bir şekilde şu an denedim oldu çok teşekkür ediyorum. Ancak bir sorum daha olacaktı bir satırda herhangi bir hücreye veri girildiği zaman makroyu çalıştırma şansımız var mı sadece 1. sütun değil de.

 

[veyselemre]

Bu kısım

&& columns.indexOf(cell.getColumn())!==-1

istenen sütunların =>

 var columns=[1];

burda tanımlanıyor kodda
aktif hücre sütununun kontrolünü yapıyor.
o kısmı kaldırırsanız sütun kontrolü yapmaz.

 

[uurluyum]

Bu kısım

&& columns.indexOf(cell.getColumn())!==-1

istenen sütunların =>

 var columns=[1];

burda tanımlanıyor kodda
aktif hücre sütununun kontrolünü yapıyor.
o kısmı kaldırırsanız sütun kontrolü yapmaz.

Hocam söylediğiniz gibi yaptım ancak bir yerde yanlış yapıyorum sanırım tüm satırda işlem yapılınca tarih güncellemesini yaptıramadım tek bir satırı baz alıyor hala.

 

[uurluyum]

Bu kısım

&& columns.indexOf(cell.getColumn())!==-1

istenen sütunların =>

 var columns=[1];

burda tanımlanıyor kodda
aktif hücre sütununun kontrolünü yapıyor.
o kısmı kaldırırsanız sütun kontrolü yapmaz.

Yani hocam şöyle anlatayım. 5. satırdaki herhangi bir hücre de değişiklik yapıldığı zaman A5 hücresinde son bilgi girildiği tarih otomatik olarak çıksın. Yapabilir miyiz böyle birşey?

 

[uurluyum]

Bu kısım

&& columns.indexOf(cell.getColumn())!==-1

istenen sütunların =>

 var columns=[1];

burda tanımlanıyor kodda
aktif hücre sütununun kontrolünü yapıyor.
o kısmı kaldırırsanız sütun kontrolü yapmaz.

Hocam merhaba tekrar uğraştım ama yapamadım yardımcı olur musunuz?

 

[veyselemre]

function onEdit(e)
{
  var activeSheet=e.source.getActiveSheet();
  var tabs = ['Sheet1','Sheet2'];
  var columns=[2,3,4,5,6,7];
  var cell=e.range; 

  if (tabs.indexOf(activeSheet.getName())!==-1 && columns.indexOf(cell.getColumn())!==-1)
  {
    if(cell.getValue()!=="")
    {   
          activeSheet.getRange(cell.getRow(),1).setValue(new Date()).setNumberFormat("dd/MM/yyyy HH:mm:ss");;
    }
  }
}

 

[uurluyum]

function onEdit(e)
{
  var activeSheet=e.source.getActiveSheet();
  var tabs = ['Sheet1','Sheet2'];
  var columns=[2,3,4,5,6,7];
  var cell=e.range;

  if (tabs.indexOf(activeSheet.getName())!==-1 && columns.indexOf(cell.getColumn())!==-1)
  {
    if(cell.getValue()!=="")
    {  
          activeSheet.getRange(cell.getRow(),1).setValue(new Date()).setNumberFormat("dd/MM/yyyy HH:mm:ss");;
    }
  }
}

Hocam merhaba, Excel den e tablolara makro yu çevirmek konusunda bildi edinip öğrenebileceğim bir yer var mı acaba sizin bildiğiniz. Bu konu da bir kaç makro daha var çevirmem gereken ancak sizi rahatsız etmek istemiyorum kendim yapmayı öğrenmek istiyorum.