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

• #13911 hallgat csendes tag Delila_1 #13834

  Új Válasz 2012-05-30 16:36:41 #13911

  Ú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

  

  hallgat

  csendes tag

  válasz Delila_1 #13834 üzenetére

  Szia!

  A segítséget még egyszer köszönöm!

  Végül ez lett a nyerő kód, bár fogalmam sincs, hogy miért nem működött addig, míg Nem a munkalap azonosítókkal együtt jelölgettem ki a területeket

  A lényeg, hogy működik:

  Sheets("Munka1").Range("B1:T1").Copy
  Sheets("Munka2").Range("L2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=True
  
  
  usor = Sheets("Munka2").Range("A1").End(xlDown).Row
  
  Sheets("Munka2").Activate
  Sheets("Munka2").Range("L2:L20").Copy
  Sheets("Munka2").Range("L21:" & "L" & usor).Select
  ActiveSheet.Paste
  
  Application.CutCopyMode = False
  Selection.AutoFilter Field:=14, Criteria1:="=", Operator:=xlOr, Criteria2:="<1"

  Hátha valakinek még jól jön...

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