İşlem Yokken, Makroyu Çalıştırmamak

[EKREM1661]

Saygıdeğer arkadaşlar..! Aşağıda, Sn Seyit Tiken'den alınma kod var..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1] = "=MAX(R[5]C:R[2004]C)"
End Sub

A1 hücresinde belirtilen formülün olup olmadığını kontrol ediyor ve eğer formül yoksa, formülü A1 hücresine yazıyor.

Ancak şöyle bir durum var; sanırım ki makro her halükarda çalıştığı için "Geri Al" komutunu öldürüyor..

sorun: A1 hücresinde formül var ise, makroyu çalışmasın..diye bir yol varmı..?

 

[iaydin20]

Anladığım kadarıyla aşağıdaki kod işinizi görebilir a1 de formül varsa tekrar yazmıyor a1 hücresi boşsa yazıyor

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1] = "" Then
[a1] = "=MAX(R[5]C:R[2004]C)"
End If
End Sub

 

[Ayhan Ercan]

Merhaba Sn EKREM1661

[LEFT]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1] <> "" Then Exit Sub
End Sub

[/LEFT]

 

[EKREM1661]

Sayın iaydin20 ve Sayın Ayhan Ercan...! ve şimdi oldu..teşekkürler..