نوشته اصلی توسط
habib100
سلام وقت بخیر دوستان
کسی راه حلی برای این موضوع داره؟ با vba یا ....
ممنونم
سلام وقت بخیر
کد vba را وارد میکنم ارور میده
میخام ستون C و ستون I فیلتر شوند
ممنونم
Sub allee_kiha_AF()
Const pmpt As String = "Show data for:"
Const ttl As String = "Criteria"
Const dflt As String = "<>2"
Dim c As Range, t As Range, w As String
w = Trim(InputBox(pmpt, ttl, dflt))
If Len(w) = 0 Then Exit Sub
With ThisWorkbook.Sheets("Rotation")
.Select
If .FilterMode Then .ShowAllData
Set t = .Range("A2:I2").CurrentRegion
Set c = .Range("A2:I2")
c.Value = Application.Transpose(Array("Row", w))
t.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=c, Unique:=False
c.ClearContents
End With
End Sub
علاقه مندی ها (Bookmarks)