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

• #34063 Fferi50 Topikgazda poffsoft #34062

  Új Válasz 2017-02-04 23:22:43 #34063

  Ú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

  

  Fferi50

  Topikgazda

  válasz poffsoft #34062 üzenetére

  Szia!

  Ehelyett:
  If usor > 1 Then
Range(i & "2:" & i & usor).Select
Application.CutCopyMode = False
Selection.Copy

Range("H" & sm).Select
ActiveSheet.Paste
sm = sm + usor - 1
End If
  Szerintem inkább így:
  If usor > 1 Then
Range(i & "2:" & i & usor).Copy Destination:=Range("H" & sm)
sm = sm + usor - 1
End If

  Selectet kerülni érdemes, ahol csak lehet.

  Üdv.

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