Код |
---|
Private Sub CommandButton5_Click() FilePath = Sheets("users").Cells(20, 1) Workbooks.Open Filename:=FilePath With Sheets("TDSheet") LastRow = .Cells(Rows.Count, 1).End(xlUp).Row For i = 7 To LastRow Cells (i, 11) =СЖПРОБЕЛЫ(ПРАВСИМВ(ПСТР(" "&ПОДСТАВИТЬ(.Cells(i,6));" ";ПОВТОР(" ";999));1;999*3);999*3))' здесь ошибка Next End With End Sub |
Уважаемые гуру ! Подскажите, почему строка с ошибкой, что в ней не так ?