Merhaba,
Bu kodu kullanarak işlem yapıyorum. Ama excelin gizli satırlara veri yazmasından endişe ediyorum. Excelin farklı sürümlerinde sorun yaşamak istemiyorum. Forumlarda gördüğüm kadarıyla filtreli alanda kullanıcılar benzer sorunları dile getirmişler. Excelde bu yönde bir gelişme var mı?
Kullandığım VBA kodu bu şekilde;
Option Explicit
Sub Filtre()
Dim Last_Row As Long
Dim First_Time As Double
Application.ScreenUpdating = False
First_Time = Timer
Range("C2:C" & Rows.Count).ClearContents
With Range("A:C")
Last_Row = Columns("A").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.AutoFilter 2, "<20"
Range("C2:C" & Last_Row).Value = "Kritik Stok"
.AutoFilter
End With
Debug.Print "Süre : " & Timer - First_Time
Application.ScreenUpdating = True
End Sub