Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Считать с Input диапазон и вставить значения на лист
 
#1
12.04.2018 10:49:15
Доброго времени суток!

Пишу через VBA лог изменений в txt файл формата Названия листа | $AO$461 | значение. Потом я эти текстовые данные копирую в другой файл ексель, мне нужно прочитать эти данные с помощью VBA и перенести в соответствующие ячейки на новом листе,-указание выше
+ Как можно применить те же  действие но только по выделеной области в листе  Input?

Большое спасибо!
Изменено: qweewert - 12.04.2018 13:43:42
qweewert
 
 
 
#2
12.04.2018 11:26:48
  • "Когда вы говорите, Иван Васильевич, впечатление такое, что вы бредите.", шутка
  • пример ваще не понятный покажите более жизненный приближенный к реалиям а не то что вы придумали, есть ощущение что хотите расставить цену (число, сумму) возле какого то показателя
Лень двигатель прогресса, доказано!!!
 
 
 
#3
12.04.2018 11:46:28

Сделал)) извините

Изменено: qweewert - 12.04.2018 11:46:52
qweewert
 
 
 
#4
12.04.2018 11:59:32
Код
?
1
2
3
4
5
i = 2
Do While ThisWorkbook.Sheets("Input").Cells(i, 1) <> ""
          ThisWorkbook.Sheets(CStr(ThisWorkbook.Sheets("Input").Cells(i, 1))).Range(CStr(ThisWorkbook.Sheets("Input").Cells(i, 2))) = ThisWorkbook.Sheets("Input").Cells(i, 3)
i = i + 1
Loop
Изменено: ProFessor - 12.04.2018 11:59:49
Вся проблема сложных программ, целых томов кодов и состоит в несоблюдении принципа лезвия Оккама: «Не следует множить сущее без необходимости». Вся гениальность в простоте.
 
 
 
#5
12.04.2018 18:20:07
Добавил в модульь, сделал кнопку. но почему-то не работает, я не очень силен в VBA, наверно что-то не так сделал.
Код
?
1
2
3
4
5
6
7
8
Sub фівфівфів()'
i = 2
 
Do While ThisWorkbook.Sheets("Input").Cells(i, 1) <> ""
         ThisWorkbook.Sheets(CStr(ThisWorkbook.Sheets("Input").Cells(i, 1))).Range(CStr(ThisWorkbook.Sheets("Input").Cells(i, 2))) = ThisWorkbook.Sheets("Input").Cells(i, 3)
          i = i + 1
Loop
End Sub
Изменено: qweewert - 12.04.2018 19:24:00
qweewert
 
 
 
#6
12.04.2018 18:34:39
Цитата
qweewert написал: но почему-то не работает
Все работает. Прокрутите лист 'Output' вправо до столбца 'AN' и вниз до строки 28
Согласие есть продукт при полном непротивлении сторон
 
 
 
#7
12.04.2018 19:06:33
Извините я болван)))
Спасибо большое
qweewert
 
 
 
Страницы: 1
Читают тему
Loading...