Satırdaki Formüllü hücreler silinmesin

[Mdemir63]

Merhabalar

arkadaşlar sayfaya formla giriş yapıyoruz. örneğin en son girişi yanlış girdik satır sil ile siliyorum fakat formülleri de siliyor.son satırı silsin ama formüller kalsın bunu yaptırabilirmiyim?

Saygılar

 

[Mdemir63]

Sub Düğme2_Tıklat()
Sayfa2.Select
ONAY = MsgBox("SON GİRİLEN KAYDI SİLMEK İSTİYOR MUSUNUZ?", vbYesNo + vbCritical, "DİKKAT !")
If ONAY = vbYes Then
SON = [A65536].End(3).Row
Range(Cells(SON, 1), Cells(SON, 5)).ClearContents
Sheets("Sayfa1").Select
Else
MsgBox "SİLME İŞLEMİ İPTAL EDİLMİŞTİR.", vbInformation
Sheets("Sayfa1").Select
End If
End Sub
Arkadaşlar bu kodlarla 2. sayfadaki 1. sütun ile 5. sütun aralığındaki son satırı sildiriyorum.

Ancak şunu yapmak istiyorum bu kodlara son satırdaki formül olan hücreleri silmesin veya zaten benim formüllerim belli 3 tane (D, G, J sütunlarında)
sütunda bu sütundaki hücreler hariç son satırdaki hücreleri nasıl sildirebilirim.

Saygılar

 

[Mdemir63]

Selamlar

Bu konuda hiçbir fikri olan kimse yok mu? Olar veya olmaz anlamında

Saygılar

 

[Seyit Tiken]

Formülünüz, hangi sütunda ve kaç satırda bulunuyorsa belirtirseniz yardımcı olmaya gayret gösteririz. Yada, örnek bir dosya eklersenizde olur.

 

[Mdemir63]

Formülünüz, hangi sütunda ve kaç satırda bulunuyorsa belirtirseniz yardımcı olmaya gayret gösteririz. Yada, örnek bir dosya eklersenizde olur.

Hocam merhabalar

Yukarıda belirtmiştim yine yazayım

Formüller dosyamda D - G - ve J sütunlarında


Saygılar

Not: Dosyamı şu an ekleyemiyorum şu an kullandığım PC de Ofis yok

 

[Seyit Tiken]

Formülü bir görelim. Örnek mahiyetinde tek bir formülü yazıp gönderebilirseniz iyi olur.

 

[Mdemir63]

Formülü bir görelim. Örnek mahiyetinde tek bir formülü yazıp gönderebilirseniz iyi olur.

Selamlar

Örnek: D sütunu için: =C2-B2
G sütunu için: =F2-E2
J sütunu için =İ2-K2


Formüller aşağı doğru kopyalı şekilde

Saygılar

 

[conari]

Sub Düğme2_Tıklat()
Sayfa2.Select
ONAY = MsgBox("SON GİRİLEN KAYDI SİLMEK İSTİYOR MUSUNUZ?", vbYesNo + vbCritical, "DİKKAT !")
If ONAY = vbYes Then
SON = [A65536].End(3).Row
Range(Cells(SON, 1), Cells(SON, 5)).ClearContents
Sheets("Sayfa1").Select
Else
MsgBox "SİLME İŞLEMİ İPTAL EDİLMİŞTİR.", vbInformation
Sheets("Sayfa1").Select
End If
End Sub
Arkadaşlar bu kodlarla 2. sayfadaki 1. sütun ile 5. sütun aralığındaki son satırı sildiriyorum.

Ancak şunu yapmak istiyorum bu kodlara son satırdaki formül olan hücreleri silmesin veya zaten benim formüllerim belli 3 tane (D, G, J sütunlarında)
sütunda bu sütundaki hücreler hariç son satırdaki hücreleri nasıl sildirebilirim.

Saygılar

Range(Cells(SON, 1), Cells(SON, 5)).ClearContents
BU KODu kullanmadan
RANGE("A"&SON,"C"&SON).Clearcontents
RANGE("E"&SON,"F"&SON).Clearcontents
RANGE("H"&SON,"I"&SON).Clearcontents

kullanarak rapabilirsiniz. J sütundan sonra yazılan birşey var ise aynı işlem il sildirin.

 

[Seyit Tiken]

Aşağıdaki kodu, kullandığınız kodun devam kısmına(altına) kopyalayın. Hücre adreslerini kendinize uyarlayın.

Sub Düğme1_Tıklat()
[D1] = "=C2-B2"
[G1] = "=F2-E2"
[J1] = "=I2-K2"
[D1].AutoFill Destination:=[D1100]
[G1].AutoFill Destination:=[G1:G100]
[J1].AutoFill Destination:=[J1:J100]
End Sub

 

[Leoncio]

Merhaba;

Sub ikaz()
MsgBox ("Bu hücrenin içeriğini silemezsiniz !")
End Sub

Sub yenile()
Selection.SpecialCells(xlCellTypeFormulas).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=">0"
.ErrorTitle = "Kullanıcının Dikkatine !"
.ErrorMessage = " Hücrenin içeriğini değiştiremezsiniz!"
End With
[A1].Select
End Sub

Sub auto_open()
Call yenile
End Sub

Bu arada, Formüllerin silinmesini önlemek istediğiniz çalışma sayfasının VBA kısmına aşağıdaki satırları yerleştiriyoruz;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Left(ActiveCell.Formula, 1) <> "=" Then Application.OnKey "{DELETE}"
If Left(ActiveCell.Formula, 1) = "=" Then Application.OnKey "{DELETE}", "ikaz"
End Sub