Sayfa2!B1 formülünün makrosu

[denfab76]

Merhaba,
Sayfa1 deki M sütunundaki sayilar sayfa2 deki B1 hücresine esit olsun. Sayfa2!B1 bu formülünün makrosunu nasil yazabilirim. Tesekkürler

 

[Korhan Ayhan]

Deneyiniz.

Range("M1:M100").Value = Sheets("Sayfa2").Range("B1").Value

 

[denfab76]

Korhan Bey Sayfa2!B1 formülünü kullaninca sayfalar arasi gecis yapinca deger otomatik degismis oluyor. Makro kullandigin zaman sayfa icerisinde herhangi bir hücreye tikladiktan sonra deger degisiyor. Degerin formüldeki gibi hemen degismesi mümkün mü, birde sayfa1 yerine bu islemi baska bir sayfa icin uygulayabilmem icin makroda nasil bir degisiklik yapmam gerekiyor. Makroyu asagidaki gibi Thiswoork üzerine kopyaladim. Tesekkürler.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("M1:M100").Value = Sheets("Sayfa2").Range("B1").Value

End Sub

 

[Korhan Ayhan]

Mümkün...

Sayfa2 isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
    Sheets("Sayfa1").Range("M1:M100").Value = Target.Value
End Sub

B2 hücresini elle değiştirdiğinizde Sayfa1 M1:M100 arasına ilgili değeri yazar. Siz sayfa adını ve hücre aralığını kendinize göre düzenlersiniz.

 

[denfab76]

Korhan Bey cok tesekkür ederim.