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

• #21084 Salex1 őstag Delila_1 #21080

  Új Válasz 2014-03-25 09:57:04 #21084

  Ú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 #21080 üzenetére

  Rendszerek C oszlopát kell a Munkák B oszlopba, illetve a H-t a H-ba.
  De a lényeg, hogy a munkafüzet megnyitásánál az auto_open makróban rendesen lefut, hiba nélkül, viszont, egy command_button-hoz rendelve, ugyanazon szöveg átmásolva már nem. Nem okoz hibát, de nem is végzi el a feladatát.

  Sheets("Rendszerek").Select
  ' megkeresi az utolso ures cellat
  FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
  ' vegigmegy a cellakon 2_vel kezdve
  For X = 2 To FinalRow
  ' eldönti másoljon-e a cells_x,15 cella alapján
  ThisValue = Cells(X, 15).Value
  If ThisValue = "1" Then
  ' ha a 15 azaz O cella 1 akkor masol
  Cells(X, 3).Resize(1, 1).Copy
  ' munka1 lap kivalasztasa
  Sheets("Munkák").Select
  ' a kovetkezo ures sor 2 azaz B oszlopaba irja a kivalasztott cellat
  NextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
  Cells(NextRow, 2).Select
  Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
  xlNone, SkipBlanks:=False, Transpose:=False
  Sheets("Rendszerek").Select
  Cells(X, 15) = "áttéve"
  ' a lejáratidátumot is átviszi a 8.(H) oszlopba
  Cells(X, 8).Resize(1, 1).Copy
  Sheets("Munkák").Select
  Cells(NextRow, 8).Select
  Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
  xlNone, SkipBlanks:=False, Transpose:=False
  ' 7. oszlopba beírja, hogy TERV
  Cells(NextRow, 7).Select
  ActiveCell.FormulaR1C1 = "Terv"
  Sheets("Rendszerek").Select
  End If
  Next X
  ' kijelölés megszüntetése
  Application.CutCopyMode = False
  
  Sheets("Munkák").Select
  Selection.AutoFilter Field:=7, Criteria1:="<>kész", Operator:=xlAnd

  Szerk: Jut eszembe, lehetséges valahogy a command_buttonnal meghívni az auto_open makrót?

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