a1 hücresi değişince makro çalışsın..

[kan-nas]

Selamlar,

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then

Range("f65536").End(3)(2, 1).Value = Range("a1").Value

End If

End Sub

kodu ile A1 hücresini elle değiştirdiğim zaman F sütünuna alt alta atıyor. Burada problem yok. Ama bunu dolaylı olarak yaptığımda yani A1 hücresine =M1+1 formülünü yazıp M1 hücresini değiştirdiğimde A1 hücresi değişmesine rağmen Makro çalışmıyor. Hata nerede bir türlü bulamadım. Yardımlarını için.

 

[hamitcan]

Bu şekilde kullanmayı deneyiniz.

Private Sub Worksheet_Calculate()
.... kodlarınız
End Sub

 

[kan-nas]

Üstadım Run Time Erro 424 Object required hatası verdi. Aşağıdaki bigi deneyince

Private Sub Worksheet_Calculate()


If Target.Address = "$A$1" Then

Range("f65536").End(3)(2, 1).Value = Range("a1").Value

End If

End Sub

 

[uzmanamele]

Üstadım Run Time Erro 424 Object required hatası verdi. Aşağıdaki bigi deneyince

Private Sub Worksheet_Calculate()


If Target.Address = "$A$1" Then

Range("f65536").End(3)(2, 1).Value = Range("a1").Value

End If

End Sub

Merhaba
Kodun tetiklenmesi hesaplamayla olacağı için görev alanı belirlendiğinde hata verir.
bu satırı silin.

If Target.Address = "$A$1" Then

Ancak bu durumda da A1 değişmediği halde kod tetiklenecektir.
Dosyanıza bakmadan yorum yapıyorum, başka çözüm olacaktır.

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Public deg As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
deg = Range("a1").Value
End Sub

Private Sub Worksheet_Calculate()
If deg <> Range("a1").Value Then
Range("f65536").End(3)(2, 1).Value = Range("a1").Value
End If
End Sub

 

[kan-nas]

Üstad okodlar oldu..Ama kodları açıklaman mümkün mü?
ilk kod da "deg" adlı değişkeni A1 hücresine tanımlıyrosun aşağıdaki koda da bunu o değişken A e eşit değilse diyorsun.Kod nasıl çalışıyor. Bir de Calculateyi açıklar mısın.?