makro

Katılım
16 Nisan 2017
Mesajlar
4
Beğeniler
0
Excel Vers. ve Dili
excel 2007
#1
arkadaşlar yine yazdım neden kimse bana yardımcı olmuyor
iki tane excel dosyası düşünün birinde a1 hücresine bise yazdığımda diğerinin a1 hücresinede aynı değeri giren ve kaydeden bir makro kodu istiyorum lütfen yardım edin
 

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2006
Mesajlar
1,898
Beğeniler
173
Excel Vers. ve Dili
2007-2013
#2
Aşağıdaki kod sanıyorum istediğiniz şeyi karşılıyor.
Deneyiniz.

Kod:
Sub Test()
    Dim Say As Long
    Dim Sayfa As Worksheet
    Set Sayfa = ThisWorkbook.Worksheets("Sayfa1") 'Bu kodların bulunduğu dosyada bulunan "Sayfa1" adlı sayfaya veriler yazılacak.
    'Eğer siz açık olan başka bir dosyaya veri yazmak isterseniz kod aşağıdaki gibi olmalı.
    Set Sayfa = Workbooks("Dosya Adı").Worksheets("Sayfa1")
    
    Say = Sayfa.Cells(Rows.Count, "A").End(3).Row ' Sayfanın A sutünunda dolu olan satır sayısını bulujyoruz.
    Sayfa.Cells(Say + 1, "A").Value = "Bugünün tarihi = " & Now ' sayma sonucna 1 ekleyerek ilk boş hücreyi bulup verimizi yazıyoruz.
    
End Sub
Ancak işin çok başında olduğunuz için daha çok öğrenme odaklı olup "Excel Dersanesi" bölümünü takip etmenizi öneririm.
Kolay gelsin.
 
Üst