merhaba arkadaşlar sayfalara dağıt makrom var ancak formüllü veriyi sayfalara dağıtıyor fakat formül olarak yapıştırıyor bunu değer olarak yapıştırmasını istersek acaba nereyi değiştirmemiz gerekir uğraştım ancak yapamadım yardımcı olurmusunuz.
For i = 2 To [b65536].End(3).Row
Sayfa = Trim(Cells(i, "b"))
If Sheets("veri").Range("b" & i).Offset(0, -1).Value = "X" Then
If Not SayfaVarMi(Sayfa) Then
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sayfa
sg.Select
Range("b1:bg1").Copy Sheets(Sayfa).[b2]
End If
Sheets(Sayfa).Rows("2:2").Insert Shift:=xlDown
Range("b" & i & ":bg" & i).Copy Sheets(Sayfa).Range("B2") 'Sheets(Sayfa).Range("B" & Sheets(Sayfa).[a65536].End(3).Row + 1)
Sheets(Sayfa).Range("A2").Value = d
Sheets(Sayfa).Columns(1).EntireColumn.AutoFit
For Each cht In Sheets(Sayfa).ChartObjects
cht.Chart.SetSourceData Sheets(Sayfa).Range("C1:F38"), xlColumns
Next
w = Sheets(Sayfa).Cells(65536, "B").End(3).Row - 1
If w >= 500 Then
Sheets(Sayfa).Rows("501:502").Delete Shift:=xlUp
End If
For i = 2 To [b65536].End(3).Row
Sayfa = Trim(Cells(i, "b"))
If Sheets("veri").Range("b" & i).Offset(0, -1).Value = "X" Then
If Not SayfaVarMi(Sayfa) Then
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sayfa
sg.Select
Range("b1:bg1").Copy Sheets(Sayfa).[b2]
End If
Sheets(Sayfa).Rows("2:2").Insert Shift:=xlDown
Range("b" & i & ":bg" & i).Copy Sheets(Sayfa).Range("B2") 'Sheets(Sayfa).Range("B" & Sheets(Sayfa).[a65536].End(3).Row + 1)
Sheets(Sayfa).Range("A2").Value = d
Sheets(Sayfa).Columns(1).EntireColumn.AutoFit
For Each cht In Sheets(Sayfa).ChartObjects
cht.Chart.SetSourceData Sheets(Sayfa).Range("C1:F38"), xlColumns
Next
w = Sheets(Sayfa).Cells(65536, "B").End(3).Row - 1
If w >= 500 Then
Sheets(Sayfa).Rows("501:502").Delete Shift:=xlUp
End If