Kopiranje vrednosti celic iz stolpcev v vrstice

[zvonem]

Zdravo!
V območju a5:a30 imam formule, ki mi izračunajo določeno vrednost, ki je vidna le, če večja od 0. Ker je ta vrednost lahko tudi 0 ali manjša, so med posameznimi vrednostmi na videz prazne celice. Vse celice, ki imajo vrednost večjo od nič bi rad (samo njihovo vrednost) prekopiral v vrstico od a1 naprej vendar tako, da bi si vrednosti sledile brez praznih celic. Macra ni mogoče posneti, ker ob iskanju naslednje polne celice (puščica dol in tipka END) kurzor skoči na zadnjo celico s formulo (vmes pa so vrednostno tako prazne kot polne celice) ampak ga je potrebno napisati - tu mi pa zmanjka idej (beri: znanja).

[admin]

Če vas prav razumem, potem bo tole tisto, kar iščete:

Koda: Izberi vse

Sub kopiraj()
  Dim vrst1 As Integer, vrst2 As Integer
  
  vrst2 = 1
  For vrst1 = 5 To 30
    If (Trim(Cells(vrst1, 1)) <> "") And _
       (Cells(vrst1, 1) > 4) Then
      Cells(vrst2, 2) = Cells(vrst1, 1)
      vrst2 = vrst2 + 1
    End If
  Next
End Sub

Ta makro vam vrednosti kopira v stolpec B, saj vam bi sicer od vrstice 5 dalje povozil formule. Če pa je to tisto, kar želite potem pa spremenite vrstico:

Koda: Izberi vse

' namesto 
      Cells(vrst2, 2) = Cells(vrst1, 1)
' napišite
      Cells(vrst2, 1) = Cells(vrst1, 1)

[zvonem]

Odlično! Hvala. rad bi samo še malo dopolnitev, ker sem bil v prvotnem vprašanju malce nejasen. Osnovni podatki so v stolpcih (tu ste me pravilno razumeli), končni izpis pa bi rad v vrstici (v podanem macru je izpis ravno tako v stolpcu).

[admin]

Aha, to pa je bolj smiselno . No rešitev je še vedno trivialna:

Koda: Izberi vse

' namesto
      Cells(vrst2, 2) = Cells(vrst1, 1)
' napišite
      Cells(1, vrst2) = Cells(vrst1, 1)

[zvonem]

Matjaž, odlično! Hvala