Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование по значению ячейки на другой лист - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование по значению ячейки на другой лист (Макросы/Sub)
Копирование по значению ячейки на другой лист
ann_tamb Дата: Понедельник, 25.04.2022, 09:44 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, подскажите пожалуйста,
необходимо копировать все строки с листа ПЕРЕЧЕНЬ на лист Иванов если в графе 6 указана фамилия Иванов.
Моя проблема в том, что копирование идет только по значению "Иванов", а если данная фамилия встречается в ячейке с другими (разделитель - Enter), то копирование не происходит.
Пример прилагаю.
Помогите пожалуйста (никак не дойду до истины).

[moder]исправлено[/moder]
К сообщению приложен файл: 6956836.xlsm(34.1 Kb)


Сообщение отредактировал ann_tamb - Понедельник, 25.04.2022, 12:27
 
Ответить
СообщениеЗдравствуйте, подскажите пожалуйста,
необходимо копировать все строки с листа ПЕРЕЧЕНЬ на лист Иванов если в графе 6 указана фамилия Иванов.
Моя проблема в том, что копирование идет только по значению "Иванов", а если данная фамилия встречается в ячейке с другими (разделитель - Enter), то копирование не происходит.
Пример прилагаю.
Помогите пожалуйста (никак не дойду до истины).

[moder]исправлено[/moder]

Автор - ann_tamb
Дата добавления - 25.04.2022 в 09:44
китин Дата: Понедельник, 25.04.2022, 09:52 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6895
Репутация: 1056 ±
Замечаний: 0% ±

Excel 2007;2010;2016
ann_tamb, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеann_tamb, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 25.04.2022 в 09:52
msi2102 Дата: Понедельник, 25.04.2022, 13:05 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 79 ±
Замечаний: 0% ±

Excel 2007
Замените строку
[vba]
Код
        If CStr(arr(li, 1)) <> sSubStr Then
[/vba]
на такую
[vba]
Код
        If Not CStr(arr(li, 1)) Like "*" & sSubStr & "*" Then
[/vba]
или такую
[vba]
Код
       If InStr(1, CStr(arr(li, 1)), sSubStr) = 0 Then
[/vba]


Сообщение отредактировал msi2102 - Понедельник, 25.04.2022, 14:52
 
Ответить
СообщениеЗамените строку
[vba]
Код
        If CStr(arr(li, 1)) <> sSubStr Then
[/vba]
на такую
[vba]
Код
        If Not CStr(arr(li, 1)) Like "*" & sSubStr & "*" Then
[/vba]
или такую
[vba]
Код
       If InStr(1, CStr(arr(li, 1)), sSubStr) = 0 Then
[/vba]

Автор - msi2102
Дата добавления - 25.04.2022 в 13:05
китин Дата: Понедельник, 25.04.2022, 13:18 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 6895
Репутация: 1056 ±
Замечаний: 0% ±

Excel 2007;2010;2016
msi2102, простите, а с какого переляка вы замечания модератора игнорируете? или вы просто их не видите?


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеmsi2102, простите, а с какого переляка вы замечания модератора игнорируете? или вы просто их не видите?

Автор - китин
Дата добавления - 25.04.2022 в 13:18
msi2102 Дата: Понедельник, 25.04.2022, 13:39 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 79 ±
Замечаний: 0% ±

Excel 2007
вы замечания модератора игнорируете

Извиняюсь, думал он исправил, просто у меня косяк при отображении, сейчас отредактирую
К сообщению приложен файл: 3516596.png(9.2 Kb) · 0607322.png(11.0 Kb)


Сообщение отредактировал msi2102 - Понедельник, 25.04.2022, 13:41
 
Ответить
Сообщение
вы замечания модератора игнорируете

Извиняюсь, думал он исправил, просто у меня косяк при отображении, сейчас отредактирую

Автор - msi2102
Дата добавления - 25.04.2022 в 13:39
китин Дата: Понедельник, 25.04.2022, 14:27 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 6895
Репутация: 1056 ±
Замечаний: 0% ±

Excel 2007;2010;2016
msi2102, написал вам, как можно исправить ваш код. у меняя код другой
[vba]
Код
Sub Макрос2()
ii_ = Sheets("ПЕРЕЧЕНЬ").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("ПЕРЕЧЕНЬ").Range("$A$1:$I$" & ii_).AutoFilter Field:=6, Criteria1:="Иванов*"
    
    Range("A2:I" & ii_).SpecialCells(xlCellTypeVisible).Copy
    Sheets("Иванов").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("ПЕРЕЧЕНЬ").Range("$A$1:$I$" & ii_).AutoFilter Field:=6
End Sub
[/vba]


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеmsi2102, написал вам, как можно исправить ваш код. у меняя код другой
[vba]
Код
Sub Макрос2()
ii_ = Sheets("ПЕРЕЧЕНЬ").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("ПЕРЕЧЕНЬ").Range("$A$1:$I$" & ii_).AutoFilter Field:=6, Criteria1:="Иванов*"
    
    Range("A2:I" & ii_).SpecialCells(xlCellTypeVisible).Copy
    Sheets("Иванов").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("ПЕРЕЧЕНЬ").Range("$A$1:$I$" & ii_).AutoFilter Field:=6
End Sub
[/vba]

Автор - китин
Дата добавления - 25.04.2022 в 14:27
ann_tamb Дата: Вторник, 26.04.2022, 14:00 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

msi2102, китин, спасибо огромное!
Извиняюсь за неправильное оформление. Спасибо, что исправили , а не удалили)


Сообщение отредактировал ann_tamb - Вторник, 26.04.2022, 17:00
 
Ответить
Сообщениеmsi2102, китин, спасибо огромное!
Извиняюсь за неправильное оформление. Спасибо, что исправили , а не удалили)

Автор - ann_tamb
Дата добавления - 26.04.2022 в 14:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование по значению ячейки на другой лист (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!