Prikazi cijelu temu 08.06.2015 18:24
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:VBA Excel For Each Transponiraj (vodoravno u okomito) - mozgalica
dobro nije bas naslov ono sto trazim ali sam u naslov unio sve ono sto bi se moglo naci u ovoj mozgalici, bar je za mene mozgalica a za vas, neznam.

[img]
image url upload[/img]

na gornjoj slici imamo sa desne strane podatke koje moramo prema rangu datuma stavljati u lijevu stranu.
Dakle kod bi bio nesto ovako:

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim rang as Range
  2. Range("F1").Select
  3. Set rang = Range(Selection, Selection.End(xlToRight))
  4. For Each celija In rng
  5.      If celija.Value >= startDatum And celija.Value <= endDatum Then
  6.          'kod koji ce:
  7.         'UVIJEK zapoceti ispisivati od celije (2,1) tj A2
  8.         ' a zapocet ce ispisivati od startDatuma do endDatuma
  9.         'u ovom slucaju izabran je luka, a njegov red mozemo odrediti sa:
  10.         ' Application.WorksheetFunction.Match("luka", Range("E:E"), 0) ili
  11.         'bi vi to odredili drugacije
  12.         'Cells(2,1)=startDatum : Cells(2,2)="luka": Cells(2,3)="jagoda"
  13.         'Cells(3,1)=startDatum + 1:Cells(3,2)="luka": Cells(3,3)="kruska"
  14.         'itd
  15.  
  16.      End If
  17. Next celija
zivot je moja domovina.