помогите сделать автоматический перенос данных с одного листа на другой

[AlexP15]

Доброго времени суток.
Помогите пожалуйста!!!
Уже совсем голова не варит, только что главбух дала задание, а я вот никак не могу додуматься как его сделать.
У меня есть таблица exel с 2 листами, на одном листе у меня таблица с данными типа: №, дата, ФИО, наименование, кол-во, сумма и т.п. На втором "шаблон-форма" (если его можно так назвать) с теми же полями только расположенными по другому.
Она хочет чтобы при введении № менялись данные соответствующие этому номеру и все чтобы делалось в одной форме.
Т.е. к примеру у нас таблица: № - 1, ФИО - Иванов Иван Иванович, наименование - сыр, кол-во - 1; № - 1, ФИО - Петров Петр Петрович, наименование - колбаса, кол-во - 2 и т.д.... К примеру в "шаблоне" вводим в ячейку "№" значение 1 и те же пункты, что и в таблице автоматически заполняются значениями соответствующими этому номеру. В данном случае Иванов Иван Иванович, если вводим 2, то значения меняются на Петров Петр Пектрович и т.д.

Очень прошу помогите сам не додумаюсь....
Во вложении документ который необходимо сделать, листы "шаблон"-сам шаблон и "010709"-таблица.

[SAS888]

посмотрите вложение. Измените номер в ячейке "C1" на листе "шаблон".

[AlexP15]

SAS888, спасибо тебе огромное!!!!
Я бы голову ломал как это сделать через функцию Если!!!

[saf-ring]

Подскажите пожалуйста! А как сделать так чтобы при заполнении анкеты на листе "шаблон" данные автоматические вносились в таблицу на листе "010709". Такое возможно???

[Nicolas_46]

VBA способно на многое)

Sub Передача()
Application.ScreenUpdating = False
On Error Resume Next
A = [C1]
s = [C2]
Q = [A4]
W = [A7]
D = [B7]
F = [C7]
G = [H5]
H = [H6]
J = [H7]

Sheets("010709").Select

Range("A45").Select

For M = 45 To Cells(Rows.Count, 1).Row
If IsEmpty(ActiveCell.Value) = False Then
ActiveCell.Offset(1, 0).Select

Else: Exit For
End If
Next M
K = ActiveCell.Row
L = ActiveCell.Offset(-1, 0)
Z = ActiveCell.Address
Rows(K & ":" & K).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range(Z).Select

ActiveCell = L + 1
ActiveCell.Offset(0, 1) = A
ActiveCell.Offset(0, 2) = s
ActiveCell.Offset(0, 3) = Q
ActiveCell.Offset(0, 4) = W
ActiveCell.Offset(0, 5) = D
ActiveCell.Offset(0, 6) = F
ActiveCell.Offset(29, 4) = G
ActiveCell.Offset(32, 4) = H
ActiveCell.Offset(35, 4) = J

End Sub

[saf-ring]

Спасибо огромное! Выручили

[Hugo121]

Что-то гляда на код - кажется что можно всё "сказать" одной строкой
Только вот убегаю уже... Файл не смотрел.

[saf-ring]

Уважаемые гуру, пытался я заменить под свою таблицу, но знания у меня на уровне "дуба" Помогите разобраться. Есть лист со списком и лист с анкетой. Как сделать так чтобы данные из анкеты добавлялись в соответствующие столбцы на листе "список" так же как и в предыдущем примеру по индексу. Объясните пожалуйста какие значения в коде мне нужно заменить?

[IgorGO]

ну, если по индексу... то приблизительно так:

Sub CopyQuest2List()
  With Worksheets("Список")
    .Cells(.Cells(Rows.Count, 3).End(xlUp).Row + 1, 2).Resize(1, Cells(2, 1).End(xlDown).Row - 1).Value = _
    WorksheetFunction.Transpose(Cells(2, 2).Resize(Cells(2, 1).End(xlDown).Row - 1, 1).Value)
  End With
End Sub

выполнять при активном листе "Анкета"