[ darkos1 @ 06.01.2020. 09:59 ] @
Kako da nađem zadnju popunjenu kolonu u drugom redu

Našao sam kod koji određuje broj poslednjeg popunjenog reda u koloni A
xy = Sheets("Sheet1").Range("A10000").End(xlUp).Row 'broj poslednjeg popunjenog reda

Meni treba broj poslednje popunjene kolone u drugom redu

Pokušao sam da prilagodim gornji kod ali bez uspjeha
[ 3okc @ 06.01.2020. 11:30 ] @
Pokušaj sa:
Code:

Cells(2,Sheet1.Columns.Count).End(xlToLeft).Column


Takođe, ovo je moguće i formulom, npr:
Code:

=LOOKUP(2;1/N(LEN($2:$2));COLUMN($2:$2))


[Edit: unete ispravke.]

[Ovu poruku je menjao 3okc dana 06.01.2020. u 13:59 GMT+1]
[ darkos1 @ 06.01.2020. 21:50 ] @
Hvala 3okc
Kod pronalazi broj prazne kolone, ali ja nisam uspio da to ubacim u svoj kod.
U prilogu šaljem primjer sa kodom da ga izmijenite ako može.
[ 3okc @ 07.01.2020. 20:20 ] @
Probaj sa ovim, bez kopi/pejst:

Code:

Sub Prenesi()
Dim rngUL As Range
Dim rngIZ As Range

Set rngUL = Sheets("RN").Range("E2:E20")
Set rngIZ = Sheets("izlaz").Cells(2, Columns.Count).End(xlToLeft).Resize(rngUL.Rows.Count).Offset(, 1)

rngIZ.Value = rngUL.Value
End Sub
[ darkos1 @ 08.01.2020. 07:16 ] @
Radi odlično

Hvala