Satırdaki Formüllü hücreler silinmesin

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
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

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
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

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selamlar

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

Saygılar
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Formülü bir görelim. Örnek mahiyetinde tek bir formülü yazıp gönderebilirseniz iyi olur.
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
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
 
Katılım
2 Mart 2007
Mesajlar
603
Excel Vers. ve Dili
2003
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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:=[D1:D100]
[G1].AutoFill Destination:=[G1:G100]
[J1].AutoFill Destination:=[J1:J100]
End Sub
 
Katılım
22 Mart 2005
Mesajlar
847
Excel Vers. ve Dili
Excel-2003 TR.
Altın Üyelik Bitiş Tarihi
29-06-2023
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
 
Üst