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
Urejanje podatkov
Glede na vaše želje je makro sledeč:
Poglejte si tudi link na vrhu strani, saj so cene spuščene še za 25%!
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
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator