formüllü hücrelerde uyarı almak!

[Amaxx]

excelde tüm sayfada formüllü hücrelere veri yazarken "burada zaten formül var, değiştirmek istiyor musunuz" gibisinden bir uyarı veren kod var mıdır?

 

[hamitcan]

Sayfa korumadan bu isteğinizi yapabilirsiniz.

 

[Amaxx]

ama 415 satırın 4 sütunu formülle dolu.... ben şu an formülü olmayan hücreleri seçip formüllendirmeye çalışıyorum ve sağlamalarını yapıyorum... bu esnada yanlışlıkla sildiklerim oluyor

 

[hamitcan]

Formülleri korumak için bence en iyi yöntem, Sayfa korumadır.

 

[metot]

sayın Amaxx

örnek dosyada bir çalışma yaptım, umarım istediğiniz gibidir

[c:c].SpecialCells(xlCellTypeFormulas, 1).Select
'Belirlenen aralıktaki formül içeren sayısal hücreleri seçer.

[c:c].SpecialCells(xlCellTypeFormulas, 2).Select
'Belirlenen aralıktaki formül içeren metinsel hücreleri seçer.

 

[erginozdemir]

sayın Amaxx,

aşağıdaki kod umarım işinize yarar. (kodu formüllerin olduğu sayfanın kod bölümüne yazmanız gerekli)

iyi çalışmalar.




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.HasFormula Then
MsgBox ("seçtiğiniz hücre zaten formül içeriyor. değiştirmek istediğinize eminmisiniz?")
End If
End Sub

 

[Amaxx]

ergin bey tam istediğim gibi teşekkür ederim
metot sizin ki de güzel olmuş fakat uyarı sonrası değiştirmeme izin vermiyor ,
ilginize teşekkürler

 

[Amaxx]

peki bunu her hücreye tıkladığımda değil de o hücreyi değiştirmeye kalktığımda uyarı verse nasıl olur?

 

[Seyit Tiken]

Bu şekilde bir koduda kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.HasFormula Then
sor = MsgBox("seçtiğiniz hücre zaten formül içeriyor. değiştirmek istediğinize eminmisiniz?", vbYesNo)
If sor = vbNo Then
Target.Offset(0, 1).Select
Else
Exit Sub
End If
End If
End Sub

 

[Amaxx]

seyit bey her hücreye tıkladığımda mesaj çıkıyor.... ben hücreye başka bişey yazmaya çalışırken sorsa omaz mı?

 

[metot]

sayın Amaxx

kod kullanmak yerine veri/doğrulamayı öneririm , dosyanız ektedir.

 

[Amaxx]

SÜper OlmmuŞ... Bunu Nasil Yaptiniz?

 

[metot]

1-öncelikle tüm sayfayı seçin, biçim/hücreler/koruma sekmesindeki "kilitli" ve "gizli" de bulunan işaretleri kaldırın
2- formül olan hücrelerin sol üst köşesinde küçük yeşil üçgen görünecektir.
3- bu hücrelerde formül var demektir, bu hücreleri tarayın(veya size daha önce gönderdiğim formül olan hücreleri gösteren butona tıklayarak formül olan tüm hücreleri seçebilirsiniz)
4- veri/doğrulama menüsündeki "ayarlar" ve "hata uyarısı" seçeneklerine göz atın ( bu alanla ilgili örneği görmek için; c2:c9 aralığını seçip veya bu aralıktaki herhangi bir hücreye tıklayıp veri/doğrulamayı açın , daha sonra bu alanlara istediğiniz seçenekleri yazın.)
kolay gelsin iyi çalışmalar....