aha.. ok, dank jequote:Op maandag 30 januari 2012 18:42 schreef mirelia het volgende:
Ik kreeg de meldingen op de site, niet op het bestand zelf.
Daar is niets mee aan de hand, excuses voor de verwarring
=1,25/24quote:Op vrijdag 3 februari 2012 17:00 schreef Puckzzz het volgende:
Ik heb Excel 2010.
Taal geen idee.
Ik heb twee identieke tabbladen met als enig verschil dat ik in tabblad 2 zal werken. (maar de gegevens worden wel overgenomen in tab 1)
Daar komt in een kolom een tijdsnotatie te staan in decimalen. Dus voor 1 uur en een kwartier komt daar te staan 1.25. We ronden alles af naar kwartieren dus doen niet moeilijk met 5 minuutjes e.d.
Nu moet ik dus in diezelfde cel maar dan in tabblad1 dat decimale getal omzetten naar uren en minuten. daar moet dus komen te staan 1:15
Ik krijg het niet voor elkaar
tob al met spreadsheets sinds quatro proquote:Op vrijdag 3 februari 2012 17:10 schreef DaFan het volgende:
Lol ok dat is best makkelijk.
Kritisch owned dit topic
1 2 3 4 5 6 7 8 9 | Function SubT(Bereik As Variant, Term As String, TermKol as integer, OptelKol as integer) For i = 1 To Bereik.Count If Term = Bereik(i, TermKol) Then SubT = SubT + Bereik(i, OptelKol) End If Next End Function |
Mijn tweede suggestie is beter en sneller (UDF is traag)quote:Op vrijdag 3 februari 2012 20:07 schreef Sjaakbakfiets het volgende:
Dank voor je uitgebreide reactie, ik ga er mee aan de slag!
Waarom niet helemaal dan?quote:Op vrijdag 3 februari 2012 20:38 schreef Sjaakbakfiets het volgende:
Mocht je een oplossing hebben voor mijn volgend probleem dan hoor ik het graag
Ik heb 2 excelbestanden (respectievelijk 4000 en 8000 rijen), en in beide bestanden zit een kolom met codes. In totaal zijn ongeveer 3500 van deze codes hetzelfde. U raadt het al, deze 3500 codes (met bijbehorende informatie) moet ik filteren.
Weet jij/iemand hoe ik deze bestanden kan matchen?
Edit: grotendeels gelukt, dmv formule ALS(ISFOUT(VERT.ZOEKEN(A1;B:B;1;0));"";VERT.ZOEKEN(A1;B:B;1;0))
Macro/VBAquote:Op zondag 5 februari 2012 15:24 schreef elkravo het volgende:
Stel ik heb een vrij lange Excel lijst/tabel. Hierin staat een kolom met categoriën, bijvoorbeeld A, B, C.
Iedere rij/object heeft dus een categorie A B of C gekregen, hierin zit geen volgorde
Nu wil ik graag dat er ondere iedere rij van categorie B een extra lege regel wordt toegevoegd.
Beperking: ik kan/mag de lijst NIET sorteren omdat ik dan nooit meer terugsorteren kan naar de huidige volgorde.
Kan dit makkelijk, zonder dat ik handmatig rijen 1-voor-1 moet toevoegen?
Ik probeer zoveel mogelijk macro's VBA te vermijden omdat ik er geen verstand van heb. Liefst een simpel trucje. Het betreft een eenmalige verbouwing van een excel lijst waarbij ik onder bepaalde rijen van een categorie een extra regel moet toevoegen. En de lijst is 10.000 rijen...quote:Op zondag 5 februari 2012 15:27 schreef qu63 het volgende:
[..]
Macro/VBA
KritischeMassa zal zo wel langskomen om het uit te leggen
Of zoek uit hoe je t zelf kan doen, ik kan t namelijk ook (nog) niet goed (genoeg)
Ja ik zou wel VBA gebruikenquote:Op zondag 5 februari 2012 15:30 schreef elkravo het volgende:
[..]
Ik probeer zoveel mogelijk macro's VBA te vermijden omdat ik er geen verstand van heb. Liefst een simpel trucje. Het betreft een eenmalige verbouwing van een excel lijst waarbij ik onder bepaalde rijen van een categorie een extra regel moet toevoegen. En de lijst is 10.000 rijen...
1 2 3 4 5 6 7 8 9 10 11 12 | Sub InsertLines() Dim LastRow As Long With ActiveSheet LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row End With For i = LastRow To 1 Step -1 If ActiveSheet.Cells(i, 1) = "B" Then Rows(i + 1).Insert Shift:=xlDown End If Next End Sub |
Je kan altijd terug sorteren als je eerst een kolom maakt die gewoon telt van 1 tot eindequote:Op zondag 5 februari 2012 15:24 schreef elkravo het volgende:
Beperking: ik kan/mag de lijst NIET sorteren omdat ik dan nooit meer terugsorteren kan naar de huidige volgorde.
1 vraagje... in de code, waar staat de A voor in "LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ??quote:Op zondag 5 februari 2012 15:47 schreef KritischeMassa het volgende:
[..]
Ja ik zou wel VBA gebruiken
Maar ja
Het invoegen van regels is nu eenmaal niet mogelijk met een formule, of lastig.
Als je in VBA gaat klooien maak dan wel eerst een backup van de huidige situatie.
[ code verwijderd ]
Deze code in de betreffende sheet plakken (in het VBA scherm) en de macro draaien
Deze code gaat ervan uit dat de ABC in kolom A staat (activesheet.cells(i,1) = "B") de 1 in cells verwijzing slaat op kolom A dat kun je aanpassen
Hij kijkt in kolom A wat de laatste regel isquote:Op zondag 5 februari 2012 16:17 schreef elkravo het volgende:
[..]
1 vraagje... in de code, waar staat de A voor in "LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ??
1 2 3 4 5 6 7 | Sub InsertLines() For i = 32012 To 1 Step -1 If ActiveSheet.Cells(i, 1) = "B" Then Rows(i + 1).Insert Shift:=xlDown End If Next End Sub |
Ok... dan snap ik 'm... ben geen VBA held ;-)... normaal als ik een rij toevoeg, duurt dat 3 seconden ivm formuleberekeningen... de macro runt nu... zal wel even duren ;-)... laat m'n comp gewoonjakkeren... Hopelijk kom ik straks terug met goed het resultaat op m'n scherm.quote:Op zondag 5 februari 2012 16:20 schreef KritischeMassa het volgende:
[..]
Hij kijkt in kolom A wat de laatste regel is
Ik ben uitgegaan van kolom A
Je kan ook de lastrow opgeven als je die weet (bijvoorbeeld rij 32012)
Dan kan je volstaan met
[ code verwijderd ]
Ach had dat gezegdquote:Op zondag 5 februari 2012 16:26 schreef elkravo het volgende:
[..]
Ok... dan snap ik 'm... ben geen VBA held ;-)... normaal als ik een rij toevoeg, duurt dat 3 seconden ivm formuleberekeningen... de macro runt nu... zal wel even duren ;-)... laat m'n comp gewoonjakkeren... Hopelijk kom ik straks terug met goed het resultaat op m'n scherm.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |