Пишу через VBA лог изменений в txt файл формата Названия листа | $AO$461 | значение. Потом я эти текстовые данные копирую в другой файл ексель, мне нужно прочитать эти данные с помощью VBA и перенести в соответствующие ячейки на новом листе,-указание выше + Как можно применить те же действие но только по выделеной области в листе Input?
"Когда вы говорите, Иван Васильевич, впечатление такое, что вы бредите.", шутка
пример ваще не понятный покажите более жизненный приближенный к реалиям а не то что вы придумали, есть ощущение что хотите расставить цену (число, сумму) возле какого то показателя
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
Вся проблема сложных программ, целых томов кодов и состоит в несоблюдении принципа лезвия Оккама: «Не следует множить сущее без необходимости». Вся гениальность в простоте.
Добавил в модульь, сделал кнопку. но почему-то не работает, я не очень силен в VBA, наверно что-то не так сделал.
Код
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