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

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

  Új Válasz 2010-07-23 07:08:10 #7756

  Ú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

  Csúnya hiba, a feltételt kihagytam.

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

  A Munka2 lap fizikailag is második nálam, ezért a Sheets(2) hivatkozás is megfelel.

• #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