+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Satır Silme Makrosu Hatası (/konu-satir-silme-makrosu-hatasi.html)
RE: Satır Silme Makrosu Hatası - ercansahiner61 - 30/04/2021
(30/04/2021, 19:07)feraz yazdı:ilginize teşekkürederim. şu an her iki kod da gayet güzel çalışıyor.Sub KapananHesabýSil()
Dim Syf As Worksheet, sonstr As Long, i As Long
Set Syf = ThisWorkbook.Worksheets("Vadeli Hesap")
Application.Calculation = xlCalculationManual
With Syf
On Error Resume Next
.ShowAllData
On Error GoTo 0
On Error GoTo son
sonstr = .Cells(Syf.Rows.Count, "A").End(xlUp).Row
If sonstr < 2 Then goto son
For i = sonstr To 2 Step -1
If Val(.Cells(i, "g").Value2) = 0 Then .Range("A" & i).EntireRow.Delete
Next
End With
son:
Application.Calculation = xlCalculationAutomatic
Set Syf = Nothing
End Sub
RE: Satır Silme Makrosu Hatası - feraz - 30/04/2021
(30/04/2021, 23:07)ercansahiner61 yazdı:(30/04/2021, 19:07)feraz yazdı:ilginize teşekkürederim. şu an her iki kod da gayet güzel çalışıyor.Sub KapananHesabýSil()
Dim Syf As Worksheet, sonstr As Long, i As Long
Set Syf = ThisWorkbook.Worksheets("Vadeli Hesap")
Application.Calculation = xlCalculationManual
With Syf
On Error Resume Next
.ShowAllData
On Error GoTo 0
On Error GoTo son
sonstr = .Cells(Syf.Rows.Count, "A").End(xlUp).Row
If sonstr < 2 Then Exit Sub
For i = sonstr To 2 Step -1
If Val(.Cells(i, "g").Value2) = 0 Then .Range("A" & i).EntireRow.Delete
Next
End With
son:
Application.Calculation = xlCalculationAutomatic
Set Syf = Nothing
End Sub
Rica ederim.6.mesajdakini kullanın gerçi ben değiştiririm exit subu.Çünkü tata olursa otomatik formül hesaplama iptal olur koddaki
Kod:
Application.Calculation = xlCalculationManualRE: Satır Silme Makrosu Hatası - ercansahiner61 - 01/05/2021
(30/04/2021, 23:07)ercansahiner61 yazdı:Günaydın aynı tabloda gizlenmiş olan H ve F sütunlarında formüllü alanlar var. Tabloya ekleme yaptığımda nedense üst satırdaki formül alt satıra değilde en alttaki boş hücreye başvuru yapıyor, yada tablodaki sütünların üzerine kopyalama yaptığımda kopyalama yaptığım satır kadar yan bakiye ve genel toplam formülleri tablo altındaki boş satıra başvuru yaptığı için boş formül olduğu halde boş geliyor. formülleri elle kopyalama yapmadan düzelmiyor, nedenini anlayamadım, benim istediğıim. koda bağlı olmadan ilgili satırdaki C3 hesap no alanı dolu olduğunda formüller devreye girsin istiyorum. birde buna bakabilirseniz memnun olurum.(30/04/2021, 19:07)feraz yazdı:ilginize teşekkürederim. şu an her iki kod da gayet güzel çalışıyor.Sub KapananHesabýSil()
Dim Syf As Worksheet, sonstr As Long, i As Long
Set Syf = ThisWorkbook.Worksheets("Vadeli Hesap")
Application.Calculation = xlCalculationManual
With Syf
On Error Resume Next
.ShowAllData
On Error GoTo 0
On Error GoTo son
sonstr = .Cells(Syf.Rows.Count, "A").End(xlUp).Row
If sonstr < 2 Then goto son
For i = sonstr To 2 Step -1
If Val(.Cells(i, "g").Value2) = 0 Then .Range("A" & i).EntireRow.Delete
Next
End With
son:
Application.Calculation = xlCalculationAutomatic
Set Syf = Nothing
End Sub
RE: Satır Silme Makrosu Hatası - feraz - 01/05/2021
(01/05/2021, 10:19)ercansahiner61 yazdı:Günaydın koda formül ekletip hallederiz bugün uygun zamanda.(30/04/2021, 23:07)ercansahiner61 yazdı:Günaydın aynı tabloda gizlenmiş olan H ve F sütunlarında formüllü alanlar var. Tabloya ekleme yaptığımda nedense üst satırdaki formül alt satıra değilde en alttaki boş hücreye başvuru yapıyor, yada tablodaki sütünların üzerine kopyalama yaptığımda kopyalama yaptığım satır kadar yan bakiye ve genel toplam formülleri tablo altındaki boş satıra başvuru yaptığı için boş formül olduğu halde boş geliyor. formülleri elle kopyalama yapmadan düzelmiyor, nedenini anlayamadım, benim istediğıim. koda bağlı olmadan ilgili satırdaki C3 hesap no alanı dolu olduğunda formüller devreye girsin istiyorum. birde buna bakabilirseniz memnun olurum.(30/04/2021, 19:07)feraz yazdı:ilginize teşekkürederim. şu an her iki kod da gayet güzel çalışıyor.Sub KapananHesabýSil()
Dim Syf As Worksheet, sonstr As Long, i As Long
Set Syf = ThisWorkbook.Worksheets("Vadeli Hesap")
Application.Calculation = xlCalculationManual
With Syf
On Error Resume Next
.ShowAllData
On Error GoTo 0
On Error GoTo son
sonstr = .Cells(Syf.Rows.Count, "A").End(xlUp).Row
If sonstr < 2 Then goto son
For i = sonstr To 2 Step -1
If Val(.Cells(i, "g").Value2) = 0 Then .Range("A" & i).EntireRow.Delete
Next
End With
son:
Application.Calculation = xlCalculationAutomatic
Set Syf = Nothing
End Sub
RE: Satır Silme Makrosu Hatası - feraz - 01/05/2021
s,t u sütunlarındada formüller var oraya karışmadım.
Yaptığım şöyle;
Eğer C sütununda 2 satırdan ,t,baren veri girilirse giftede gösterdiğim gibi boşsa ilgilisatırlar ya boş yada formülleniyor.
Tabii tek tek veri girmeniz gerek c sütununa o şart eklendi kopyala yapıştır yaparsanız birden fazla o zaman formüller eklenmez onun için ayrıca kod yazılmalı.
Eğer s,l makrosu çalışırsa G,H,I sütunlarına otomatik olarak formülleri ekler son satıra kadar C nin.
Birde H ve I sütunlarında çok fazla formül eklemişsiniz alta doğru bence gerek yok ona yavaşlamasın zaten c ye veri girdikçe formül ekleniyor otomatik yaptım.
Dosyayı teferruatlıca deneyiniz.
RE: Satır Silme Makrosu Hatası - ercansahiner61 - 01/05/2021
(01/05/2021, 12:27)feraz yazdı: s,t u sütunlarındada formüller var oraya karışmadım.hocam teşekkür ederim. güzel ama bir yerdeki sorun devam ediyor. sıfır bakiyeli satırları kodla sildirme işlemi yapıldııktan sonra sorun yok, ancak yedek sayfasındaki verileri vadeli hesap sayfasına kopyalama yaptığımda silmeden sonraki verileri kopyalanan hücnrelerde formül otomütik çalışmıyor yine alttaki boş satırı referans alıyor.
Yaptığım şöyle;
Eğer C sütununda 2 satırdan ,t,baren veri girilirse giftede gösterdiğim gibi boşsa ilgilisatırlar ya boş yada formülleniyor.
Tabii tek tek veri girmeniz gerek c sütununa o şart eklendi kopyala yapıştır yaparsanız birden fazla o zaman formüller eklenmez onun için ayrıca kod yazılmalı.
Eğer s,l makrosu çalışırsa G,H,I sütunlarına otomatik olarak formülleri ekler son satıra kadar C nin.
Birde H ve I sütunlarında çok fazla formül eklemişsiniz alta doğru bence gerek yok ona yavaşlamasın zaten c ye veri girdikçe formül ekleniyor otomatik yaptım.
Dosyayı teferruatlıca deneyiniz.