Dosyayı inceleyip bilgi vereceğim Sayın @userx teşekkürler.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Application.ScreenUpdating = True
satırının hemen üstünesyfA.Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
kodunu ekleyebilirsiniz.
(29/10/2021, 22:12)userx yazdı: Sayın @yyhyAyarlardanda sıfır olanları gizle gibi bir seçenek var biliyorum abey.
Eğer tabolda 0 (sıfır) olan değerlerin görünmesini istmiyorsanız. Kod sayfasındaki en sondaki
satırının hemen üstüneApplication.ScreenUpdating = True
kodunu ekleyebilirsiniz.syfA.Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False