Prikazi cijelu temu 23.12.2016 01:23
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: kretanje po stupcima uz pomoc for next petlje
u zaglavlju (headeru) pise tako da kada malo proucim ono tvoje for Each i uskaldim pa cu rijesiti
sada sam zamislio to ovako:

PreuzmiIzvorni kôd (Visual Basic):
  1. columnTitles(0) = "voce"
  2.     Sheets("List1").Select
  3.     Do While (True)
  4.         Dim Title As Variant
  5.         Dim nasao As Boolean
  6.         nasao = False
  7.         Dim c As Range
  8.         For Each c In ActiveSheet.UsedRange
  9.             If c.Row > 1 Then
  10.                 Exit For
  11.             End If
  12.             For Each Title In columnTitles
  13.                 If (Title = c.Value) Then
  14.                     ...nasao kolonu voce
  15.                     ...nesto napravi
  16.                     nasao = True
  17.                     Exit For
  18.                 End If
  19.             Next
  20.         Next c
  21.         If (nasao = False) Then
  22.             Exit Do
  23.         End If
  24.     Loop

znam da nece odma to sve proraditi ali bice
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 27.12.2016 01:52 od strane Avko.