SÜZ

[polis-53]

Merhaba arkadaşlar aşağıdaki kodla B sütünü nü süzüyorum benim istediğim aynı kodda C,D,E sütünlarınıda süzebileyim yardımcı olursanız çok sevineceğim.

Private Sub Worksheet_Change(ByVal Target As Range)
suz = Range("B1")
If Target.Address = "$B$1" And Range("B1") <> "" Then
suz = Range("B1")
Range("B2:B65536").AutoFilter Field:=1
Range("B2:B65536").AutoFilter Field:=1, Criteria1:=suz
Else
Range("B2:B65536").AutoFilter Field:=1
End If
End Sub

 

[hamitcan]

Aralığı genişletin.

Range("B2:B65536")

Range("B2:E65536")

gibi

 

[polis-53]

Merhaba hamitcan ben bu kodla B sutününa göre süzüyorum örneğin B sütününa değilde C sütününa göre süzeceğim veya D sütününa göre süzeceğim...