formüllü hücrelere makro atama

[erdal_keskin]

kolay gelsin arkadaşlar. Ekteki dosyadaki hesapla butonuyla J, K ve L sütunundaki işlemleri yaptırcam, temizle butonuyla da G, H, J, K ve L sütunlarını temizletcem. Uzman arkadaşlar bakarsa anlar zaten. yardımlar için tşklr.

 

[Ziynettin]

Sub hesapla()
Sheets("2").Select
a = Range("B3:H" & Cells(Rows.Count, 6).End(3).Row).Value
s = UBound(a)
ReDim b(1 To s, 1 To 3)
For i = 1 To s
    If Not a(i, 5) = "" Then b(i, 1) = a(1, 1) * (a(i, 6) / a(i, 7))
    If Not a(i, 6) = "" Then
        b(i, 2) = b(1, 1) / (a(1, 1) - b(1, 1)) * b(i, 1)
        b(i, 3) = (a(1, 2) / b(1, 1)) * b(i, 2)
    End If
Next i
b(1, 2) = ""
b(1, 3) = ""
[j3].Resize(s, 3) = b
End Sub

Sub temizle()
    Sheets("2").Select
    Range("G3:H102", "J3:L102") = Empty
End Sub

 

[erdal_keskin]

Teşekkürler ziynettin bey. Daha bakamadım. Deneyeceğim. Kolay gelsin.

 

[erdal_keskin]

hesaplama yapıyor, temizleme çalışmıyor.

 

[EmrExcel16]

Kodlar çalışıyor. Temizle butonuna temizle makrosunu atayınız.
Buton Sağ tıkla - Makro ata - temizle seç - tamam de , bu kadar

 

[erdal_keskin]

tamam tşklr oldu.