sn hocalarım herkese iyi günler
kullandığım bi dizi kod bana kafayı yedirdi.çünkü döngüyü bi türlü çeviremedim.
kullandığım kodlar;
On Error Resume Next
For i = 1 To Sheets.Count - 1
Sheets(i).Select
sat = [d7:d3000].Find(ComboBox1).Row
Cells(sat, 4).Select
Range("a" & ActiveCell.Row & ":d" & ActiveCell.Row).Clear
Next
olay ise özetle şöyle;
1den başlayarak son çalışma sayfasına kadar her sayfada d7:d3000 arasında combobox değerini bulacak ve o satırı a'dan d'ye silecek.çok güzel çalışıyor fakat bi sorun var.eğer o sayfada d7:d3000 sütununda combobox değerinde bir hücre yoksa hata veriyor. "on error resume next" ile gidermeye çalıştım o zamanda combobox değerinde hücre olsada olmasada o satırı siliyor. çok seçenek denedim ama olmadı.acaba göremediğim bişey mi var.siz belki bana yardımcı olabilirsiniz.
şöyle ki; o sütunda combobox değeri yoksa diğer sayfaya geçsin ve böylece devam etsin.
yardımlarınız için şimdiden teşekkür ederim.saygılar:yardim:
kullandığım bi dizi kod bana kafayı yedirdi.çünkü döngüyü bi türlü çeviremedim.
kullandığım kodlar;
On Error Resume Next
For i = 1 To Sheets.Count - 1
Sheets(i).Select
sat = [d7:d3000].Find(ComboBox1).Row
Cells(sat, 4).Select
Range("a" & ActiveCell.Row & ":d" & ActiveCell.Row).Clear
Next
olay ise özetle şöyle;
1den başlayarak son çalışma sayfasına kadar her sayfada d7:d3000 arasında combobox değerini bulacak ve o satırı a'dan d'ye silecek.çok güzel çalışıyor fakat bi sorun var.eğer o sayfada d7:d3000 sütununda combobox değerinde bir hücre yoksa hata veriyor. "on error resume next" ile gidermeye çalıştım o zamanda combobox değerinde hücre olsada olmasada o satırı siliyor. çok seçenek denedim ama olmadı.acaba göremediğim bişey mi var.siz belki bana yardımcı olabilirsiniz.
şöyle ki; o sütunda combobox değeri yoksa diğer sayfaya geçsin ve böylece devam etsin.
yardımlarınız için şimdiden teşekkür ederim.saygılar:yardim: