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

• #33743 Fferi50 Topikgazda the radish #33736

  Új Válasz 2017-01-18 21:50:17 #33743

  Ú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 the radish #33736 üzenetére

  Szia!

  Sub masolos()
Dim sor As Integer
For sor = 1 To 160
Range("A" & sor & ":B" & sor).Copy Destination:=Range("x" & sor)
Application.Wait Now + TimeSerial(0, 0, 3)
DoEvents
Next
End Sub

  A Range("x" & sor) helyére írd a célcella címét.

  Üdv.

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