Prikazi cijelu temu 22.12.2016 23:33
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:kretanje po stupcima uz pomoc for next petlje
imamo ovu funkciju (autor zxz)

PreuzmiIzvorni kôd (Text):
  1. Function ZadnjiRed(ImeSita As String)
  2.     Dim Zadnji As Long
  3.     Dim ws As Worksheet
  4.    
  5.     Set ws = Sheets(ImeSita)
  6.     With ws
  7.         Zadnji = .Cells(.Rows.Count, "A".End(xlUp).Row =>OVO SLOVO A BI SE TREBALO MIJENJATI OVISNO O KOLONI U KOJOJ SE NALAZIM
  8.     End With
  9.     ZadnjiRed = Zadnji
  10. End Function

pozivajuci tu funkciju dobijamo zadnji red sa podacima u odredenom stupcu, npr.
endRed=ZadnjiRed("List1")
endRed ce biti neki broj, ovisno o tome u kojem se redu nalazi zadnji podatak.
e sada, ja sam upotrebio i drugu funkciju:

PreuzmiIzvorni kôd (Text):
  1. Function ZadnjaKolona(ImeSita As String)
  2. Dim Zadnji As Long
  3. Dim ws As Worksheet
  4.  Set ws = Sheets(ImeSita)
  5.     With ws
  6.         Zadnji = .Cells(1, .Columns.Count).End(xlToLeft).Column
  7.     End With
  8.     ZadnjaKolona = Zadnji
  9. End Function

koja mi daje zadnju kolonu sa podacima, npr.

endKolona=ZadnjaKolona("List1")

sada bi ja upotrebio to u petlji

PreuzmiIzvorni kôd (Text):
  1. for startKolona=1 to endKolona
  2.          endRed=ZadnjiRed("List1") =>ovoj funkciji bi trebao poslati broj kolone, ilI  nesto sa select column ili sta ti ja znam
  3.          ......
  4.          nesto radim sa tim podatkom
  5.          ......
  6. next startKolona

jeste me razumili sta sam htio?
zivot je moja domovina.
Ovaj post je ureden 3 puta. Posljednja izmjena 22.12.2016 23:35 od strane Avko.