makro

[k.altiok]

Sayfa içinde herhangi bir hücrede " #BAŞV! " hatası içeren satırları silen makro lütfen.

 

[PLİNT]

Merhaba
(Hatalı formüller) bütün hücrelerin bulunduğu satırları silmek için;

Cells.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete

5. sütun için

Columns(5).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete

 

[k.altiok]

??

 

[k.altiok]

Merhaba
(Hatalı formüller) bütün hücrelerin bulunduğu satırları silmek için;

Cells.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete

5. sütun için

Columns(5).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete

olmadı
1 den 60 satırlar arasında " #BAŞV! " hatası içeren tüm satırlar silinecek

 

[PLİNT]

Merhaba
Ek dosyada örnek bulunuyor

https://dosyaup.com/d/NWWWOMEM

 

[PLİNT]

Aynı sütunda değilse şöylede yapabilirsiniz

Sub Makro1()
On Error Resume Next
For x = 60 To 2 Step -1
For Each a In Range("A" & x & ":G" & x).SpecialCells(xlCellTypeFormulas, 16).Cells
a.EntireRow.Delete
Next: Next
End Sub

 

[k.altiok]

Aynı sütunda değilse şöylede yapabilirsiniz

Sub Makro1()
On Error Resume Next
For x = 60 To 2 Step -1
For Each a In Range("A" & x & ":G" & x).SpecialCells(xlCellTypeFormulas, 16).Cells
a.EntireRow.Delete
Next: Next
End Sub

teşekkürler oldu, Bunuda gönderebilirseniz sevinirim şimdiden teşekkür.
2 sayfam var sayfa2 de H SÜTUNUNDA ALTTAN DOLU HÜCREDEN BAŞLAYIP YUKARI 3 SATIR VE YANDANDAN I SÜTUNUNDAN KOMŞU HÜCRELERİ
KOPYALAYIP TOPLAM 6 HÜCRE SAYFA1 DE H-I +9 SATIRA kopyalanacak (ÖRENEK SAYFA2'de H10-I12 SAYFA1'de H19-H21 SATIRLAR DEĞİŞKEN)

 

[PLİNT]

+9 kısmını tam anlayamadım, istediğiniz aşağıdaki gibimi?

https://dosyayukle.biz/tJd

Sub makro2()

x = Sheets("Sayfa2").Cells(Rows.Count, "H").End(3).Row
Sheets("Sayfa2").Range("H" & x - 2 & ":I" & x).Copy Sheets("Sayfa1").Range("H" & x + 9)

End Sub