Prikazi cijelu temu 23.12.2016 09:29
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: kretanje po stupcima uz pomoc for next petlje
za sada sam otkrio ovo:
pronadem zadnji stupac i onda za svaki stupac zadnji red:

PreuzmiIzvorni kôd (Visual Basic):
  1. sub test()
  2. for c=1 to ZadnjaKolona
  3.     MsgBox ZadnjiRed("List1",c) 'ispise za svaku kolonu c koji je zadnji red
  4. next c
  5. end Sub
  6.  
  7. Function ZadnjiRed(ImeSita As String, kolona)
  8.     Dim Zadnji As Long
  9.     Dim ws As Worksheet
  10.    
  11.     Set ws = Sheets(ImeSita)
  12.     With ws
  13.         Zadnji = .Cells(.Rows.Count, kolona).End(xlUp).Row
  14.     End With
  15.     ZadnjiRed = Zadnji
  16. End Function
  17.  
  18. Function ZadnjaKolona(ImeSita As String)
  19. Dim Zadnji As Long
  20. Dim ws As Worksheet
  21. Set ws = Sheets(ImeSita)
  22.     With ws
  23.         Zadnji = .Cells(1, .Columns.Count).End(xlToLeft).Column
  24.     End With
  25.     ZadnjaKolona = Zadnji
  26. End Function

zivot je moja domovina.
Ovaj post je ureden 2 puta. Posljednja izmjena 27.12.2016 00:52 od strane Avko.