Dosyayı inceleyip bilgi vereceğim Sayın @userx  teşekkürler.
				
				
			
			
			
			
	yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
			
				
	
			
			
			
			
			
			
		 Kolay Gelsin
 Kolay Gelsin
				
				
			Application.ScreenUpdating = TruesyfA.Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False(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
