Перемещение значения ячейки на неактивном листе

[siglindo]

Помогите создать несколько макросов. Попытаюсь сформулировать порядок действий:

1. Выполняется переход на лист ДАННЫЕ, производится поиск " Х " в столбце А, значение ячейки с Х переходит на строку выше, обратный переход на лист с бланком на ячейку скажем А5

2. Как в предыдущем, только значение с Х переходит на ячейку ниже

3. Заменяет пустые ячейки (лист ДАННЫЕ) на ячейки с пробелом (убирая на бланке нули)

Если эти макросы возможны к выполнению без мелькания листов БЛАНК-ДАННЫЕ-БЛАНК буду безмерно благодарен!!!

Заранее благодарю за помощь!!!

[EugeneS]

Вопрос 1

Sub task1()
Dim datash As Object, sh As Object
Application.ScreenUpdating = False: Set sh = Sheets("Paevik"): Set datash = Sheets("Данные")
With datash: .Select: [a:a].Find("x").Offset(-1, 0).Activate: End With
With sh: .Select: [a5].Select: End With: Application.ScreenUpdating = True: End Sub

Вопрос 2

Sub task2()
Dim datash As Object, sh As Object
Application.ScreenUpdating = False: Set sh = Sheets("Paevik"): Set datash = Sheets("Данные")
With datash: .Select: [a:a].Find("x").Offset(1, 0).Activate: End With
With sh: .Select: [a5].Select: End With: Application.ScreenUpdating = True: End Sub

Вопрос 3

Непонятен

[siglindo]

Спасибо большое!!

Упущен один момент значение ячейки с Х не переходит на вышестоящую ячейку. Если не трудно поправьте.

Пункт №3 я записал по последовательности команд - странно но работает

[EugeneS]

Вопрос 1

Sub task1()
Dim datash As Object, sh As Object
Application.ScreenUpdating = False: Set sh = Sheets("Paevik"): Set datash = Sheets("Данные")
With datash: .Select: [a:a].Find("x").Offset(-1, 0).Value = [a:a].Find("x").Value: End With
With sh: .Select: [a5].Select: End With: Application.ScreenUpdating = True: End Sub

Вопрос 2

Sub task2()
Application.ScreenUpdating = False: Set sh = Sheets("Paevik"): Set datash = Sheets("Данные")
With datash: .Select: [a:a].Find("x").Offset(1, 0).Value = [a:a].Find("x").Value: End With
With sh: .Select: [a5].Select: End With: Application.ScreenUpdating = True: End Sub

Вопрос 3

надо понимать неактуален

[siglindo]

Данный макрос не работает - выставляет X-ы в вышестоящую ячейку, образовывая несколько значений Х-ов, что не допустимо!!! Фактически необходима команда Драг анд Дроп ячейки с Х в вышестоящую (нижестоящую ячейку)

Надеюсь еще не слишком надоел????

[Hugo121]

Вообще, прочитав только задачу, я не вижу необходимости вообще мелькать листами. Т.е. всякие Select и Activate не нужны.
Сперва в коде через Set= задать объекты, затем работать с ними.

[siglindo]

Сообщение от Hugo121

Вообще, прочитав только задачу, я не вижу необходимости вообще мелькать листами. Т.е. всякие Select и Activate не нужны.
Сперва в коде через Set= задать объекты, затем работать с ними.

Может подскажите как прописать данный макрос???????

[EugeneS]

Вопрос 1

Sub task1()
Dim datash As Object, sh As Object
Application.ScreenUpdating = False: Set sh = Sheets("Paevik"): Set datash = Sheets("Данные")
With datash: .Select: [a:a].Find("x").Cut Destination:=[a:a].Find("x").Offset(-1, 0): End With
With sh: .Select: [a5].Select: End With: Application.ScreenUpdating = True: End Sub

Вопрос 2

Sub task2()
Dim datash As Object, sh As Object
Application.ScreenUpdating = False: Set sh = Sheets("Paevik"): Set datash = Sheets("Данные")
With datash: .Select: [a:a].Find("x").Cut Destination:=[a:a].Find("x").Offset(1, 0): End With
With sh: .Select: [a5].Select: End With: Application.ScreenUpdating = True: End Sub

[EugeneS]

насколько понял идею (к кнопкам "Предыдущий" и "Следующий" подвязаны макросы), см. вложение

[siglindo]

Спасибо большое!!! Сейчас все работает корректно!!!!