[ Dusan N. @ 04.11.2016. 09:22 ] @
Kako da mi sadrzaje popunjenih celija iz kolone D prebaci u polje C2, stim da izmedju vrijednosti bude separator ;? Primjer petlje Do Until za koristenje. Code: Sub SastaviCelije() Dim c As Object Set c = ActiveCell Dim b As String Range("d6").Select Do Until IsEmpty(c.Value) With c If c.Value <> "" Then b = ActiveCell.Value Range("c3") = b End If Set c = c.Offset(1, 0) End With Loop End Sub Pozdrav. [Edit: Tagovi] [Ovu poruku je menjao 3okc dana 04.11.2016. u 12:47 GMT+1] |