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

• #20386 Salex1 őstag Delila_1 #20359

  Új Válasz 2014-02-10 11:24:33 #20386

  Ú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

  

  Salex1

  őstag

  válasz Delila_1 #20359 üzenetére

  Köszi! kicsit átalakítva tudtam csak működésre bírni, biztos van egyszerűbb mód, de legalább működik.

  Range("K1").Value = ActiveSheet.Shapes("Text Box 558").TextFrame.Characters.Text
  Range("L1").Select
  ActiveCell.FormulaR1C1 = "=CONCATENATE(""*"",RC[-1],""*"")"
  Selection.AutoFilter Field:=2, Criteria1:=Range("L1").Text

  Lehetséges valahogy a makrót hozzárendelni a textbox elhagyásához, vagy a textboxban az enter megnyomásához?

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