makro

[enjoy36]

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

 

[Muzaffer Ali]

Aşağıdaki kod sanıyorum istediğiniz şeyi karşılıyor.
Deneyiniz.

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.