dosyadaki tüm sayfalara aktarma

[aydgur]

İyi hafta sonları ! dosyamdaki tüm sayfaların AA1 hücrelerine SATIŞ sayfasındaki AC5 değerini
ve AA2 hücrelerine SATIŞ sayfasındaki AC6 değerini bir kerede makro ile aktarma yapmak istiyorum ( çünkü dosyada çok fazla sayfa var) nasıl yapabilirim ?

 

[Orion1]

Sub sayfalara_aktar()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Range("AA1").Value = Sheets("SATIŞ").Range("AC5").Value
    sh.Range("AA2").Value = Sheets("SATIŞ").Range("AC6").Value
Next
MsgBox "Sayfalara aktarma yapıldı." & vbLf & vbLf _
& "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[aydgur]

Teşekkür edrim ! nöbetçi doktor gibisiniz; ama bununla değeri yazıyor , acaba tüm sayfalardaki AA1 hücrelerine SATIŞ AC5 - AA2 hücrelerine SATIŞ AC6 nasıl yazdırabilirim ?
Çünkü AC5 de usd kuru AC6 da euro kuru var ve hergün değiştiriyorum.

 

[Orion1]

Teşekkür edrim ! nöbetçi doktor gibisiniz; ama bununla değeri yazıyor , acaba tüm sayfalardaki AA1 hücrelerine SATIŞ AC5 - AA2 hücrelerine SATIŞ AC6 nasıl yazdırabilirim ?
Çünkü AC5 de usd kuru AC6 da euro kuru var ve hergün değiştiriyorum.

Zaten dediğiniz hücreleri dediğiniz yrelere atıyor.
Siz hücrelerinizi tekrardan kontrol edin.

 

[aydgur]

Haklısınız , ben anlatamadım , ben her gün makro ile yapmayayım diye. Her sayfadaki AA1 hücresine el ile =SATIŞ!AC5 --AA2 hücresine el ile =SATIŞ!AC6 yazmamak için bir seferde sadece tek kullanımlık bir makro rica etmek istemişitm.

 

[Orion1]

Haklısınız , ben anlatamadım , ben her gün makro ile yapmayayım diye. Her sayfadaki AA1 hücresine el ile =SATIŞ!AC5 --AA2 hücresine el ile =SATIŞ!AC6 yazmamak için bir seferde sadece tek kullanımlık bir makro rica etmek istemişitm.

Siz satış sayfasındaki AC5 hücresine ve AC6 hücresine veri girdiğinizde hemen otomatik olarak veriler diğer sayfalara aktarılsınımı istiyorsunuz.Buton istemiyormusunuz?

 

[aydgur]

Evet buton istemiyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub sayfalara_aktar()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Range("AA1").Formula = "=SATIŞ!AC5"
    sh.Range("AA2").Formula = "=SATIŞ!AC6"
Next
MsgBox "Sayfalara aktarma yapıldı." & vbLf & vbLf _
& "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[Orion1]

Evet buton istemiyorum

SATIŞ sayfasının modülüne aşağıdaki kodu yapıştıtırnız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Intersect(Target, [AC5,AC6]) Is Nothing Then Exit Sub
On Error Resume Next
For Each sh In Worksheets
    If Target.Row = 5 Then
        sh.Range("AA1").Value = Target.Value
        Else
        sh.Range("AA2").Value = Target.Value
    End If
Next
End Sub

 

[aydgur]

Teşekkür ederim.. Bİrde aynı excel dosyası içinde ANASAYFA dan diğer sayfalara istediğim kriterde aktarma yapabiliyorum fakat başka bir excel dosyasındaki sayfalar aktarma yapabilmek için hangi konulara bakmam gerekiyor yardımcı olabilirmisiniz?