создана формула, при вводе информации на листе "test" информация переносится в заданные ячейки листа "dop_uslugi", как сделать, чтобы при создании новой строки в листе "test", автоматически добавлялась строка в листе "dop_uslug"?
создана формула, при вводе информации на листе "test" информация переносится в заданные ячейки листа "dop_uslugi", как сделать, чтобы при создании новой строки в листе "test", автоматически добавлялась строка в листе "dop_uslug"?runagroup
Private Sub Worksheet_Activate() i = Sheets("test").Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.ListObjects("Таблица2").Resize Range("$A$1:$S$" & i) End Sub
[/vba]
в модуль листа [vba]
Код
Private Sub Worksheet_Activate() i = Sheets("test").Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.ListObjects("Таблица2").Resize Range("$A$1:$S$" & i) End Sub
Private Sub Worksheet_Activate() i = Sheets("test").Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.ListObjects("Таблица2").Resize Range("$A$1:$S$" & i) u = Sheets("dop_uslug").Cells(Rows.Count, 1).End(xlUp).Row If u > i Then Rows(i + 1 & ":" & u).Clear End If End Sub
[/vba]так?
[p.s.]вот за что не люблю американцев, что им раскладку клавы не приходится менять пришлось сооб. редактировать[/p.s.]
[vba]
Код
Private Sub Worksheet_Activate() i = Sheets("test").Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.ListObjects("Таблица2").Resize Range("$A$1:$S$" & i) u = Sheets("dop_uslug").Cells(Rows.Count, 1).End(xlUp).Row If u > i Then Rows(i + 1 & ":" & u).Clear End If End Sub
[/vba]так?
[p.s.]вот за что не люблю американцев, что им раскладку клавы не приходится менять пришлось сооб. редактировать[/p.s.]Nic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Суббота, 02.04.2016, 14:34