Заливка ячейки при нажатии CheckBox

[and150382]

Здравствуйте!


Есть UserForm1 на ней есть ComboBox и CheckBox. При вводе числа в ComboBox и нажатии на ОК, оно появляется на Листе1 в столбце С, при следующем вводе числа оно появляется в столбце С в следующей строке и тд.

Подскажите пожалуйста как реализовать задачу.
Если при вводе числа в ComboBox и поставить галочку в CheckBox и нажать ОК, чтобы ячейка с вводимым числом залилась зелёным.Если галочку не ставлю, то заливка не происходит.

[and150382]

Записать получилось вот что:

Private Sub CheckBox1_Click()
Range("C10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Но это только для одной ячейки.
А как сделать для всего столбца?

[IgorGO]

вместо
Range("C10").Select
With Selection.Interior
пишем:
With Columns(10).Interior

[SAS888]

Если я правильно понял задачу, то можно так:

Private Sub CommandButton1_Click()
    Dim x As Range
    Set x = Cells(Rows.Count, 3).End(xlUp).Offset(1): x = Val(ComboBox1)
    If CheckBox1 Then x.Interior.ColorIndex = 10
End Sub

[and150382]

Доброе утро!
CheckBox1 не работает.
Нужно чтобы если ставлю галочку, то номер документа заливается (столбец С). Если не ставлю, то не заливается. И так до 140 строки.
Посмотрите пожалуйста код в примере, может я что-то не так делаю.


И если кто-то знает подскажите почему у меня при последующем вводе данных в форме , предыдущие затираются.

Код на снятие блокировки листа 6161

[and150382]

Сообщение от and150382

Доброе утро!



И если кто-то знает подскажите почему у меня при последующем вводе данных в форме , предыдущие затираются.

Этот вопрос снимается. разобрался сам

[SAS888]

Если при вводе числа в ComboBox и поставить галочку в CheckBox и нажать ОК, чтобы ячейка с вводимым числом залилась зелёным.Если галочку не ставлю, то заливка не происходит.

Эту задачу решает предложенный мною код. Именно по нажатию на кнопку, в зависимости от того, стоит "галочка" в CheckBox-е, или нет, вводимое в следующую свободную ячейку из ComboBox-а число будет либо залито зеленым фоном, либо нет.

[and150382]

при вводе цифр в ComboBox (myColumn3) и нажатии кнопки "добавить" происходит добавление этой цифры в столбец С.
Если при вводе цифры в ComboBox (myColumn3) ставим галочку в CheckBox1 и нажимаем "добавить", то ячейка с вводимой цифрой должна окрасится в зелёный.

Если при вводе цифры в ComboBox (myColumn3) мы не ставим галочку в CheckBox1 и нажимаем "добавить", то с ячейкой ничего не происходит.

[and150382]

Если я вставляю ваш код

Private Sub CommandButton1_Click()
Dim x As Range
Set x = Cells(Rows.Count, 3).End(xlUp).Offset(1): x = Val(ComboBox1)
If CheckBox1 Then x.Interior.ColorIndex = 10
End Sub
то у меня ошибка
CommandButton1_Click() уже существует







пробую так



Private Sub CheckBox1_Click()
Dim x As Range
Set x = Cells(Rows.Count, 3).End(xlUp).Offset(1): x = Val(ComboBox1)
If CheckBox1 Then x.Interior.ColorIndex = 10
End Sub

тоже ошибка

[and150382]

Вот с таким кодом получается, но только в одной ячейке.
А как сделать чтобы во всем столбце если ставлю галочку ,то закрашивается определенная ячейка- не знаю.

Private Sub CheckBox1_Click()
Range("C10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub