Soru Excelde otomatik makro tekrarlama

[Beo]

Merhaba arkadaşlar aşağıda verdiğim gibi aslında basit bi makro var , ancak sorun şu ki otomatik tekrarlamıyor, Ant migros başla bir sheets orada E5:Y7 aradında olan değişiklerle otomatik tekrarlamasını istiyorum yardımcı olabilirmisiniz

Sheets("Ant Migros").Select
Range("E5:Y7").Select
Selection.Copy
Sheets("YÖNETİM").Select
Range("C5").Select
ActiveSheet.Paste
Application.CutCopyMode = False


End Sub

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu Ant Migros sayfasının kod bölümüne kopyalayıp deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E5:Y7")) Is Nothing Then
    Range("E5:Y7").Copy Sheets("YÖNETİM").Range("C5")
End If
End Sub

 

[Beo]

Kardeş olmadı, aslında kopyalıyo ama hem biçimlendirmeleri almıyo hem de her E5:Y7 aralığa tıkladığımda sürekli otomatik hepsini seçiyo

 

[Pehlivan99]

Deneyiniz


Dim xx as range , xx1 as range
Set xx=thisworkbook.sheets(“Ant Migros”).range(“e5:y7”)
Set xx1=thisworkbook.sheets(“YÖNETİM”).range(“c5”)
xx.copy xx1
Application.cutcopymode=false

 

[Muzaffer Ali]

Kardeş olmadı, aslında kopyalıyo ama hem biçimlendirmeleri almıyo hem de her E5:Y7 aralığa tıkladığımda sürekli otomatik hepsini seçiyo

"E5:Y7" aralığında bir hücreyi değiştirdikten sonra Entere basın Mouse kullanmayın.

 

[ÖmerBey]

Tekrar merhaba,

hem biçimlendirmeleri almıyo

Koşullu biçimlendirme varsa onu almaz normal biçimlendirmenin de kopyalanması lazım.

her E5:Y7 aralığa tıkladığımda sürekli otomatik hepsini seçiyo

Paylaştığım kodda seçme içeren bir komut kullanılmamaktadır. Dosyanızda var olan başka bir kod tetikleniyor olabilir. Dosyanızdaki diğer kodları silip deneyiniz. (Örneğin ilk mesajda paylaştığınız kodda seçme komutları çokça yer alıyordu.)
Farklı bir problem olduğunu düşünüyorsanız örnek dosya paylaşınız.
Dosyanızı dosya paylaşım sitelerine yükleyerek linkini paylaşabilirsiniz.
İyi çalışmalar...