Привет всем! Помогите мне в решении вопроса: Имеется Sheets в котором есть компонент TextBox и переменная в которую записывается значение. Необходимо эти данные поместить в таблицу, которая находиться на другом Sheets.

sheet2.range("A2").value = sheet1.TextBox1.Value
Этот код выдаст ошибку.

p.s. Если все было бы так просто

Вообщем вот так.

Dim ItemSum As Worksheet

For Each ItemSum In ActiveWorkbook.Worksheets
Range("A" & ItemSum.Index) = ItemSum.Range("C3")
Range("B" & ItemSum.Index) = ItemSum.Range("C25")
Range("C" & ItemSum.Index) = ItemSum.TextBox1.Text
Range("D" & ItemSum.Index) = ItemSum.Class
Range("E" & ItemSum.Index) = ItemSum.sVal
Range("F" & ItemSum.Index) = ItemSum.SumProv
Range("G" & ItemSum.Index) = ItemSum.Range("D48")
'Range("F" & ItemSum.Index) = ItemSum.Range("C3")
Next ItemSum

Цикл крутит все sheets в данной книге берет нужные данные и закидывает их в данную книгу. Выходит ошибка вот на этих строках:

Range("C" & ItemSum.Index) = ItemSum.TextBox1.Text
Range("D" & ItemSum.Index) = ItemSum.Class
Range("E" & ItemSum.Index) = ItemSum.sVal
Range("F" & ItemSum.Index) = ItemSum.SumProv

Этот код перебирает все листы в данной книге и записывает определенные данные каждого листа в нужную часть таблицы. Строка записи определяется индексом листа. Процедура находится на листе с таблицей и прописана на
событие CommandButton1_Click().

azizjanвопрос:
1. что на каждом листе есть TextBox?
2. а ты попробуй закоментировать другие строки что даст?
3. что за ошибка ?

1.Да TextBox есть на каждом листе.
2. коментил так

Range("A" & ItemSum.Index) = ItemSum.Range("C3")
Range("B" & ItemSum.Index) = ItemSum.Range("C25")
Range("C" & ItemSum.Index) = ItemSum.TextBox1.Text \\ ошибка выходит здесь
'Range("D" & ItemSum.Index) = ItemSum.Class
'Range("E" & ItemSum.Index) = ItemSum.sVal
'Range("F" & ItemSum.Index) = ItemSum.SumProv Range("G" & ItemSum.Index) = ItemSum.Range("D48")
'Range("F" & ItemSum.Index) = ItemSum.Range("C3")
3.ошибка следующая
"Method or data member not found"