Страницы: 1
RSS
Разнесение значений по разным листам внутри одной книги по АДРЕСУ
 
Уважаемые коллеги!
В продолжение ранее заданного вопроса хочу переспросить (вопрос другой, поэтому в новой теме):
нужен макрос, раскидывающий значения по конкретным адресам (лист, столбец, строка).
В примере все понятно.

Спасибо!!!
чтоб дело мастера боялось, он знает много страшных слов.
 
См. файл
 
Ri Yu, на основании макроса из прошлой тем от Юрий М
Код
Sub Macro1()
Dim LastRow As Long, i As Long, Rng As Range, iCol As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 5 To LastRow
        If Cells(i, 1) = 1 Then
            With Worksheets(Cells(i, 2).Value)
            .Cells(Cells(i, 4), Cells(i, 3)) = Cells(i, 5)
            End With
        End If
    Next
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Ri Yu, Вы ещё в той теме не отписались, а уже новую создаёте.
 
Юрий М, я столкнулся с несколькими ограничениями в рамках предыдущей темы - ограничениями исходной постановки задачи.
Так часто бывает - когда получаешь ответ на свой вопрос понимаешь что сам вопрос был не верный.

Предложенные варианты кода работают все (отдельное спасибо еще раз  Матросу на зебре). Спасибо вам коллеги, вы очень крутые!!!
чтоб дело мастера боялось, он знает много страшных слов.
 
Просто отписывайтесь в своих темах.
 
Цитата
Ri Yu написал: Так часто бывает - когда получаешь ответ на свой вопрос понимаешь что сам вопрос был не верный
Тем более нужно написать и извиниться за то, то время отнимали.
Страницы: 1
Читают тему (гостей: 1)
Наверх