Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Удаление данных в столбце по выбору номера столбца
 
Помогите пожалуйста. При выборе номера столбца удаляются  данные этого столбца.
Файл прилагается
 
Вот это удаляет целиком столбец:
Код
Private Sub CommandButton2_Click()
'удаляет столбец по нажатию на кнопку "Удалить"
Dim cell As Range
Set cell = Rows(6).Find(ComboBox2.Text)
If Not cell Is Nothing Then cell.EntireColumn.Delete
End Sub
С уважением,
Федор/Все_просто
 
Все_просто Надо чтобы данные в определённом диапазоне удалял. Как в форме.
 
Код
Private Sub CommandButton2_Click()
Dim I As Integer
For I = 8 To 16 Step 2
    Sheets("Лист1").Cells(I, Val(Me.ComboBox2.Text)).Clear
Next
End Sub

Цитата
ХАВ62, Надо чтобы по выбору столбца удалялись только данные в этом столбце минуя формулы.

В какой-то из Ваших предыдущих тем по этому примеру уже спрашивали - Зачем там вообще формулы раз макросы применяете? Считайте все в коде и выгружайте готовые данные на лист.

 
Изменено: Sanja - 1 Мар 2015 23:25:10
Согласие есть продукт при полном непротивлении сторон.
 
Минуя формулы ▼
Код
Private Sub CommandButton2_Click()
    On Error Resume Next
    Range(Cells(8, Val(Me.ComboBox2.Text)), Cells(17, Val(Me.ComboBox2.Text))).SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
 
ВСЕМ СПАСИБО !!!
Страницы: 1
Читают тему (гостей: 1)