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

• #25209 gdodi csendes tag m.zmrzlina #25204

  Új Válasz 2015-01-28 14:37:24 #25209

  Ú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

  

  gdodi

  csendes tag

  válasz m.zmrzlina #25204 üzenetére

  Még kidolgozás alatt van az egész elképzelés, több szempontból kell adatokat kigyűjteni több táblázatba. Erre szükségem is van, és szeretném megtanulni is ezt a programozást. Jelenleg ennyi az egész:
  Sub Makró00()
  '
  ' Makró00 Makró
  '

  '
  Rows("1:1").Select
  Selection.Copy
  Sheets.Add After:=Sheets(Sheets.Count)
  Range("A1").Select
  ActiveSheet.Paste

  Sheets("tmp").Select

  Dim eleje As Long
  Dim vege As Long
  eleje = 2
  vege = Cells(1, 9) + 1
  Worksheets("tmp").Rows(eleje & ":" & vege).Copy Destination:=Worksheets("Munka2").Rows(eleje & ":" & vege)
  Worksheets("tmp").Rows(eleje & ":" & vege).Delete Shift:=xlUp

  ' A munkalap formázása és átnevezése
  Sheets("Munka2").Select
  Columns("A").Select
  Columns("A").EntireColumn.AutoFit
  Columns("G:L").Select
  Selection.Delete Shift:=xlToLeft
  Sheets("Munka2").Select
  Sheets("Munka2").Name = "00"
  Range("A1").Select

  End Sub

  Ezt szeretném még tovább bővíteni. Remélem menni fog. Ha mégsem menne, megint segítségért folyamodok.

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