Почему не работает сдвиг в право?

[nihil_]

Всем привет, Всех с праздником, Всем здоровья!)
Почему не работает сдвиг в право? Может потому что я сразу выделил рендж перед циклом? Хочу сделать цикл от конкретного значения в табл до конца табл, и брать соседнее значения для дальнейший операции.

Sub Test2()

Range("C4").Select
      
Do Until IsEmpty(ActiveCell)
    zn_num = ActiveCell.Value
    zn_date = ActiveCell.Offset(0.1).Value 
    ActiveCell.Offset(1, 0).Select
Loop
End Sub

[VictorM]

здесь

zn_date = ActiveCell.Offset(0, 1).Value

замените точку на запятую

[nihil_]

Спасибо Виктор!
Ну блин куда я смотрел, в низу есть кома, а тут пропустил?!!!

[VictorM]

Ну блин куда я смотрел

Бывает

[DiemonStar]

For Each Rw in Range ("$C$4:$C$" & [C65000].End(xlUp).Row).Rows
    zn_num = Rw.Cells(1,1)
    zn_date = Rw.Cells(1,2)      
Next Rw

вот так должно работать немного шустрее

[IgorGO]

а зачем "For Each", судя по исходному коду задача в zn_num и zn_date записать значения из последней непустой под С4.

with iif(IsEmpty[c5], [c4], [c4].end(xldown))
  zn_num = .value
  zn_date = .offset(0,1).value
end with

[DiemonStar]

брать соседнее значения для дальнейший операции

судя по тексту задачи, в дальнейшем планируются операции с выбранными значениями.

[nihil_]

Сообщение от DiemonStar

судя по тексту задачи, в дальнейшем планируются операции с выбранными значениями.

Спасибо за вариант можно попробовать когда разберусь с этим

Дальше с выбранными знач хочу подключится до базы, поместить в запрос, выполнить,
и записать результат в переменную, а потом вставить в пустой столбик "Ко-во н/ч".

Запрос написал, все подкл. нормально, но результат знач. записанный в перем. пишет Null.
Я так думаю, что то не так со строкой (может из за скобок):

sqlstring = "select sum(lj.FACT_TIME) FACT_TIME from list_job lj, zn zn where lj.ZN_ID = zn.ID and zn.INVOICE_ID = (select i.id from invoice i where i.INVOICE_NUM = '" & zn_num & "' and i.INVOICE_DATE = '" & in_data & "')"

Может кто подскажет?
Благодарю.

[nihil_]

Извините ребята походу все правильно! Что то наверное в системе.
Продебажил до конца, где то поставило время а где то нет
Какая то мистика...
Или я что то не так делаю.