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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск в определенной колонне - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в определенной колонне (Макросы/Sub)
Поиск в определенной колонне
Tavlar Дата: Пятница, 16.10.2020, 09:50 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте
Помогите, пожалуйста, написать макрос
Нужно в листе 1 найти в колонне E все значения 1 и перенести соответствующие значения из соседних ячеек в таблицу на листе 2
К сообщению приложен файл: 8482906.xlsx(11.9 Kb)
 
Ответить
СообщениеЗдравствуйте
Помогите, пожалуйста, написать макрос
Нужно в листе 1 найти в колонне E все значения 1 и перенести соответствующие значения из соседних ячеек в таблицу на листе 2

Автор - Tavlar
Дата добавления - 16.10.2020 в 09:50
gling Дата: Пятница, 16.10.2020, 20:50 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2183
Репутация: 544 ±
Замечаний: 0% ±

2010
Здравствуйте.
Если вы на листе "Лист1" поставите фильтр по 1 в столбце Е "Номер прибора", а потом, после нажатия правой кнопкой мыши (ПКМ) выберите скрыть столбец "Е" и скопируете то что осталось на "Лист2", вы увидите нужный вам результат. Ну а если перед выполнением вышеописанного включить запись макроса, макрорекордером, то у вас получится готовый макрос.


ЯД-41001506838083
 
Ответить
СообщениеЗдравствуйте.
Если вы на листе "Лист1" поставите фильтр по 1 в столбце Е "Номер прибора", а потом, после нажатия правой кнопкой мыши (ПКМ) выберите скрыть столбец "Е" и скопируете то что осталось на "Лист2", вы увидите нужный вам результат. Ну а если перед выполнением вышеописанного включить запись макроса, макрорекордером, то у вас получится готовый макрос.

Автор - gling
Дата добавления - 16.10.2020 в 20:50
Dmitriy_37 Дата: Воскресенье, 18.10.2020, 17:06 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 4 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте!

[vba]
Код
Sub qwer()
Dim ws As Worksheet, rng As Range
Dim x As Integer, rw As Integer
Set ws = ThisWorkbook.Worksheets("Лист2")
Set rng = ThisWorkbook.Worksheets("Лист1").Cells.Find("дата").CurrentRegion
rw = 6
With rng
    For x = 2 To .Rows.Count
        If .Cells(x, 3) = 1 Then
            ws.Range("D" & rw) = .Cells(x, 1)
            ws.Range("E" & rw) = .Cells(x, 2)
            ws.Range("F" & rw) = .Cells(x, 4)
            rw = rw + 1
        End If
    Next x
End With
End Sub
[/vba]


Сообщение отредактировал Dmitriy_37 - Воскресенье, 18.10.2020, 17:07
 
Ответить
СообщениеЗдравствуйте!

[vba]
Код
Sub qwer()
Dim ws As Worksheet, rng As Range
Dim x As Integer, rw As Integer
Set ws = ThisWorkbook.Worksheets("Лист2")
Set rng = ThisWorkbook.Worksheets("Лист1").Cells.Find("дата").CurrentRegion
rw = 6
With rng
    For x = 2 To .Rows.Count
        If .Cells(x, 3) = 1 Then
            ws.Range("D" & rw) = .Cells(x, 1)
            ws.Range("E" & rw) = .Cells(x, 2)
            ws.Range("F" & rw) = .Cells(x, 4)
            rw = rw + 1
        End If
    Next x
End With
End Sub
[/vba]

Автор - Dmitriy_37
Дата добавления - 18.10.2020 в 17:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в определенной колонне (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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