Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

формулы в значения с авто-фильтром

Автор Jim, 03.04.2012, 11:38

« назад - далее »

Jim

всем привет!

как можно перевести данные расчитанные по формуле в значение, при этом не снимая фильтра.

пример во вложении.

если это можно с помощью макроса то было бы замечательно.

Wasilic

Цитата: Jim от 03.04.2012, 11:38
как можно перевести данные расчитанные по формуле в значение, при этом не снимая фильтра.

если это можно с помощью макроса то было бы замечательно.
Так наверное!
Sub zzz()
    For i = 2 To Range("D" & Rows.Count).End(xlUp).Row
        Cells(i, 4) = Cells(i, 4).Value
    Next
End Sub
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Jim

а как сделать чтобы можно было выбирать в каком столбце переводить формулы в значения? т.е. чтобы не ссылалось конкретно на столбец D

Wasilic

Так будет обработан столбец, на котором стоит курсор.
Sub zzz()
  KL = Selection.Column
  For i = 2 To Cells(Rows.Count, KL).End(xlUp).Row
      Cells(i, KL) = Cells(i, KL).Value
  Next
End Sub
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.