|
VBA Цикл While, копирование и удаление строк, введенных пользователем VBA
|
|||
---|---|---|---|
#18+
Пытаюсь просмотреть столбец D на похожие слова, слова пользователь вписывает сам, если слово похоже, то строчку нужно скопировать на новый лист, и продолжить поиск, лист создан в программе ранее, у меня цикл ходит по кругу или ошибка, как исправить? ... |
|||
:
Нравится:
Не нравится:
|
|||
22.09.2021, 21:44 |
|
VBA Цикл While, копирование и удаление строк, введенных пользователем VBA
|
|||
---|---|---|---|
#18+
Предлагаете проверить ваш код, набив его со скриншота самостоятельно? ... |
|||
:
Нравится:
Не нравится:
|
|||
22.09.2021, 22:43 |
|
VBA Цикл While, копирование и удаление строк, введенных пользователем VBA
|
|||
---|---|---|---|
#18+
Shocker.Pro, извините, не подумал Код: vbnet 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20.
Модератор: Учимся использовать тэги оформления кода - FAQ ... |
|||
:
Нравится:
Не нравится:
|
|||
23.09.2021, 10:20 |
|
VBA Цикл While, копирование и удаление строк, введенных пользователем VBA
|
|||
---|---|---|---|
#18+
Вынесите ActiveCell.Offset(1, 0).Activate за пределы IF() . ... |
|||
:
Нравится:
Не нравится:
|
|||
23.09.2021, 10:29 |
|
VBA Цикл While, копирование и удаление строк, введенных пользователем VBA
|
|||
---|---|---|---|
#18+
Akina, Попробовала вынести, получилась ерунда, одна и та же строчка много раз на новом листе. Sub A6() Dim b As String c = InputBox("Введите город для анализа:") a = InputBox("Введите должность для анализа:") b = MsgBox("Есть ли ещё варианты названия данной должности?", vbYesNo) If b = vbYes Then a_1 = InputBox("Введите ещё должность для анализа:") Range("D:D").Activate Do While ActiveCell.Value <> "" If ActiveCell.Value Like a Or ActiveCell.Value Like a_1 Then Sheets("vacancy").Range("A2:M2000").Value = Rows(ActiveCell.Row).Value End If ActiveCell.Offset(1, 0).Activate Loop End Sub ... |
|||
:
Нравится:
Не нравится:
|
|||
23.09.2021, 20:51 |
|
VBA Цикл While, копирование и удаление строк, введенных пользователем VBA
|
|||
---|---|---|---|
#18+
Alimov97 и та же строчка много раз на новом листе. Ну так код Код: vbnet 1.
он и подразумевает, что нечто N будет записано во все ячейки диапазона A2:M2000 ... |
|||
:
Нравится:
Не нравится:
|
|||
23.09.2021, 22:26 |
|
|
Start [/forum/topic.php?fid=60&tid=2154705]: |
0ms |
get settings: |
26ms |
get forum list: |
11ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
69ms |
get topic data: |
16ms |
get forum data: |
4ms |
get page messages: |
329ms |
get tp. blocked users: |
2ms |
others: | 191ms |
total: | 656ms |
0 / 0 |