Поиск
Автор: BUVS. Коллеги, прошу извинить за возможный повтор.
В данный момент макрос учитывает пустоты и стопориться на них(копирует данные до пустот), что логично)).
Что нужно вписать, чтобы диапазон копировался до конца вместе с пустотами?
For i = 1 To 50
If Cells(1, i).Value = "Dest. Storage Type" Then
Range(Cells(1, i), Cells(1, i).End(xlDown)).Copy Worksheets("LT23").Range("V1")
Exit For
End If
Next i
Или не замарачиваться и вписать?Range(Cells(1, i ...
Изменен: 27.01.2017
Читать сообщение на форуме или сайте.Автор: Fleshsam. Добрый день! файл очень большой с кучей макросов но вот в чем проблема!
при запуске формы выполняется такая часть макроса по заполнению LISTBOXаV = Cells(Rows.Count, 1).End(xlUp).Row
RKES_data = Sheets("РКЭС").Range("A1:A" & V)
RKES.List = RKES_data
в этой строке 24 значения! Но почему то V=279
279 строка пустая
Удаляю строку 279 и все ок, проходит время и опять 279.
Другие макросы на этом листе отсутствую
Как понять в чем проблема и выловит ...
Изменен: 16.12.2016
Читать сообщение на форуме или сайте.Автор: guri. Помогите, пожалуйста, найти ошибку. Написала макрос на заполнение таблицы данными из другого файла. Проблема в том, что при следующем заполнении происходит замена уже имеющихся данных. А надо что б новые данные добавились ниже.
Sub zzzzz()
Dim Arr(1000, 40)
MsgBox "Укажите путь к сбыту"
FilePath1 = Application.GetOpenFilename()
MsgBox "Укажите путь к заполняемому файлу"
FilePath2 = Application.GetOpenFilename()
Workbooks.Open Filename:= ...
Изменен: 26.01.2016
Читать сообщение на форуме или сайте.