Urejanje podatkov

Pomoč pri izdelavi makrov
Odgovori
tilen.barbic
Prispevkov: 1
Pridružen: To Jan 13, 2009 9:52 am

Urejanje podatkov

Odgovor Napisal/-a tilen.barbic »

Pozdravljeni!

Imam problem za katerega na žalost še nisem našel rešitve in se obračam na vas.

Opis problema:
V Excelov list z imenom "Osnovni podatki" uvozim meritve iz .txt datoteke. Excel mi vse meritve razvrsti v stolpce in vrstice. V stolpec A mi vpiše številko operacije v stolpec B pa meritev. Doseči želim, da če je v stolpcu A številka 1 naj mi na drug Excelov list z imenom "Meritve" vpiše meritev, ki se nahaja v stolpcu B in to počne tako dolgo, dokler je številka 1 v stolpcu A ter preneha ko te številke ne najde več. Na listu "Meritve" pa naj mi samodejno generira velikost tabele. Sam imam problem v tem, ko je včasih meritev 10, včasih 20, ali pa mogoče samo 6.
Če bi bilo meritev vedno enako potem to ne bi bil problem, v mojem primeru pa se mi zatakne ker sem tudi šele začetnik programiranja v VBA.
Prosim za pomoč in se vam že vnaprej najlepše zahvaljujem!

Lep pozdrav!
Tilen
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Glede na vaše želje je makro sledeč:

Koda: Izberi vse

'
' www.matjazev.net
' januar 2009
'
Sub PrepisiMeritve()
  Dim vhod As Worksheet: Set vhod = Sheets("Osnovni podatki")
  Dim izhod As Worksheet: Set izhod = Sheets("Meritve")
  Dim vrstVhod As Long, vrstIzhod As Long
  
  izhod.Cells.Clear 'pobrišem izhod
  
  vrstVhod = 2 ' predpostavim, da se podatki začno v drugi vrstici
  vrstIzhod = 1 ' pisal bom od prve vrstice dalje
  While (vhod.Cells(vrstVhod, 1) = 1)
    izhod.Cells(vrstIzhod, 1) = vhod.Cells(vrstVhod, 1)
    izhod.Cells(vrstIzhod, 2) = vhod.Cells(vrstVhod, 2)
    
    vrstVhod = vrstVhod + 1
    vrstIzhod = vrstIzhod + 1
  Wend
End Sub
Poglejte si tudi link na vrhu strani, saj so cene spuščene še za 25%!
lp,
Matjaž Prtenjak
Administrator
Odgovori