Copy data without formulas to make a copy

[cadandcode]

BETON TAKİP OCAK 2022.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M
234		SOL TÜP		SAĞ TÜP
235	Şub.23	BETON SANTRALI	TÜNEL DEN GELEN RAPOR	BETON SANTRALI	TÜNEL DEN GELEN RAPOR
236	01.02.2023	72	74	73	51				01.02.2023	72	74	73	51
237	02.02.2023
Sayfa2

Cell Formulas
Range	Formula
B236	B236	=SUMIFS('BİRLEŞTİRLMİŞ FORMÜLLÜ'!$E$2:$E$100,'BİRLEŞTİRLMİŞ FORMÜLLÜ'!$A$2:$A$100,A236,'BİRLEŞTİRLMİŞ FORMÜLLÜ'!$D$2:$D$100,"=*SOL*")
D236	D236	=SUMIFS('BİRLEŞTİRLMİŞ FORMÜLLÜ'!$E$2:$E$100,'BİRLEŞTİRLMİŞ FORMÜLLÜ'!$A$2:$A$100,A236,'BİRLEŞTİRLMİŞ FORMÜLLÜ'!$D$2:$D$100,"=*SAĞ*")
A237	A237	=+A236+1
C236:C237	C236	=+'https://d.docs.live.net/68d082e010717dce/Desktop/ödf T7/günlük rapor/[T7 SARF LİSTESİ.xlsm]T7 ÇIKIŞ SOL'!$B253
E236:E237	E236	=+'https://d.docs.live.net/68d082e010717dce/Desktop/ödf T7/günlük rapor/[T7 SARF LİSTESİ.xlsm]T7 ÇIKIŞ SAĞ'!$B264

I'm trying to copy only cell content as numbers into right table to prevent datas disappearing if I remove sheets (@Fluff this is what I meant yesterday by looking for a copy of lost data) so this copying only numbers will help me if I lose sheets or remove them, I can keep numbers. Left table has formulas to get datas automatically and super useful. But at the end of the month I should delete sheets so left table gets zero data, this means cells lost the data which I have to make copy into right table to make a backup.
How can I get result of formulas and put them into right table?

 

[James006]

Hi,

You can test

Sub Kopyalamak()
 Range("I236:M236").Value = Range("A236:E236").Value
End Sub

 

[cadandcode]

Hi,

You can test

Sub Kopyalamak()
 Range("I236:M236").Value = Range("A236:E236").Value
End Sub

Well, it worked but it should do it automatically when left table updates. Because I may forget to run that macro like I forgot to make a copy.

 

[James006]

OK ...

Private Sub Worksheet_Calculate()
' içinde sayfa2 modülünde
  Range("I236:M236").Value = Range("A236:E236").Value
End Sub

 

[cadandcode]

OK ...

Private Sub Worksheet_Calculate()
' içinde sayfa2 modülünde
  Range("I236:M236").Value = Range("A236:E236").Value
End Sub

And how this work sir?

 

[James006]

Hopefully as you wanted ....
Whenever the worksheet recalculates ...
Have you tested it ?

 

[cadandcode]

Hopefully as you wanted ....
Whenever the worksheet recalculates ...
Have you tested it ?

Yes, didn't work sir

 

[James006]

How do you get your worksheet updated ?

 

[cadandcode]

How do you get your worksheet updated ?

Did you check formulas above?

 

[cadandcode]

and