Otomatik Çalışan Makro

[karagöz55]

Sub Tensip ()
Set a = Worksheets("TENSİP")
a.Range("A49") = a.Range("X39")
a.Range("A75") = a.Range("X39")
a.Range("H72") = a.Range("X38")
a.Range("H47") = a.Range("X38")
a.Range("J85") = a.Range("X43")
a.Range("J112") = a.Range("X43")
a.Range("A86") = a.Range("X48")
End Sub

Arkadaşlar,
Düşeyara formülü yardımıyla oluşturduğum veriler A1 hücresindeki rakamın değişmesi ile değişiyor. Ben elde ettiğim bu yeni verileri A1 hücresindeki rakamın değişmesi ile birlikte başka hiçbir işleme gerek kalmadan yukarıda bir kısmını verdiğim formüldeki gibi diğer hücrelere aktarılmasını istiiyorum. Yani bir nevi bağ yapıştır gibi bir şey yapmak istiyorum. Ama makro kodlarını nasıl çalıştıacağımı bilemedim.
Bu konuda yardımı olacak arkadaşlara şimdiden teşekkürlerimi sunarım.

 

[Orion1]

Çalışma sayfasının kod bölğümğne aşağıdaki kodları yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error Resume Next
Call Tensip
End Sub

 

[karagöz55]

Sayın Evren Gizlen Bey
Değerli yorumlarınız ve katkılarınızdan dolayı teşekkürler.
Ancak kodu dediğiniz gibi ilgili kod sayfasına yazmama rağmen çalıştıramadım
Örnek dosyayı ekte gönderiyorum.
İlgilenirseniz sevinirim. Şimdiden teşekkürler

 

[karagöz55]

Sayın Evren Gizlen Bey
Bir önceki mesajımdan dolayı özür dilerim
Hiç siz yaparsınız da makro çalışmaz mı?
Tam istediğim gibi çalışıyor. Ben yanlış tuşa basıyormuşum.
İlginizden dolayı teşekkürler

 

[Orion1]

Sayın Evren Gizlen Bey
Bir önceki mesajımdan dolayı özür dilerim
Hiç siz yaparsınız da makro çalışmaz mı?
Tam istediğim gibi çalışıyor. Ben yanlış tuşa basıyormuşum.
İlginizden dolayı teşekkürler

Rica ederim.
İyi çalışmalar.

 

[karagöz55]

A1 Hücresinin değerini sipinbuton ile değiştirince kodlar çalışmıyor.
Acaba bunun bir yolu var mıdır?
İlgilenen arkadaşlara şimdiden teşekkürler

 

[Orion1]

Spin buttonda a1 hücresine veri giren koddan sonra aşğıdaki kodu yazın.

Call Tensip

 

[karagöz55]

İlginizden dolayı Teşekkürler

 

[Orion1]

İlginizden dolayı Teşekkürler

İyi çalışmalar.

 

[kadiromen66]

merhaba arkadaşlar benim bir sorum var excel de yazdığım bir formüle zaman eklemek istiyorum. Yani bir formül yazacağım bu formüle bağlı bir formül daha ilk formül çalıştıktan sonra 2. formül ilk formülden 10 saniye sonra devreye girsin istiyorum ben bulamadım yardımcı olursanız sevinirim şimdiden teşekkür ediyorum.

 

[ozgretmen]

Sub Basla()
On Error GoTo ERR
Range("A1").Value = " deneme"
Application.OnTime Now + TimeValue("00:00:10"), "TEST"
ERR:
End Sub

Sub TEST()
MsgBox " 10 sn geçti ve bu makro çalıştı."
Range("A1").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
End Sub