dış bağlantı bulunan hücreleri temizleme (value = "")

[hsayar]

Forumda daha evvel sayın haluk ve sayın class37 tarafından verilmmiş olan bu kodlar dış bağlantı bulunan hücreleri sarı ile işaretliyor...
ancak ben hücrenin formülden arındırlmasını ve ardında hiç bir işaret bırakılmamasını istiyorum.
kodlarda ne gibi değişklik yapılmalıdır?

Sub ExRef()
Dim MyRange As Range
Dim i As Integer, j As Integer, No As Integer
Dim MyMsg1 As String, MyMsg2 As String, MyMsg3 As String
Dim MyArray()
For i = 1 To Worksheets.Count
No = 0
For Each MyRange In Sheets(i).UsedRange
If InStr(1, MyRange.Formula, "[") Then
MyRange.Interior.ColorIndex = 6
No = No + 1
ReDim MyArray(1 To No)
MyArray(No) = Sheets(i).Name & " --- " & MyRange.Address(False, False)
For j = LBound(MyArray) To UBound(MyArray)
If MyArray(j) <> "" Then MyMsg2 = MyMsg2 & vbCrLf & MyArray(j)
Next
End If
Next
MyMsg1 = MyMsg1 & vbCrLf & Sheets(i).Name & " sayfasında " & No & " adet "
Next
MyMsg3 = "(Bulunan hücreler sarı renkle işaretlenmiştir.)"
MsgBox MyMsg1 & vbCrLf & WorksheetFunction.Rept("--", 20) & vbCrLf & "Dış bağlantılı hücre bulundu." _
& vbCrLf & vbCrLf & "Bulunan hücreler :" & vbCrLf & MyMsg2 _
& vbCrLf & vbCrLf & MyMsg3, , "Rapor !"
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub DIŞ_BAĞLANTILI_HÜCRELERİ_TEMİZLE()
    On Error GoTo Son
    Dim Hücre As Range
    For Each Hücre In Cells.SpecialCells(xlCellTypeFormulas, 23).Cells
    If InStr(1, Hücre.Formula, "[") Then
    Hücre.Value = Empty
    Say = Say + 1
    End If
    Next
    Ek_Mesaj = IIf(Say = 1, "içeriği", "içerikleri")
    MsgBox Say & " adet dış bağlantılı hücre bulunmuştur ve " & Ek_Mesaj & " temizlenmiştir.", vbInformation
    Exit Sub
Son: MsgBox "Dış bağlantılı hücre bulunamamıştır.", vbExclamation
End Sub

 

[hsayar]

hocam öncelikle teşekkürler,

Cells.SpecialCells(xlCellTypeFormulas, 23).Cells
If InStr(1, Hücre.Formula, "[") Then
Ek_Mesaj = IIf(Say = 1, "içeriği", "içerikleri")

satırlarını açıklayabilirseniz sevinirim.
saygılarımla

 

[Korhan Ayhan]

Selamlar,

Cells.SpecialCells(xlCellTypeFormulas, 23).Cells

Bu satırda sayfadaki tüm hücrelere bak sadece formül içeren hücreleri baz al komutu veriliyor.

If InStr(1, Hücre.Formula, "[") Then

Bu satırda formül içeren hücrede karakter olarak köşeli parantez varmı yokmu kontrol et komutu veriliyor.

Ek_Mesaj = IIf(Say = 1, "içeriği", "içerikleri")

Bu satır ise kullancıyı bilgilendirmek amacıyla ekrana gelecek mesaj kutusundaki cümle düşüklüğünü gidermek amacıyla oluşturulmuştur. Tamamen opsiyoneldir. Gereksiz görülürse silinebilir.

 

[hsayar]

açıklamalrınız iin teşekkürler
IIF komutu nedir diye sorabilirmiyim birde?

 

[Korhan Ayhan]

Selamlar,

IIF komutu IF ile başlayan şartlı sorgulama komutunu tek satırda yazabilme imkanı sağlar.

Örneğin aşağıdaki KOŞUL_1 ve KOŞUL_2 makroları aynı şeyi ifade etmektedir. Duruma göre her ikiside kullanılabilir.

Sub KOŞUL_1()
If [A1] = 1 Then
Değişken = "DOĞRU"
Else
Değişken = "YANLIŞ"
End If
MsgBox Değişken
End Sub
 
Sub KOŞUL_2()
Değişken = IIf([A1] = 1, "DOĞRU", "YANLIŞ")
MsgBox Değişken
End Sub

Ek_Mesaj = IIf(Say = 1, "içeriği", "içerikleri")

Değişken = IIf(Koşul, Koşul Doğru İse Yapılacak İşlem, Koşul Doğru Değilse Yapılacak İşlem)

Açıklaması;

Ek_Mesaj adında değişken oluşturuyoruz.

Döngüde kullandığımız Say değişkeni işlem yapılan hücre sayısı ifade
etmektedir. Bu değer 1 ise mesaj kutusunda çoğul kelime (1 adet dış bağlantılı hücre bulunmuştur ve içerikleri temizlenmiştir.) kullanmak yanlış olur. Bu sebeple içerikleri kelimesini içeriği olarak değiştiriyoruz.

Koşulumuzun sağlanmadığı durumda ise Ek_Mesaj=içerikleri şartı oluşacaktır. Bu durumda da Say değişkeni 1 'den büyük yani çoğul olacaktır. Sonuç olarak mesaj yazısında içerikleri kelimesi kullanılacaktır.

 

[baydeniro]

Sayın hsayar ve sayın Cost control, paylaşım için çok teşekkürler. Gerçekten bu kodlar çok yararlı oldu.

 

[uzmanamele]

merhaba
syn COST_CONTROL çok güzel açıklama.
bunu excel dersanesine koymanızı öneririm.

 

[hsayar]

saytın costcontrol açıklmalarınız için teşekkür ederim