сделать, чтоб при вводе текста в ячейку текст дублировался в другой ячейке

[Алексей Цуканов]

Понимаю, что просто, а вот сложить 2 и 2 не могу.
Надо сделать, что бы можно было на листе1 ввести фамилию а на листе 2 эта фамилия появилась в определенной ячейке. помогите советом.

[cheshiki1]

на листе 1 в ячейке А1 пишем фамилию.
на листе 2 в любой ячейке пишем ='Лист1!'$A$1

[zs]

=ИНДЕКС(Лист1!A1:B20;ПОИСКПОЗ(B3;Лист1!A1:A14);2)

[Алексей Цуканов]

на листе 1 в ячейке А1 пишем фамилию.
на листе 2 в любой ячейке пишем ='Лист1!'$A$1

Спасибо, только работает без кавычек. Как я и думал, все очень просто

[lovko]

А можно ли сделать то же через макрос и кнопку, чтобы эти фамилии выстраивались на Листе2 в столбце А последовательно друг за другом? Пишешь Иванов в А1 Листа1, нажимаешь на кнопку и фамилия отображается на Листе2 в ячейке А1. Потом пишешь Петров, фамилия уходит в А2. Пишешь Сидоров, а он в А3. Спасибо!

[_Boroda_]

Также все. Почти. Только формула такая:

Код Выделить Развернуть

=Лист1!A1&""
Зачем кусок &""? Если в листе 1 в А1 значения нет, а на Листе 2 просто формула =А1, то она (формула) даст 0, а с куском &"" она даст пусто. Равносильно

Код Выделить Развернуть

=ЕСЛИ(Лист1!A1="";"";Лист1!A1)

[lovko]

Нет, ребята, - нужен макрос. Значения я буду вводить только в одну ячейку: А1 Листа1. И из этой ячейки фамилии должны последовательно уходить на Лист2 и выстраиваться там в столбце А.
У меня есть такой макрос:
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Address = "$A$1" Then
     Dim PS&
     PS = Sheets("Лист2").Range("A" & Rows.Count).End(xlUp).Row + 1
     Sheets("Ввод_инф").Cells(PS, 1) = Target
     Target.Value = Empty
  End If
  Application.EnableEvents = True
End Sub
но он срабатывает автоматически после ввода значения в ячейке А1 Листа1. А необходимо, чтобы выполнялся через кнопку, так как на самом деле значение в А1 Листа 1 я вводить не буду - там будет текстовая функция. Может, кто поможет? И еще важно, чтобы кнопка располагалась не на Листе1, не на Листе2, а на совершенно отдельном пустом листе, скажем Листе3. Спасибо!

[lovko]

Сделал ошибку в макросе, который привел выше. Вот правильный

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Address = "$A$1" Then
     Dim PS&
     PS = Sheets("Лист2").Range("A" & Rows.Count).End(xlUp).Row + 1
     Sheets("Лист2").Cells(PS, 1) = Target
     Target.Value = Empty
  End If
  Application.EnableEvents = True
End Sub

[cheshiki1]

проверяйте

Код Выделить Развернуть

Sub kopija()
Dim i&
If Sheets("Лист1").Range("A1") <> "" Then
With Sheets("Лист2")
If .Cells(1, 1) = "" Then
i = .Cells(Rows.Count, 1).End(xlUp).Row
Else
i = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
.Cells(i, 1) = Sheets("Лист1").Range("A1").Value
End With
End If
End Sub
рисуйте любую кнопку на любом листе и цепляйте на неё код.

[lovko]

Как у вас все ловко получается! Спасибо большое!