Уважаемые форумчане направьте на путь истинный каким способом распространить следующий алгоритм на последующие строки Private Sub Worksheet_Change(ByVal Target As Range)
Dim S As Integer Dim H As Integer Dim S1 As Integer Dim H1 As Integer
S = 1 H = 1 S1 = 1 H1 = 2
If Cells(S, H) > 0 Then Cells(S1, H1) = Cells(S, H) ElseIf Cells(S, H) = 0 Then Cells(S1, H1) = " "
Уважаемые форумчане направьте на путь истинный каким способом распространить следующий алгоритм на последующие строки Private Sub Worksheet_Change(ByVal Target As Range)
Dim S As Integer Dim H As Integer Dim S1 As Integer Dim H1 As Integer
S = 1 H = 1 S1 = 1 H1 = 2
If Cells(S, H) > 0 Then Cells(S1, H1) = Cells(S, H) ElseIf Cells(S, H) = 0 Then Cells(S1, H1) = " "
End If End Sub [moder]Вот тут хорошо написаноМихаил
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
