Помогите переделать макрос.

[Rubinus]

Текст макроса:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'***********************************************
' help urllink-doggie-yandex.ru
'***********************************************

On Error GoTo Err

iClm = Target.Column: iRow = Target.Row

iDate = Target.Value

If iClm = 1 And iRow >19 And iRow < 301 Then

Select Case iDate
Case "1"
iDate = "Рога и копыта"
Case "2"
iDate = "Кидалов и сыновья"
Case "3"
iDate = "ООО Торговый Дом Шелупонь"
Case "4"
Rem : И так далее ...
End Select

Application.EnableEvents = False

Application.Undo

Target.Value = iDate

Application.EnableEvents = True

End If

Err: End Sub

Вопрос1
А можно этот макрос как нибудь расширить он делает автоподмену только в столбце А а мне нужно чтобы он делал подмену на одном листе но в нескольких столбцах к примеру в А, С, H.

Вопрос2
И можно ли в iDate = "" писать не текст а номер ячейки из которой нужно брать значение?

[Vitaly1]

Вопрос2
И можно ли в iDate = "" писать не текст а номер ячейки из которой нужно брать значение?

Target.Column - колонка ячейки
Target.Row - строка ячейки

[Rubinus]

Вопрос2
И можно ли в iDate = "" писать не текст а номер ячейки из которой нужно брать значение?

Target.Column - колонка ячейки
Target.Row - строка ячейки

А можно показать на примере данного макроса?

[Rubinus]

Помогите пожалуйста с этим вопросом:
Можно этот макрос как нибудь расширить он делает автоподмену только в столбце А а мне нужно чтобы он делал подмену на одном листе но в нескольких столбцах к примеру в А, С, H.

[Rubinus]

1.Можно сделать так чтобы в колонке A при вводе цифры 1 подставлялась одна информация,
в колонке B при вводе цифры 1 другая и т.д.
Что-то типа:
Часть кода, как это правильно оформить:
-------------------------------------------------------
If iClm = 1 And iRow > 19 And iRow < 301 Then

Select Case iDate
Case "1"
iDate = Параметры.Cells(1,2)
Case "2"
iDate = "ООО Торговый Дом Шелупонь"
Case "3"
iDate = "ООО Торговый Дом Шелупонь"
Case "4"
Rem : И так далее ...
End Select

If iClm = 2 And iRow > 19 And iRow < 301 Then

Select Case iDate
Case "1"
iDate = Параметры.Cells(1,2)
Case "2"
iDate = "ООО Торговый Дом Шелупонь"
Case "3"
iDate = "ООО Торговый Дом Шелупонь"
Case "4"
Rem : И так далее ...
End Select
-----------------------------------------------------

[Igor_123]

If iClm = 1 And iRow > 19 And iRow < 301 Then

Это читается как:
Если НомерСтолбца равен 1 и НомерСтроки больше 19 и НомерСтроки меньше 301 Тогда
Выполняем какие-то действия

If iClm = 2 And iRow > 19 And iRow < 301 Then

К тому-же ты и сам разобрался!

Удачи!