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

• #23364 m.zmrzlina senior tag slashing #23360

  Új Válasz 2014-09-21 08:12:59 #23364

  Ú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

  

  m.zmrzlina

  senior tag

  válasz slashing #23360 üzenetére

  Nekem ezt sikerült kiötleni:

  Sub makro_1()
  
  elsouzenet = InputBox("blablabla1")
  masodikuzenet = InputBox("blablabla2")
  datum = InputBox("datum")
  
  Range("D5").Select
  Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).Column)).Select
  
  Selection.Copy
  Sheets.Add
  ActiveSheet.Paste
  
  hanysor = Selection.Rows.Count
  hanyoszlop = Selection.Columns.Count
  
  For i = hanyoszlop To 1 Step -1
  Range(Cells(1, i), Cells(hanysor, i)).Select
  Selection.Insert Shift:=xlToRight
  Selection.Value = elsouzenet
  Next
  
  Range("A:B").Select
  Selection.Insert Shift:=xlToRight
  
  Range("B1").Value = masodikuzenet
  Range("A1").Value = datum
  
  Range(Cells(1, 1), Cells(hanysor, ActiveCell.End(xlToRight).Column)).Select
  Selection.Copy
  
  End Sub

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