Форма заполнения ячеек

[Severny]

Помогите пожалуйста оптимизировать работу.
Во вложении пример который моделирует мою задачу, хотя и несколько минимально. Суть такова: есть немаленькая таблица у которой много стобцов, тоесть они уходят все за экран вправо. Так как надо часто редактировать таблицу приходится уходить вправо и искать нужную ячейку, что иногда создает трудности. Впринципе я создал форму с TextBox-ами которые заполняют нужные мне ячейки, но получается так что таких текстбоксов очень уж много (каждый со своим форматом записи в ячейку), тем более что табличка не часто но растет вниз. Скажу чесно терпения у меня еле-еле хватило что бы написать код для одной строки.
Можно ли создать привязаную к ячейке А1 (см. вложеный файл) кнопку которая бы заполняла несколько ячеек справо от себя (В1, С1, D1-для файла) с возможностью ее копировать для строки ниже? В макросе я использую абсолютные ссылки на ячейки, может быть нужно использовать относительные, но я не знаю как.

[doober]

Щёлкаем по нужной ячейке в столбце А
И вводим данные

[Severny]

Благодарю Вас!
Если Вы не против, могу я задать пару уточняющих вопросов?
DisplayIcon, DisplayIcon1, DisplayIcon2 Зачем 3 штуки?
И какми образом Вы заставили фигуру выскакивать из активной ячейки?

[doober]

И какми образом Вы заставили фигуру выскакивать из активной ячейки?

Кликом по ячейке

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set oIcon = Nothing
If Target.Rows.Count = 1 And Target.Columns.Count = 1 _
And Target.Column = 1 Then
  Set oIcon = New ICONNS
 oIcon.DisplayIcon Me, Target.Top, Target.Left + Target.Width, Target.Height
End If
End Sub

В модуле класса выполняется процедура

   Public Sub DisplayIcon(oSheet As Worksheet, lTop As Long, lLeft As Long, lHeight As Long)
 On Error Resume Next

  Set oShape = oSheet.Shapes.AddShape(msoShapeRectangle, lLeft, lTop, 19, lHeight)

  oShape.Fill.Transparency = 0.5
  oShape.Fill.Solid
  oShape.Fill.Visible = msoCTrue
  oShape.Line.Weight = 0.25
 oShape.Line.ForeColor.SchemeColor = 8' Поиграйтесь с цветовой гаммой
  oShape.Fill.ForeColor.SchemeColor = 15'

  oShape.Placement = xlFreeFloating
  oShape.OnAction = "Command"

     End Sub

используйте одну.
Это я со старого проекта выдернул.
Работа была в разных диапазонах.И у каждой кнопки был свой цвет и макрос

[Severny]

Благодарю. Можно еще проликбезить

If Target.Rows.Count = 1 And Target.Columns.Count = 1 _
And Target.Column = 1 Then

?

[Severny]

И еще такой момент, уже касательно формы.
Как сделать так что бы когда открывается форма, то в ТексБоксах уже стояли значения ячеек, которые потом можно редактировать?

Решил:

Private Sub UserForm_Activate()
  Set oIcon = Nothing
  TextBox1.Value = ActiveCell.Offset(0, 1)
End Sub

[IgorGO]

Target - это диапазон ячеек (см.в обьявлении процедуры)
If Target.Rows.Count = 1 в диапазоне 1 строка
And Target.Columns.Count = 1 в диапазоне 1 колонка
And Target.Column = 1 Then это находится в первой колонке.
диапазон содержащий 1 строку и одну колонку - это ячейка.
поэтому можно было переписать

If Target.Cells.Count = 1 And Target.Column = 1 then...

[doober]

Волоски в бороде на исходе.
Все в файле

[Severny]

Спасибо! Изучаю предложеный материал