Последовательный перенос диапазонов - VBA

Узнай цену своей работы

Формулировка задачи:

Уважаемые профи подскажите с доработкой макроса идея есть но совсем все плохо у меня с диапазонами... Задача такая : нужно последовательно скопировать диапазоны(сначала зеленый, потом красный , потом оранжевый и тд) на другой лист(можно в этой же книге).Описываю свой сценарий: 0)из книги в которой макрос(основная) обращаюсь к книге в которой диапазоны(first) 1)ищу дату 2)определяю адрес ячейки c первой датой 3)копирую диапазон который под этой датой(до первой пустой строки- выделена желтым)- на лист2 4)перехожу ко второму диапазоны этой даты на лист3 5)перехожу к другой дате и тд. У меня получилось только найти адрес ячейки с первой датой когда пыталась работать с диапазоном то постоянно вывались ошибка application defined or object defined error вот такой макрос у меня получается:
Заранее спасибо! с Диапазонами (особенно нахождение последних строк(ячеек)) беда - не тяну их)

Решение задачи: «Последовательный перенос диапазонов»

textual
Листинг программы
Sub tt()
Dim f  As Range
'Dim r As Range
'Dim g As Range
'Dim y As Range
'Dim x As String
Dim dat1 As Date
'Dim sh As Worksheet
'Set sh = Sheets("Base")
dat1 = Cells(1, 1)
With Workbooks("first.xlsx").Sheets("Лист1")
Set f = .Columns(1).Find(dat1, , xlValues, xlWhole)
If f Is Nothing Then: MsgBox "NO": Exit Sub
.Range(.Cells(f.Row + 1, "a"), .Cells(f.End(xlDown).Row, "I")).Copy
End With
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.6 из 5
Похожие ответы