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):Dim rang as Range
Range("F1").Select
Set rang = Range(Selection, Selection.End(xlToRight))
For Each celija In rng
If celija.Value >= startDatum And celija.Value <= endDatum Then
'kod koji ce:
'UVIJEK zapoceti ispisivati od celije (2,1) tj A2
' a zapocet ce ispisivati od startDatuma do endDatuma
'u ovom slucaju izabran je luka, a njegov red mozemo odrediti sa:
' Application.WorksheetFunction.Match("luka", Range("E:E"), 0) ili
'bi vi to odredili drugacije
'Cells(2,1)=startDatum : Cells(2,2)="luka": Cells(2,3)="jagoda"
'Cells(3,1)=startDatum + 1:Cells(3,2)="luka": Cells(3,3)="kruska"
'itd
End If
Next celija
zivot je moja domovina.