Bir hücredeki değeri silip işlemi geri alma

[orgerin]

Tekrar merhabalar,
Bir sorum daha olacak.

A1:A10 aralığındaki verilerimi otomatik olarak silip sonra Ctrl+Z gibi işlemi geri alan bir düğmeye ihtiyacım var.
Konu ilginç gelebilir ama, bu aralıktaki sayıların döngüsel başvuru içerisinde olmasından dolayı, #DEĞER! ya da #SAYI/0! gibi hatalarla karşılaştığımda bu işlemi yapınca hata gideriliyor.

 

[Levent Menteşoğlu]

Peki F9 tuşuna basarak hesaplama yapmayı denedinizmi?

 

[orgerin]

elbette,

ne yazık ki hata giderilmiyor.

 

[Levent Menteşoğlu]

Araçlar-seçenekler-yineleme kutusunu işaretleyin ve "en fazla yineleme" değerini "1" yaparak tekrar deneyin.

 

[veyselemre]

Sorunun ne olduğunu anlamadım ama aşağıdaki kodlarla seçili alan silinip tekrar aynı formüller ekleniyor.

Sub dene()
'150607 ewtr.veyselemre>:orgerin
Dim col As New Collection
adr = Selection.Address
For Each huc In Range(adr)
    col.Add huc.Formula
Next
Selection.ClearContents
For Each huc In Range(adr)
    a = a + 1
     huc.Formula = col(a)
Next
Set col = Nothing
End Sub