у меня немного похожая тема вопроса потому отпишусь здесь!
помогите изменить код чтобы копировались данные не с одной ячейки, а с 2 и более смежных ячеек. и также сохранялись в смежных столбцах, как в примере?
заранее благодарен
'----------------------
'создаем глобальную переменную для управления программой
Public StartStop As Integer
'----------------------
'код для кнопки "Старт"
Private Sub CommandButton1_Click()
Dim PauseTime, Start
Dim LastQuote As String
'передаем переменной значение времени паузы
PauseTime = UserForm1.TextBox1.Value
'устанавливаем курсор на ячейку под которой будут записыватся данные
Range("QUOTE_COLLECT").Select
StartStop = 1
'запускаем цикл обращения к ячейке с данными из дде
Do While StartStop = 1
'перемещаем курсор на одну ячейку вниз
ActiveCell.Offset(1, 0).Select
'записываем в переменную значение котировок
LastQuote = Range("GBPUSD_QUOTE").Value
'записываем в переменную значение текущего времени в секундах
Start = Timer
'запускаем цикл для задержки времени (по дефолту 1 секунда)
Do While Timer < Start + PauseTime
DoEvents
Loop
'спустя одну секунду, записываем значение котировок в нужном месте
ActiveCell.Value = LastQuote
'находимся в цикле пока переменная StartStop = 1
Loop
End Sub
'--------------------------
'код для кнопки "Стоп"
Private Sub CommandButton2_Click()
'передаем переменной значение 2 для остановки цикла
StartStop = 2
'закрываем форму
Unload Me
End Sub
'--------------------------
