Bu kodlar çalışırmı bilen varmı acil lazım

[kankaemre]

pekii halit bey eğer kusura bakmazsanız bir soru daha sorabilimiyim;
biraz konumuz dışında olcak ama

sorum ; şimdi bende iki formül var---=EĞER(EHATALIYSA(F16/(D16*G16)*100);"";F16/(D16*G16)*100)--E16 HÜCRESİ
=EĞER(EHATALIYSA(D16*E16*G16)/100;"";D16*E16*G16/100)--F16 HÜCRESİNE SONUÇ
ben bunları makroda kullanmak isityorum ve İKİSİNİDE PROGRAM GİBİ HANGİSİNİ İSTERSEM ONU HESAPLAMA YAPACAK MÜMKÜNMÜDÜR BÖYLE BİR ŞEY OLUMLU YADA OLUMSUZ DÖNEBİLİRMİSİNİZ

ŞİMDİDEN TÜM YARDIMLARINIZ İÇİN TEŞEKKÜRLER

şu förmüllerle olurmu acaba;
Formülden değere, değerden formüle dönüşüm
Sub formulyaz()
Application.ScreenUpdating = False
Sheets(ComboBox2.Value).Select
[b2].Select
Range("b2").Formula = "=yasbul(e1,e2,1)*(-1)"
[b2].Select
Selection.AutoFill Destination:=[b2:b51], Type:=xlFillDefault
[b2].Select
End Sub

Sub formulden_degere()
Application.ScreenUpdating = False
Sheets(ComboBox2.Value).Select
Range("B2:B51").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
Application.CutCopyMode = False
Range("B2").Select
Application.ScreenUpdating = True
End Sub

formüle değer yazınca forülün yok olmama gibi bir şan s varmı

yada FORMÜLLERİ SAYIYA ÇEVİRİR
Sub Form2val()
For Each c in Selection.Cells
c.formula=c.value
Next c
End Sub

çevirsem olurmu acaba

yada formül gidince bir buton yapıp o formülü geri geitirebiliriyim
Option Explicit

Type RangeCellInfo
CellContent As Variant
CellAddress As String
End Type

Public OrgWB As Workbook
Public OrgWS As Worksheet
Public OrgCells() As RangeCellInfo

Sub EditRange()
Dim i As Integer, cl As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Application.ScreenUpdating = False
ReDim OrgCells(Selection.Count)
Set OrgWB = ActiveWorkbook
Set OrgWS = ActiveSheet
i = 1
For Each cl In Selection
OrgCells(i).CellContent = cl.Formula
OrgCells(i).CellAddress = cl.Address
i = i + 1
Next cl
Selection.Formula = "X"
If Application.International(xlCountrySetting) = 47 Then
Application.OnUndo "Angre endringer utført av makroen", "UndoEditRange"
Else
Application.OnUndo "Undo the latest macro", "UndoEditRange"
End If
End Sub

Sub UndoEditRange()
Dim i As Integer
Application.ScreenUpdating = False
On Error GoTo NoWBorWS
OrgWB.Activate
OrgWS.Activate
On Error GoTo 0

For i = 1 To UBound(OrgCells)
Range(OrgCells(i).CellAddress).Formula = OrgCells(i).CellContent
Next i
Set OrgWB = Nothing
Set OrgWS = Nothing
Erase OrgCells
NoWBorWS:
End Sub

ŞİMDİDEN HERKESE TEŞEKKÜRLERRR