Ú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.

• #33738 lappy őstag the radish #33736

  Új Válasz 2017-01-18 21:12:48 #33738

  Ú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

  

  lappy

  őstag

  válasz the radish #33736 üzenetére

  WaitTime = Now() + TimeValue("00:01:00")
While Now() < WaitTime
DoEvents
Wend

  a késleltető tag

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