iCentar » Racunari i oprema » Softver i operativni sistemi » Ms office » VBA excel zadnja kolona i zadnji red prije praznog polja

Avko	05.12.2016 12:53
Predmet:VBA excel zadnja kolona i zadnji red prije praznog polja kada trebamo zadnji red u nekoj koloni a da je prije praznog polja koristimo formulu: zadnjiRed = ActiveSheet.Cells.Range("A1").End(xlDown).Row ovo ce nam dati zadnji red u koloni A a koji je prije praznog polja. moj problem je u tome ako imam vise kolona i zelim za svaku kolonu dobiti zadnjRed tada neznam kako se mijenja A1 u formuli dakle imam : for f=prvaKolona to zadnjaKolona zadnjiRed = ActiveSheet.Cells.Range("A1").End(xlDown).Row 'kako zamijeniti A1 sa f next f primjer u prilogu
Prilozi: excelProba.rar (Velicina datoteke:10.84 KB)

Avko

05.12.2016 12:53

Predmet:VBA excel zadnja kolona i zadnji red prije praznog polja

kada trebamo zadnji red u nekoj koloni a da je prije praznog polja koristimo formulu:
zadnjiRed = ActiveSheet.Cells.Range("A1").End(xlDown).Row
ovo ce nam dati zadnji red u koloni A a koji je prije praznog polja.
moj problem je u tome ako imam vise kolona i zelim za svaku kolonu dobiti zadnjRed tada neznam kako se mijenja A1 u formuli dakle imam :
for f=prvaKolona to zadnjaKolona
zadnjiRed = ActiveSheet.Cells.Range("A1").End(xlDown).Row 'kako zamijeniti A1 sa f
next f
primjer u prilogu

Prilozi:
excelProba.rar (Velicina datoteke:10.84 KB)

zxz	05.12.2016 17:10
Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja Mozda si ovo htio? PreuzmiIzvorni kôd (Visual Basic): Sub test() Sheets("List1").Select Dim prvaKolona As Long prvaKolona = 1 'pocinjemo od 1.kolone Dim zadnjaKolona As Long zadnjaKolona = ActiveSheet.Range("A1").CurrentRegion.Columns.Count Dim prviRed As Long Dim ImeKolone As String prviRed = 2 'pocinjemo od 2.reda jer je prvi red zaglavlje Dim zadnjiRed As Long For f = prvaKolona To zadnjaKolona 'zadnjiRed = ActiveSheet.Cells.Range("A1").End(xlDown).Row 'odrediti zadnji red prije praznog polja za svaki stupac f With ActiveSheet zadnjiRed = .Cells(.Rows.Count, f).End(xlUp).Row ImeKolone = Split(.Cells(, f).Address, "$")(1) End With 'MsgBox "kolona:" & ImeKolone & vbNewLine & "zadnjiRed:" & zadnjiRed Dim R As String R = MsgBox("kolona:" & ImeKolone & vbNewLine & "zadnjiRed:" & zadnjiRed, _ vbOKCancel + vbApplicationModal + vbDefaultButton1, "Napomena") If R = vbCancel Then Exit For End If Next f End Sub

zxz

05.12.2016 17:10

Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja

Mozda si ovo htio?

PreuzmiIzvorni kôd (Visual Basic):

Sub test()
Sheets("List1").Select
Dim prvaKolona As Long
prvaKolona = 1 'pocinjemo od 1.kolone
Dim zadnjaKolona As Long
zadnjaKolona = ActiveSheet.Range("A1").CurrentRegion.Columns.Count
Dim prviRed As Long
Dim ImeKolone As String
prviRed = 2 'pocinjemo od 2.reda jer je prvi red zaglavlje
Dim zadnjiRed As Long
For f = prvaKolona To zadnjaKolona
'zadnjiRed = ActiveSheet.Cells.Range("A1").End(xlDown).Row
'odrediti zadnji red prije praznog polja za svaki stupac f
With ActiveSheet
zadnjiRed = .Cells(.Rows.Count, f).End(xlUp).Row
ImeKolone = Split(.Cells(, f).Address, "$")(1)
End With
'MsgBox "kolona:" & ImeKolone & vbNewLine & "zadnjiRed:" & zadnjiRed
Dim R As String
R = MsgBox("kolona:" & ImeKolone & vbNewLine & "zadnjiRed:" & zadnjiRed, _
vbOKCancel + vbApplicationModal + vbDefaultButton1, "Napomena")
If R = vbCancel Then
Exit For
End If
Next f
End Sub

Avko	05.12.2016 17:44
Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja Probat cu sutra pa javim ali ovako od oka ono .End(xlup) zamjenir cu sa .End(xlDOwn) pa cu vidjeti sto tvoj kod radi

Avko

05.12.2016 17:44

Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja

Probat cu sutra pa javim ali ovako od oka ono .End(xlup) zamjenir cu sa .End(xlDOwn) pa cu vidjeti sto tvoj kod radi

zxz	06.12.2016 10:42
Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja Evo da prebrojis kolone moze i ovako. PreuzmiIzvorni kôd (Visual Basic): Function Zadnja_Kolona() Dim Zadnja As Long With ActiveSheet.UsedRange Zadnja = .Columns(.Columns.Count).Column End With MsgBox Zadnja End Function

zxz

06.12.2016 10:42

Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja

Evo da prebrojis kolone moze i ovako.

PreuzmiIzvorni kôd (Visual Basic):

Function Zadnja_Kolona()
Dim Zadnja As Long
With ActiveSheet.UsedRange
Zadnja = .Columns(.Columns.Count).Column
End With
MsgBox Zadnja
End Function

Avko	06.12.2016 10:52
Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja nisam znao da ces iz glave raditi. Trebao sam sliku staviti, a da sam samo sliku stavio rekao bi mi da okačim primjer. hehehe znaci , prebrojati do prve prazne celije

Avko

06.12.2016 10:52

Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja

nisam znao da ces iz glave raditi. Trebao sam sliku staviti, a da sam samo sliku stavio rekao bi mi da okačim primjer. hehehe

znaci , prebrojati do prve prazne celije

dex	06.12.2016 11:13
Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja A da negde dole nisko postavis funkciju counta(A2:A17) dobijas broj celija koje nisu prazne

dex

06.12.2016 11:13

Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja

A da negde dole nisko postavis funkciju counta(A2:A17)
dobijas broj celija koje nisu prazne

Avko	06.12.2016 11:25
Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja biće brdo tih listova pa sam mislio napraviti kod koji bi upotrijebio na sve listove. Da nemoram unositi ispod svake kolone funkciju prebroji celije koje nisu prazne, a evo sada sam i pred problemom sortiranja kolona ali po kriteriju prve celije. Fino sam zamislio sve to i htio sam se necim zabavljat, ali onda dodem do stvari koje neznam rijesiti.

Avko

06.12.2016 11:25

Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja

biće brdo tih listova pa sam mislio napraviti kod koji bi upotrijebio na sve listove. Da nemoram unositi ispod svake kolone funkciju prebroji celije koje nisu prazne, a evo sada sam i pred problemom sortiranja kolona ali po kriteriju prve celije. Fino sam zamislio sve to i htio sam se necim zabavljat, ali onda dodem do stvari koje neznam rijesiti.

zxz	06.12.2016 13:09
Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja E ovo sam mislio tebi ostaviti jer znam da znas to uraditi. Kako si brebrojao kolone tako preberojis i redove u koloni i ako naidjes na prazanu celiju znaci to je ta PreuzmiIzvorni kôd (Visual Basic): Sub test() Sheets("List1").Select Dim prvaKolona As Long prvaKolona = 1 'pocinjemo od 1.kolone Dim zadnjaKolona As Long zadnjaKolona = ActiveSheet.Range("A1").CurrentRegion.Columns.Count Dim prviRed As Long Dim ImeKolone As String prviRed = 2 'pocinjemo od 2.reda jer je prvi red zaglavlje Dim zadnjiRed As Long For f = prvaKolona To zadnjaKolona With ActiveSheet Dim Cell As Range For Each Cell In .Columns(f).Cells If Len(Cell) = 0 Then MsgBox "Celija" & Cell.Address Exit For End If Next Cell End With Next f End Sub

zxz

06.12.2016 13:09

Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja

E ovo sam mislio tebi ostaviti jer znam da znas to uraditi.
Kako si brebrojao kolone tako preberojis i redove u koloni i ako naidjes na prazanu celiju znaci to je ta

PreuzmiIzvorni kôd (Visual Basic):

Sub test()
Sheets("List1").Select
Dim prvaKolona As Long
prvaKolona = 1 'pocinjemo od 1.kolone
Dim zadnjaKolona As Long
zadnjaKolona = ActiveSheet.Range("A1").CurrentRegion.Columns.Count
Dim prviRed As Long
Dim ImeKolone As String
prviRed = 2 'pocinjemo od 2.reda jer je prvi red zaglavlje
Dim zadnjiRed As Long
For f = prvaKolona To zadnjaKolona
With ActiveSheet
Dim Cell As Range
For Each Cell In .Columns(f).Cells
If Len(Cell) = 0 Then
MsgBox "Celija" & Cell.Address
Exit For
End If
Next Cell
End With
Next f
End Sub

Avko	06.12.2016 14:42
Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja nebi ja to nikad napravio. ovo nebi znao: `Dim Cell As Range - znam za Long,Int, String ali ovo nisam znao` PreuzmiIzvorni kôd (Text): For Each Cell In .Columns(f).Cells - dan danas mi je nejasno ovo Each, uvijek prepisujem sa interneta ... Next Cell ovo mi je jako dobra stvar: PreuzmiIzvorni kôd (Text): R = MsgBox("kolona:" & ImeKolone & vbNewLine & "zadnjiRed:" & zadnjiRed, _ vbOKCancel + vbApplicationModal + vbDefaultButton1, "Napomena") If R = vbCancel Then Exit For End If ja sam uvijek stavljao breakpoint pa sa F8 pokrenuo opet do breakpointa ili zaustavio kod ako sam zelio izaci. Sada uz ovo tvoje nemoram brinuti o breakpointu uvijek za vrijeme msgbox-a mogu sa ESC zaustaviti izvrsavanje koda.

Avko

06.12.2016 14:42

Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja

nebi ja to nikad napravio.
ovo nebi znao:

Dim Cell As Range - znam za Long,Int, String ali ovo nisam znao

PreuzmiIzvorni kôd (Text):

For Each Cell In .Columns(f).Cells - dan danas mi je nejasno ovo Each, uvijek prepisujem sa interneta
...
Next Cell

ovo mi je jako dobra stvar:

PreuzmiIzvorni kôd (Text):

R = MsgBox("kolona:" & ImeKolone & vbNewLine & "zadnjiRed:" & zadnjiRed, _
vbOKCancel + vbApplicationModal + vbDefaultButton1, "Napomena")
If R = vbCancel Then
Exit For
End If

ja sam uvijek stavljao breakpoint pa sa F8 pokrenuo opet do breakpointa ili zaustavio kod ako sam zelio izaci. Sada uz ovo tvoje nemoram brinuti o breakpointu uvijek za vrijeme msgbox-a mogu sa ESC zaustaviti izvrsavanje koda.

zxz	06.12.2016 16:51
Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja For Each Objekat In SkupinaObjekata next objekat. Pa moze biti skupina kolona u celiji i celija. Skupina redova pa red Skupina shitova u aplikaciji itd..

zxz

06.12.2016 16:51

Predmet:Re: VBA excel zadnja kolona i zadnji red prije praznog polja

For Each Objekat In SkupinaObjekata

next objekat.

Pa moze biti skupina kolona u celiji i celija.
Skupina redova pa red
Skupina shitova u aplikaciji itd..