DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
TEŞEKKÜR EDERİMA sütununda veriler varsa
B1 hücresine:
=EĞER(A1=0;0;"")
yazıp deneyin
FORMÜL ŞUAN YOKE sütununda;
E2 hücresinde bir Formül var mı?
Sub SIFIRLA()
son = Cells(Rows.Count, "E").End(xlUp).Row
For i = 2 To son
If Cells(i, "E") = 0 Then Cells(i, "F") = 0
Next i
End Sub
DENEYİP NETİCEYİ BİLDİRİYORUM HEMENDosyanızın yedeğini alarak deneyin,aşağıdaki Kod'u kullanabilirsiniz.
Kod:Sub SIFIRLA() son = Cells(Rows.Count, "E").End(xlUp).Row For i = 2 To son If Cells(i, "E") = 0 Then Cells(i, "F") = 0 Next i End Sub
TEŞEKKÜRLER TAM İSTEDİĞİM GİBİ OLDUDENEYİP NETİCEYİ BİLDİRİYORUM HEMEN