..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Urejanje podatkov

Pomoč pri izdelavi makrov

Urejanje podatkov

OdgovorNapisal/-a tilen.barbic » To jan 13, 2009 11:32 am

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
tilen.barbic
 
Prispevkov: 1
Pridružen: To jan 13, 2009 9:52 am



Matjazev.NET
 

OdgovorNapisal/-a admin » To jan 13, 2009 2:04 pm

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
admin
Site Admin
 
Prispevkov: 3526
Pridružen: Sr jul 20, 2005 10:06 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost

cron