Kullanıcı
- Katılım
- 9 Eki 2022
- Mesajlar
- 38
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
merhaba arkadaşlar userform a atadığım 4 farklı buton ile hücredeki 4 farklı formülü değiştirmek istiyorum önce 4 farklı değişken makrosunu hazırlıyorum ve içindeki 4 farklı formülü userformdaki 4 farklı butona yapıştırıyorum işlem yapıyor ama excelin herangi biyeriyle oynadıktan veya kapatıp açtıktan sonra sonra formülleri karıştırıyor sebebi ne olabilir
Sub istbayicarp()
'
' istbayicarp Makro
'
'
ActiveCell.FormulaR1C1 = "=IFERROR(RC[3]+RC[35],"""")"
Range("T9").Select
Selection.AutoFill Destination:=Range("T9:T644")
Range("T9:T644").Select
Range("AE2").Select
ActiveCell.FormulaR1C1 = "38"
Range("AE3").Select
End Sub
Sub ypncarp()
'
' ypncarp Makro
'
'
ActiveCell.FormulaR1C1 = "=IFERROR(RC[4]+RC[36],"""")"
Range("T9").Select
Selection.AutoFill Destination:=Range("T9:T644")
Range("T9:T644").Select
Range("AE2").Select
ActiveCell.FormulaR1C1 = "38"
Range("AE3").Select
End Sub
Sub toptancarp()
'
' toptancarp Makro
'
'
ActiveCell.FormulaR1C1 = "=IFERROR(RC[5]+RC[37],"""")"
Range("T9").Select
Selection.AutoFill Destination:=Range("T9:T644")
Range("T9:T644").Select
Range("AE2").Select
ActiveCell.FormulaR1C1 = "3"
Range("AE3").Select
End Sub
Sub ankcarp()
'
' ankcarp Makro
'
'
ActiveCell.FormulaR1C1 = "=IFERROR(RC[6]+RC[38],"""")"
Range("T9").Select
Selection.AutoFill Destination:=Range("T9:T644")
Range("T9:T644").Select
Range("AE2").Select
ActiveCell.FormulaR1C1 = "24"
Range("AE3").Select
End Sub
Sub istbayicarp()
'
' istbayicarp Makro
'
'
ActiveCell.FormulaR1C1 = "=IFERROR(RC[3]+RC[35],"""")"
Range("T9").Select
Selection.AutoFill Destination:=Range("T9:T644")
Range("T9:T644").Select
Range("AE2").Select
ActiveCell.FormulaR1C1 = "38"
Range("AE3").Select
End Sub
Sub ypncarp()
'
' ypncarp Makro
'
'
ActiveCell.FormulaR1C1 = "=IFERROR(RC[4]+RC[36],"""")"
Range("T9").Select
Selection.AutoFill Destination:=Range("T9:T644")
Range("T9:T644").Select
Range("AE2").Select
ActiveCell.FormulaR1C1 = "38"
Range("AE3").Select
End Sub
Sub toptancarp()
'
' toptancarp Makro
'
'
ActiveCell.FormulaR1C1 = "=IFERROR(RC[5]+RC[37],"""")"
Range("T9").Select
Selection.AutoFill Destination:=Range("T9:T644")
Range("T9:T644").Select
Range("AE2").Select
ActiveCell.FormulaR1C1 = "3"
Range("AE3").Select
End Sub
Sub ankcarp()
'
' ankcarp Makro
'
'
ActiveCell.FormulaR1C1 = "=IFERROR(RC[6]+RC[38],"""")"
Range("T9").Select
Selection.AutoFill Destination:=Range("T9:T644")
Range("T9:T644").Select
Range("AE2").Select
ActiveCell.FormulaR1C1 = "24"
Range("AE3").Select
End Sub