Здравствуйте, имеется вопрос по циклам в макросе, есть ттаблица, где в первой строчке записывается дата, дата идет по возрастающей. т.е. 1,02; 2,02; 3,02 и т.д. в юзерформе, я выбираю дату, например 31,02;а последняя ячейка с датой равна 25,02 мне нужно чтобы макрос по порядку заполнил ячейки с датой т.е. 26,02; 27,02; 28,02; 29,02; 30,02; и 31,02; на ней и должен остановиться. Пытался сам написать, вот код:
Range("B13") = CDate(labdat)
Dim LastRow As Object
Set LastRow = Sheets("Ãðàôèê").Range("iv1").End(xlToLeft)
For i = 1 To LastRow
If LastRow.Offset(0, 0) = CDate(labdat) Then
LastRow.Offset(0, i + 1) = CDate(labdat)
Else
LastRow.Offset(0, i) = LastRow.Offset(0, i - 1) + 1
End If
Next i
но когда я ввожу дату, он заполняет все ячейки в первой строке датами, хорошо что хоть по порядку, а мне нужно чтобы он останавливался на этой дате
Помогите пожалуйсто с решением этого вопроса
Range("B13") = CDate(labdat)
Dim LastRow As Object
Set LastRow = Sheets("Ãðàôèê").Range("iv1").End(xlToLeft)
For i = 1 To LastRow
If LastRow.Offset(0, 0) = CDate(labdat) Then
LastRow.Offset(0, i + 1) = CDate(labdat)
Else
LastRow.Offset(0, i) = LastRow.Offset(0, i - 1) + 1
End If
Next i
но когда я ввожу дату, он заполняет все ячейки в первой строке датами, хорошо что хоть по порядку, а мне нужно чтобы он останавливался на этой дате
Помогите пожалуйсто с решением этого вопроса
