Длобрый день. Боюсь повторится с вопросом, но ничего не смог найти то что мне нужно. Гуру, прошу Вашей помощи в правильности написания макроса, а именно есть макрос который ищет значение и при нахождении вставляет данные в ячейку находящуюся правее. Вопрос: Как написать что бы при нахождении заданного значения в двух столбцах данные заносились в столбец "О" в ячейку напротив найденных данных
| Код |
|---|
If KeyCode = vbKeyReturn Then
Set R = Range("m5:n10000") 'Столбцы поиска данных
Set FR = R.Find(TextBox1.Text)
If Not FR Is Nothing Then
Range(FR.Offset(0, 1), FR.Offset(0, 1)).Activate 'в какой столбец вставлять, нужно здесь что бы указывался фиксированный столбец "О" напротив найденного значения
If CheckBox1 = False Then
UserForm1.Fr1.Caption = TextBox1.Text
UserForm1.L1.Caption = FR.Offset(0, - .Value. 'здесь указать фиксированный столбец с которой брать данные напротив найденного значения
UserForm1.TB1.Text = "1"
UserForm1.TB1.SelStart = 0
UserForm1.TB1.SelLength = Len(TextBox1.Text)
UserForm1.TB1.SetFocus
UserForm1.Show
Else: i = ActiveCell.Value
ActiveCell.Value = i + 1
End If
Else: Beep 1200, 300: Beep 1200, 300: Beep 1200, 1000:
MsgBox "ОШИБКА"
Beep 2000, 1000:
End If
TextBox1.Activate
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End If
End Sub |
