| Код |
|---|
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 |
Уважаемые гуру ! Подскажите, почему строка с ошибкой, что в ней не так ?
