Új hozzászólás Aktív témák

• #7755 Delila_1 veterán föccer #7754

  Új Válasz 2010-07-23 06:52:40 #7755

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz föccer #7754 üzenetére

  Sub filt()
  Dim i As Integer
  
  Cells(1).Select
  For i = 1 To 20
  Selection.AutoFilter Field:=i, Criteria1:=Sheets("Munka2").Cells(i, 2)
  Next
  End Sub

  Munkalapon egy cella meghatározása B10, makróban felcserélődik a sor, és oszlop helyzete, cells(10,2).

Új hozzászólás Aktív témák