VBA Excel: текстовое поле пользовательской формы для отображения значения ячейки, указанной в формуле - PullRequest
Новая
       25

VBA Excel: текстовое поле пользовательской формы для отображения значения ячейки, указанной в формуле

0 голосов
/ 15 апреля 2020

У меня есть книга Excel с двумя рабочими листами, которые используются моими руководителями и их помощниками для координации задач рабочего процесса.

Данные, добавленные на лист 1 (рабочий процесс вспомогательного персонала), «копируются» с использованием простой формулы в ячейке на листе 2 (рабочий процесс брокера) - т.е. формула ячейки B9 равна = «рабочий процесс вспомогательного персонала»! B9

Столбцы A: F идентичны на обоих листах, и эти столбцы защищены на Листе 2, поэтому их можно редактировать только на Листе 1

Когда брокер выбирает В ячейке в столбце B (Имя клиента) на Листе 2 становится видимой командная кнопка, чтобы они могли вызывать пользовательскую форму и выбирать задачи администрирования, которые должны выполнять сотрудники службы поддержки для этого клиента.

Моя пользовательская форма имеет 2 текстовых поля (имя клиента и номер политики) и различные опции Y / N для каждой задачи. Командная кнопка найдет совпадающее Имя клиента (Столбец B) и Номер Политики (Столбец E) на листе 1 и введет значение для задач, необходимых для этой транзакции.

Чтобы убедиться, что мы можем сопоставить имя клиента и номер политики на листе 1, я хочу автоматически заполнить эти текстовые поля до значения ячейки, которую брокер выбрал [для вызова пользовательской формы]. У меня проблема с получением кода VBA для извлечения текста на листе 1 вместо формулы, которая находится в выбранной ячейке на листе 2 (что приводит к пустому текстовому полю).

Я пробовал поиск в Интернете для решения, но не смог найти ничего, чтобы помочь.

Буду очень признателен за любую помощь, которую вы можете оказать.

Спасибо

РЕДАКТИРОВАТЬ

Код моей пользовательской формы (который пытается заполнить эти текстовые поля значениями из Листа 2): 

Private Sub UserForm_Initialize()
   With Me
       .TxtClient.Value = Cells(ActiveCell.Row,"B").Value 
       .TxtPolNum.Value = Cells(ActiveCell.Row,"E").Value
   End With
End Sub

Когда я запускаю форму, текстовые поля отображаются пустыми. Я предполагаю, что ActiveCell содержит формулу, а не фактическое значение / текст?

...