Неправильное присваивание значения ячейке

[4istii_listo4ek]

Теперь появился другой вопрос. Мне нужно ввести правило

Range("A2").Select
ActiveCell.Formula = "=" & Date - 1 & "!A2"

для последующих 20-30 строк. Как можно автоматизировать этот процесс или записать это всё одной строкой?

[motorway]

for i=2 to 20
Cells(i,1).Formula="=" & Date - 1 & "!A2"
next i

Ну или протянуть формулу в правом нижнем углу ячейки

[motorway]

Добавилось повторное сообщение...

[R Dmitry]

можно и без цикла
Sub Создание_листа()
Sheets.Add.Name = "Test"
With Sheets("Test")
.Range("B1") = "Всего шт."
.Range("B2").Formula = "=" & Date - 1 & "!D2 + I2"
.Range("B2:B20") = .Range("B2").Formula
End With
End Sub

[4istii_listo4ek]

Спасибо! А то я только пробую разобраться, тоже думал сделать, используя range

[4istii_listo4ek]

Есть только один вопрос. Такой макрос будет работать корректно:

Sub Создание_листа()
Sheets.Add.Name = Date
With Sheets(Date)
.Range("B1") = "Всего шт."
.Range("B2").Formula = "=" & Date - 1 & "!D2 + I2"
.Range("B2:B20") = .Range("B2").Formula
End With
End Sub

Всё, разобрался. Сделал так:

Sub Создание_листа_3()
Dim A As String
A = Date + 20
Sheets.Add.Name = A
With Sheets(A)
.Range("B1") = "Всего шт."
.Range("B2").Formula = "=" & Date & "!D2 + I2"
.Range("B2:B20") = .Range("B2").Formula
End With

[R Dmitry]

Сообщение от 4istii_listo4ek

Есть только один вопрос. Такой макрос будет работать корректно:

Sub Создание_листа2()
Dim sh$
sh = Date
Sheets.Add.Name = sh
With Sheets(sh)
.Range("B1") = "Всего шт."
.Range("B2").Formula = "=" & Date - 1 & "!D2 + I2"
.Range("B2:B20") = .Range("B2").Formula
End With
End Sub
лучше так

[4istii_listo4ek]

Вот, я тоже так решил сделать

[4istii_listo4ek]

Есть ещё вопрос: как сделать так, чтобы после занесения данных в таблицу листа макросом, столбцы "подстраивались" под содержимое таблицы? А получилось у меня примерно вот такое: http://codepad.org/dI6Pj1lU