Здраствуйте! Пользуюсть таким макросом для переноса:
Помогоите с макросом что би проверял дату і переносил только в столбец шапка которого соответствующий дате шапки желтого столбца. Если он заполнен, то Msg box "Столбец с соответствующей датой уже заполнен.
Код |
---|
Sub заповнитисправа1() Dim i As Integer For i = 3 To Columns.Count If Application.WorksheetFunction.CountA(Columns(i).Resize(25)) = 0 Then Columns(i).Resize(304).Value = Columns(14).Resize(304).Value Exit Sub End If Next i End Sub |
Помогоите с макросом что би проверял дату і переносил только в столбец шапка которого соответствующий дате шапки желтого столбца. Если он заполнен, то Msg box "Столбец с соответствующей датой уже заполнен.