Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос для переноса диапазона соответствующий дате
 
Здраствуйте! Пользуюсть таким макросом для переноса:

Код
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 "Столбец с соответствующей датой уже заполнен.
 
Какой-то очень знакомый макрос :D  И вопрос опять совершенно не понятен.

Если нужно проверять цвет ячейки - смотрите в сторону Interior.Color.
Если нужно проверять дату - то вообще не ясно какую дату и с чем сравнивать.
И вообще файл-пример не работает (кнопка ссылается на макрос из какой-то локальной книги + макрос, который в самой книге работает не корректно. Такое ощущение, что макрос в книге писали для примера. Как шаблон. Чтобы показать необходимый инструментарий. С расчётом на дальнейшую доработку 8) ).
Я не волшебник, я только учусь.
 
Wiss, макрос Вашей работи. цвет не нужно сравнивать. Сравнивать нужно дату ячейки N2 со следующими ячейками O2 и дальше.
 
Код
Sub заповнитисправа1()
    Dim c%
    c% = Range("O2:AR2").Find(What:=Range("N2").Value).Column
    If Cells(3, c%) <> "" Then
        VBA.MsgBox "Дата заполнена", vbInformation
        Exit Sub
    End If
    Range(Cells(3, c%), Cells(303, c%)).Value = Range("J3:J303").Value
End Sub

 
ivanok_v2,  спасибо. только:
Код
Range("J3:J303").Value

на
Код
Range("n3:n303").Value

Еще раз спасибо за не однократную помощь!
Страницы: 1
Читают тему (гостей: 1)
Наверх