2013-05-29 6 views
1

У меня есть таблица таблиц Excel.Скопируйте таблицу, когда введите текст в ячейку

Мне нужно настроить, когда кто-то вводит текст в последнюю ячейку, поэтому excel автоматически скопирует всю таблицу в новый список для продолжения заполнения следующих данных в новый список.

Извините, но я начинаю с Excel. Мне, вероятно, нужно настроить оператор «IF», ​​который запускает макрос, который копирует таблицу в новый список. Но я не знаю, как это сделать.

Спасибо заранее для каждого наконечника и советы

+0

Любой текст или что-то конкретное, как RUN_THIS? Какая ячейка в Excel? – Jim

ответ

1

Этот макрос проверяет, чтобы увидеть, если A30 является RUN_THIS и если он копирует A1 через A29 в области, начиная с B1. Если вы хотите, чтобы любой из них был другим, вам придется изменить сценарий. Чтобы создать макрос, щелкните правой кнопкой мыши на имени листа (Sheet1) в нижней части таблицы и выберите View Code

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim KeyCells As Range 

    ' The variable KeyCells contains the cells that will 
    ' cause an alert when they are changed. 
    Set KeyCells = Range("A30:A30") 

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _ 
      Is Nothing Then 

    ' This will check to see if cell A30 is equal to RUN_THIS and It then 
    ' copies the values from A1 through A29 to the space starting at B1 

    Worksheets("Sheet1").Range("A30").Select 

    If Worksheets("Sheet1").Range("A30").Value = "RUN_THIS" Then 
     Range("A1:A29").Select 
     Selection.Copy 
     Range("B1").Select 
     ActiveSheet.Paste 
     Range("D15").Select 
    End If 

    End If 
End Sub 
+0

@ user2166133 Если вы нашли это приемлемым, нажмите на большую стрелку вниз, чтобы принять это. Нажатие на стрелку вверх не означает, что вы приняли ее. Благодаря! – Jim

+0

@ user2166133 нажмите на большую стрелку вниз, чтобы «принять» это. Нажатие на стрелку вверх не означает, что вы приняли ее. Благодаря! – Jim

Смежные вопросы