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

• #33076 lenkei83 tag nesh20 #33074

  Új Válasz 2016-10-28 18:58:47 #33076

  Ú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

  

  lenkei83

  tag

  válasz nesh20 #33074 üzenetére

  Szia!

  Elnézést, átsiklottam ezen a részen.
  Kicsit átírtam a kódot.

  üdv
  P.

  Sub Masolas()

Dim ws_from As Worksheet
Dim ws_from_lastcolumn As Long
Dim ws_from_range As Range

Dim ws_to As Worksheet
Dim ws_to_lastrow As Long
Dim ws_to_range As Range

Set ws_from = Worksheets("Munka1")
Set ws_to = Worksheets("Munka2")
ws_from_lastcolumn = ws_from.Cells(2, ws_from.Columns.Count).End(xlToLeft).Column
Set ws_from_range = ws_from.Range("A2:" & Chr(ws_from_lastcolumn + 64) & 2)
ws_to_lastrow = ws_to.Cells(ws_to.Rows.Count, "B").End(xlUp).Offset(1, 0).Row
Set ws_to_range = ws_to.Range("B" & ws_to_lastrow & ":" & Chr(ws_from_lastcolumn + 65) & ws_to_lastrow)
ws_to_range.Value = ws_from_range.Value

End Sub

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