Макросов/VBA, чтобы добавить текст на колонки, если есть текст, присутствующий в другую ячейку

У меня есть отчет, который я скачать. Он имеет меняя длины колонки A. Я ищу, чтобы создать VBA / макрос, который поместит определенный текст в M2, если есть любой данные, присутствующие в соответствующей ячейке. Я не хочу, чтобы он помещал данные в каждую ячейку в столбце M бесконечно, и только хочу, чтобы он помещал текст, если в соответствующей ячейке есть что-то.

Я пробовал, но это не работает:

Private Sub Worksheet_Change()
If Worksheets("Sheet1").Range("A2").Value <> "" Then
Worksheets("Sheet1").Range("M2").Value = "Testing"
End If
End Sub

кто может помочь?

1
задан Worthwelle
08.02.2023 5:27 Количество просмотров материала 2706
Распечатать страницу

2 ответа

первый код, который вы пробовали, проверяет одну ячейку (A2) и заполняет одну ячейку (M2). Если вы хотите проверить больше ячеек, поместите в макрос цикл "для каждой". Например, см. Как повторить задачи с кодом VBA, зацикливаясь

Если вы не хотите использовать макрос, вы можете использовать фильтр показать только строки со значениями в столбце А.

0
отвечен scenography 2023-02-09 13:15

Если вы под" соответствующей ячейкой " действительно имеете в виду A2, и ваш код верен, но выдает ошибки при попытке запустить его, попробуйте это:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A2").Value <> "" Then
    Range("M2").Value = "Testing"
End If
End Sub

Я предполагаю, что вы помещаете этот код в фактический рабочий лист, где вы хотите его запустить.

это напечатает " испытание "в" M2 "each time лист изменен когда что-то в"A2".

Если вы хотите, чтобы эта часть автоматически удаляется, а также, вы можете добавить

Else
Range("M2").Value = ""

в If.

0
отвечен Christofer Weber 2023-02-09 15:32

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх