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

• #21066 Salex1 őstag

  Új Válasz 2014-03-24 08:54:39 #21066

  Ú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

  Az mitől lehet, hogy ha auto_opennel hívok meg egy makrót akkor rendben működik, de, ha ugyan azt command_button-nal teszem, akkor látszólag lefut, de nem hajtja végre a feladatát?
  Egyik munkalapról a másikra kellene bizonyos adatokat átmásolni neki...

  Private Sub CommandButton4_Click()
  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 az O cella 1 akkor masol
  Cells(X, 3).Resize(1, 1).Copy
  ' munka1 lap kivalasztasa
  Sheets("Munkák").Select
  ' a kovetkezo ures sorba 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 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
  ' G oszlopba beírja, hogy TERV
  Cells(NextRow, 7).Select
  ActiveCell.FormulaR1C1 = "Terv"
  Sheets("Rendszerek").Select
  End If
  Next X
  Application.CutCopyMode = False
  Sheets("Munkák").Select
  Selection.AutoFilter Field:=7, Criteria1:="<>kész", Operator:=xlAnd

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