Açılışta neden 2 adet makro uyarısı var?

[poetisch]

Office 2007 kullanıyorum,aynı pencerede alt alta 2 makro uyarısı var,normal mi yoksa bi aksaklık mı oldu?
Dosyayıda gönderiyorum..

 

[Necdet]

Dosyanızda muhtemelen başka dosyaya bağlantı var.

Aşağıdaki kodları dosyanız üzerinde çalıştırarak bağlantılı hücreleri görünüz.

Kodlar yine bu siteden alınmıştır.

Sub LinkliHucreleriBul()
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&#305;nda " & No & " adet "
Next
MyMsg3 = "(Bulunan h&#252;creler sar&#305; renkle i&#351;aretlenmi&#351;tir.)"
MsgBox MyMsg1 & vbCrLf & WorksheetFunction.Rept("--", 20) & vbCrLf & "D&#305;&#351; ba&#287;lant&#305;l&#305; h&#252;cre bulundu." _
& vbCrLf & vbCrLf & "Bulunan h&#252;creler :" & vbCrLf & MyMsg2 _
& vbCrLf & vbCrLf & MyMsg3, , "Rapor !"
End Sub

 

[uzmanamele]

merhaba
tek makro uyarısı var. 2. pencere bağlantı bulunamadı uyarısı.
dosyanız ftr kesim.xls adlı başka bir dosyaya başvuruyor, bu dosya kapalıyken bu uyarıyı alırsınız.

 

[poetisch]

uzman arkadaşlara çok teşekkür ediyorum..Peki bu durumun çalışmama bi sakıncası varmı?

 

[uzmanamele]

merhaba
size engel olmaz.
syn Necdet Yeşertener'in önerdiği kodları çalıştırın. dış başvuru hüçrelerimim listesini alırsınız, takip edin hücre sarı renklidir.
dış bağlantılıdan kurtulmanın en kolay yolu;
düzen / bağlantılar / bağlantıyı kes, onaylayın

not: size engel olmaz dedim ama bu bağlantılar birşeye yarıyorduki zamanında forlüle edilmiş. kontrol etmeden silmeyin

 

[poetisch]

bu formülün açıklaması nedir?

=EĞER(('C:\Documents and Settings\necdet\Local Settings\Temporary Internet Files\Content.IE5\FVPS5OVO\[ftr kesim.xls]mutabakat'!G50=0);'C:\Documents and Settings\necdet\Local Settings\Temporary Internet Files\Content.IE5\FVPS5OVO\[ftr kesim.xls]mutabakat'!G51;'C:\Documents and Settings\necdet\Local Settings\Temporary Internet Files\Content.IE5\FVPS5OVO\[ftr kesim.xls]mutabakat'!G50)


bu formülü kısaca açıklayabilirmisiniz..Eğerli formülleri öğrenmek istiyorum...Teşekkür ederim.

 

[Necdet]

Merhaba,

Bence hatasız çalışmak en güzeli.

 

[poetisch]

tekrar teşekkürler...İyi çalışmalar..

 

[poetisch]

necdet hocam bu bi hatamı? Hataysa sizden ricam düzeltilmesi hakkında yardım edin lütfen..

 

[uzmanamele]

=EĞER(('C:\Documents and Settings\necdet\Local Settings\Temporary Internet Files\Content.IE5\FVPS5OVO\[ftr kesim.xls]mutabakat'!G50=0);'C:\Documents and Settings\necdet\Local Settings\Temporary Internet Files\Content.IE5\FVPS5OVO\[ftr kesim.xls]mutabakat'!G51;'C:\Documents and Settings\necdet\Local Settings\Temporary Internet Files\Content.IE5\FVPS5OVO\[ftr kesim.xls]mutabakat'!G50)


bu formülü kısaca açıklayabilirmisiniz..Eğerli formülleri öğrenmek istiyorum...Teşekkür ederim.

merhaba
bu formülle kafanızı karıştırmayın, aşağıdaki linki inceleyin

http://www.excel.web.tr/showthread.php?t=17327

 

[ECYavuz]

İyi Geceler,

=EĞER(('C:\Documents and Settings\necdet\Local Settings\Temporary Internet Files\Content.IE5\FVPS5OVO\[ftr kesim.xls]mutabakat'!G50=0);'C:\Documents and Settings\necdet\Local Settings\Temporary Internet Files\Content.IE5\FVPS5OVO\[ftr kesim.xls]mutabakat'!G51;'C:\Documents and Settings\necdet\Local Settings\Temporary Internet Files\Content.IE5\FVPS5OVO\[ftr kesim.xls]mutabakat'!G50)

anlatmak istediği Eğer orada ki (ftr kesim.xls) dosyasının (mutabakat'!) sayfasındaki G50=0 (G50 hücresinin) değeri sıfır ise G51 deki değeri al, yoksa G50 değeri iyidir.

Saygılar.

 

[poetisch]

cevaplayan arkadaşlara teşekkür ederim...
daha çok soru var =) ama ayıp olur diye sormuyorum..sonra işi gücü bırakıp senlemi uğraşacağız be kardeşim derseniz !!! =)

 

[uzmanamele]

merhaba
daha detalı istiyorsanız;
amcanın birinin makinesindeki C sürücüsündeki, dokümanlar klasöründeki, kullanıcı necdet olan vatandaşın, gizli local setting klasöründeki, geçici internet dosyası klasöründeki, Content.IE5 klasöründeki,FVPS5OVO klasöründeki, ftr kesim.xls dosyasındaki vs vs işlemleri yağ

 

[uzmanamele]

cevaplayan arkadaşlara teşekkür ederim...
daha çok soru var =) ama ayıp olur diye sormuyorum..sonra işi gücü bırakıp senlemi uğraşacağız be kardeşim derseniz !!! =)

merhaba
yok bişey demeyiz merak etmeyin.
arada bizede eğlence çıkıyor böyle :hihoho:

 

[Necdet]

Sayın uzmanamele,

Anlatırken nefesinizin bittiğini hissetim