Uygulamadaki Menu sayfasında bioclimatik butonuna tıkladığınızda açılan formda mevcut değerlerle hesaplamalar yaptırıyorum. Sorunum Geri toplamasız checkBoxına tıkladığımda işlem gerçekleşiyor ve Bioclimatic sayfası N sütununda içinde formül olan pempe renkli hücreleri sıfırlıyorum. Lakin checkboxa tekrar tıkladığımda bu sıfırlanan değerler hücreye içeriğinde formül olmadan sadece değer olarak geri alınıyor.
.Formula ile makrolarla çalışan sistemde bu değerleri içeriğindeki formülle geri getirmişti @feraz hocam lakin ben bu yeni kodda .Formula ile denemelerimde formülle geri getiremedim sadece değerleri geri alabildim. Hücrede silinen değerleri İçeriğindeki formülle geri getirmek için kodu nasıl revize etmeliyim. Teşekkürler.
Kod:
Private Sub CheckBox_GeriToplamasiz_Click()
Dim i As Long, son As Long
Dim shf As Worksheet
Set shf = ThisWorkbook.Worksheets("Sabitler")
Const harf As String = "N"
Const baslama As Byte = 2
son = PARAMETRELER.Cells(Rows.Count, harf).End(3).Row
With ThisWorkbook.Worksheets("Bioclimatic")
If CheckBox_GeriToplamasiz.Value = True Then
MsgBox "Sistem Hesaplamaları, Lameller Geri Toplanmayacak Şekilde Eksenal Hareketli olarak
Güncelleniyor"
frm_PdfGonder.Label_LamelHareket.Caption = "Eksenal Hareketli Lameller"
CheckBox_SabitPanel.Value = False
shf.Cells.Clear
For i = baslama To son
shf.Cells(i, 1).Value = .Range(PARAMETRELER.Cells(i, harf).Value).Value
.Range(PARAMETRELER.Cells(i, harf).Value) = 0
Next
Else
For i = baslama To son
.Range(PARAMETRELER.Cells(i, harf).Value) = shf.Cells(i, 1).Value
Next
shf.Cells.Clear
End If
End With
End Sub
![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
