Kedze mate podla mna dost dobre skusenosti s programovanim tak to napisem len kodovo a zbytok si hadam dotvorite podla vlasnej predstavy
doplnit:sub Najdi()
...
Do
...
ZapsatDo.Offset(i, 4).Value = c.Offset(0, 1)
ZapsatDo.Offset(i, 5).Value = c.Offset(0, 2)
ZapsatDo.Offset(i, 6).Value = c.Offset(0, 3)
...
Loop While Not c Is Nothing And c.Address <> firstAddresscitovat
doplnit:sub Najdi()
...
Do
...
ZapsatDo.Offset(i, 4).Value = c.Offset(0, 1)
ZapsatDo.Offset(i, 5).Value = c.Offset(0, 2)
ZapsatDo.Offset(i, 6).Value = c.Offset(0, 3)
...
Loop While Not c Is Nothing And c.Address <> firstAddresscitovat