Поиск в определенной колонне

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в определенной колонне (Макросы/Sub)

Tavlar

Дата: Пятница, 16.10.2020, 09:50 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Здравствуйте
Помогите, пожалуйста, написать макрос
Нужно в листе 1 найти в колонне E все значения 1 и перенести соответствующие значения из соседних ячеек в таблицу на листе 2

К сообщению приложен файл: 8482906.xlsx (11.9 Kb)

Ответить

gling

Дата: Пятница, 16.10.2020, 20:50 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2521

Репутация: 677 ±

Замечаний: 0% ±

2010

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

ЯД-41001506838083

Ответить

Dmitriy_37

Дата: Воскресенье, 18.10.2020, 17:06 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

Репутация: 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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в определенной колонне (Макросы/Sub)

Страница 1 из 1
1