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

• #7753 föccer nagyúr Delila_1 #7725

  Új Válasz 2010-07-22 23:48:34 #7753

  Ú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

  

  föccer

  nagyúr

  válasz Delila_1 #7725 üzenetére

  Na, most van időm jobban átnézni, hogy mi írtál.

  Az a helyzet, hogy nem teljesen erre gondoltam. Az eredeti elképzelés az, hogy a van egy olyan lapom, ahol beállítom a szűrési feltételeket. Ehhez nem használok makt, hanem simán, a legördíthető is listákat. Ezután (egy másik munkalapon) megnyomok egy gombot, és voilá, töltöget nekem minden félét.

  Valami ilyesmi az elképzelés:

  Private Sub CommandButton1_Click()

  Dim i As Integer

  For i = 1 to 20
  With ThisWorkBook.Sheets("munka2").autofilter.field(i)
  if not criterial1 = "" then
  cells("B", i).value = .citerial1
  end if
  end with
  Next

  End Sub

  És persze a print a végére, de az már csk formaság...

  Viszont valami nem kerek, mert nem akar menni...

  i need help

  köccke

  Üdv, föccer

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