Копирование данных по условию

[SmalllSMK]

Доброе время суток.

Скажите, как скопировать данные из столбца A в столбец B, если в столбце N встречается число "-1"?

Макросы никогда не писал, кому не сложно помогите.

[Hugo121]

Перечитайте свой текст, и представьте в деталях весь описанный процесс. Получилось? У меня нет.

[SaLoKiN]

Может кривовато, но работает =)

Sub Search()

Dim y As Integer, y1 As Integer
y = Selection.Row
y1 = y + Selection.Rows.Count - 1

For ii = y To y1

If (ThisWorkbook.ActiveSheet.Cells(ii, 14) = -1) Then

ThisWorkbook.ActiveSheet.Cells(ii, 1) = ThisWorkbook.ActiveSheet.Cells(ii, 2)

End If

Next
End Sub

Суть такая, выделяешь нужный диапазон в столбце и жмакаешь на макрос. Если нужно чтобы полностью столбец выделялся- можно переделать. Уточните условия.

[SAS888]

Это из разряда "начнем отвечать, а по ходу выясним, что, все-таки автору требуется".
1. Так, например, если ячейка столбца "N" содержит значение "2 -3 -1 -4", то в ней тоже встречается число "-1". Что делать?
2. Значение в столбце "N" получается в результате формулы (функции)? Вводится "вручную"?
3. Нужно просмотреть и обработать уже имеющуюся на листе информацию? Или требуется постоянный контроль за изменяющимися значениями?
4. Копировать нужно только значение? Или вместе с форматом, формулами и т. п.?

Попробую угадать и предложить пару вариантов без использования циклов:

Sub Вариант_1()
    Dim x As Range: Application.ScreenUpdating = False
    Set x = Range("B1:B" & Cells(Rows.Count, "N").End(xlUp).Row)
    x.FormulaR1C1 = "=IF(RC[12]=-1,RC[-1],"""")": x.Value = x.Value
End Sub

Sub Вариант_2()
    Dim x As Range: Application.ScreenUpdating = False
    Set x = [N:N].Find(-1, , xlValues, xlWhole)
    If x Is Nothing Then Exit Sub
    [A:A].Copy [B:B]: [N:N].ColumnDifferences(x).Offset(, -12).ClearContents
End Sub

[SmalllSMK]

@SAS888
1) Ячейка N либо содержит "-1", либо пустую ячейку.
2) Значение - это дамп из БД.
3) Нужно просмотреть и обработать уже имеющуюся на листе информацию.
4) Нужно даже не копиаровать, а вырезать из "A" и вставить в "B".

@Hugo121
Есть таблица, дамп БД.
Парсим эту таблицу на значение "-1" по колонке N.
Когда встречается это значение, то нужно ВЫРЕЗАТЬ значение из паралельной N ячейки но уже в столбце A и перенести значение в столбец B. (Это все происходит в строке, где нашлось значение "-1")
Продолжить поиск.

[SAS888]

Можно так:

Sub Main()
    Application.ScreenUpdating = False
    [A:A].Copy [B:B]: [N:N].SpecialCells(xlCellTypeBlanks).Offset(, -12).ClearContents
    [N:N].SpecialCells(xlCellTypeConstants).Offset(, -13).ClearContents
End Sub

[Hugo121]

5.Если в N25368 содержится "-1" , то что делать с A1?
Ну ладно, это прояснили через двое суток

[Hugo121]

И кстати - specialcells после 8-с-чем-то тысяч раздельных диапазонов глючит. Так что с дампом может не получиться...
Я бы не мудрил и делал циклом на массивах - чуть дольше, но зато надёжно.
А без примера файла я ленюсь

[RAN.]

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

А без примера файла я ленюсь

Ну, наконец то!

[Hugo121]

Я избегаю делать примеры за ТС - т.к. велик риск работать зря.
А по этой задаче - думаю риск более 50%