(02/10/2021, 14:55)Oğuz Türkyılmaz yazdı:(02/10/2021, 13:43)userx yazdı: Sayın Oğuz Türkyılmaz
Sadece hücrelerdeki formülleri örneğini Formun yüklendi olayına alttaki gibi diğer formülleri de tekrar hücreye yazdırabilirsin.
[M23].Formula = "=L23*K23"
@userx hocam bu gayet mantıklı oldu aynı kodları sadece kapat ve yeni teklif hazırla butonlarına da yazmam gerekiyor. Yoksa hesaplama yapıp çıkılırsa bir şekilde o hücre değerleri 0 olarak kalıyor.
For döngüsü ile belki çözüm üretilir onu da öğrenmek isterim ama bu çözüm basit olduğundan benim için bu uygulamada kullanacağım çözüm olacak.
Çok teşekkür ederim.
@userx hocam başka bir chekbox için bu formülü uyguladığımda hata alıyorum. Hem string hemde ondalık değer içeren hücreden ( C25 dolayı ). Bu işlemi nasıl gerçekleştirebilirim.
Kod:
Private Sub CheckBox_MotorsuzSabit_Click()
Dim i As Long, son As Long
Dim shf As Worksheet
Set shf = ThisWorkbook.Worksheets("Sabitler")
Const harf As String = "O"
Const baslama As Byte = 2
son = PARAMETRELER.Cells(Rows.Count, harf).End(3).Row
With ThisWorkbook.Worksheets("Pergole")
If CheckBox_MotorsuzSabit.Value = True Then
MsgBox "Sistem hesaplamaları Motorsuz Sabit Tente olarak güncellenecek...", vbExclamation, "WINPERAX Teklif Bilgi Ekranı"
' frm_PdfGonder.Label_LamelHareket.Caption = "Eksenal Hareketli Lameller"
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
[C25] = "=D8*2,2"
[C30] = "=D16"
[C34] = 1
shf.Cells.Clear
End If
End With
End Sub![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
