Çalışma kitabındaki bağlantıların tümünü kaldırarak bütün formülleri de değer yapmak.

[Leoncio]

Merhaba Arkadaşlar,
20 Sheetten oluşan bir çalışma kitabım var. Başka dosyalarla bağlantılı, muhtelif yerlerde de formüller mevcut. Sheetlerin bazılarını dublör olarak kullandığımdan gizli yapıyorum.
Makro ile çalışma kitabını bütün bağlantılardan kurtarmak ve bütün formülleri de değer yapmak istiyorum.
(Elimde örnek birkaç kod var denedim ama kısmi yapıyor. Bütün çalışma kitabını yapmıyor. )
Teşekkürler.

 

[kulomer46]

Merhaba

Aşağıdaki çalışma işinize yarıyabilir.

Makro kodu çalıştırıldığında Excel Çalışma Kitabınızdaki gizli yada görünür tüm sayfalardaki
dış bağlantı ve formül içeren hücrelerdeki veriler değer yapılmaktadır.

Böylece hücrelerdeki tüm veriler bir yere bağlı olmaktan kurtulmakta, bir yere bağlı olmayan kendi başlarına değerler durumuna gelmektedir.

Selamlar...

https://dosyam.org/2hOy/Çalışma_Kitabımda_Tüm_Sayfalardaki_Hücrelerde_Dış_Bağlantı_ve_Formülleri__Değer_Yap.xlsm

Sub Çalışma_Kitabında_Tüm_Bağlantıları_ve_Formülleri_Değer_Yap()
'07.09.2022  10:16

c = MsgBox("Bu Excel Çalışma Kitabındaki Açık ve Gizli Tüm Sayfalardaki" & Chr(10) & "Dış Bağlantıların ve Formüllerin hepsi Değer yapılacaktır." & Chr(10) & Chr(10) & "Onaylıyor musunuz?", vbOKCancel, "  Değer ")
If c = vbCancel Then
    MsgBox "DEĞER yapma işlemi İptal Edildi", , " Değer "
    Exit Sub
End If
Aktif_Sayfa = ActiveSheet.Name
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
    If Sheets(i).Visible = False Then   
        Sheets(i).Visible = True
        Sheets(i).Select       
        Cells.Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        Cells(2, 2).Select   
        Sheets(i).Visible = False   
    Else   
        Sheets(i).Select
        Cells.Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        Cells(2, 2).Select           
    End If
Next
Sheets(Aktif_Sayfa).Select
Application.ScreenUpdating = True

MsgBox "Bu Excel Çalışma Kitabındaki Açık ve Gizli Tüm Sayfalardaki" & Chr(10) & Chr(10) & "Dış Bağlantıların ve Formüllerin hepsi Değer yapılmıştır", , "  Değer "

End Sub

 

[Leoncio]

Tamamdır. Teşekkürler.

 

[kulomer46]

Tamamdır. Teşekkürler.

Selamlar ... : )