Prikazi cijelu temu 27.05.2015 14:20
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: dobro jutro, dobar dan...
Citiraj Gjoreski:
Citiraj Avko:

a kako ljubavni zivot?

Dobar dan .

PARTIZANSKI (Se snaogam nekako)
znaci diverzant
dodes napravis katastrofu i pobijegnes Laughing

nego da te pitam ako mozda znas
mucim se sa for each
htio bi u combobox box staviti sve celije iz sheet2 u rangu od A3 do A zadnje celije sa podacima
ja sam probao ovako ali mi neide

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim cel as Range
  2. Dim rng As Range
  3. dim iSheet as integer
  4.  
  5.     With Excel.Worksheets("Sheet" & iSheet)
  6.         Set rng = Range("A3" & .Rows.Count).End(xlUp) 'range od prvog do zadnjeg u kojem ima podataka
  7.        For Each cel In rng
  8.             ComboBox1.AddItem Cells(cel, 1) ' dodaje u combobox1 sve celije A3, A4, A5... do zadnje
  9.        Next cel
  10.     End With
zivot je moja domovina.
Ovaj post je ureden 2 puta. Posljednja izmjena 27.05.2015 14:31 od strane Avko.