Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

zadnja popunjena kolona

[es] :: Office :: Excel :: zadnja popunjena kolona

[ Pregleda: 737 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

darkos1
banjaluka RS

Član broj: 267138
Poruke: 75
31.223.131.*



+1 Profil

icon zadnja popunjena kolona06.01.2020. u 09:59 - pre 52 meseci
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
 
Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org


+116 Profil

icon Re: zadnja popunjena kolona06.01.2020. u 11:30 - pre 52 meseci
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]
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
 
Odgovor na temu

darkos1
banjaluka RS

Član broj: 267138
Poruke: 75
31.223.131.*



+1 Profil

icon Re: zadnja popunjena kolona06.01.2020. u 21:50 - pre 52 meseci
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.
Prikačeni fajlovi
Book1.xls Book1.xls - 35k
 
Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org


+116 Profil

icon Re: zadnja popunjena kolona07.01.2020. u 20:20 - pre 52 meseci
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
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
 
Odgovor na temu

darkos1
banjaluka RS

Član broj: 267138
Poruke: 75
31.223.131.*



+1 Profil

icon Re: zadnja popunjena kolona08.01.2020. u 07:16 - pre 52 meseci
Radi odlično

Hvala
 
Odgovor na temu

[es] :: Office :: Excel :: zadnja popunjena kolona

[ Pregleda: 737 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.