bucky

Als je het perse met een macro wilt doen, kijk hier dan maar eens.

Ja Bram, Waarom dan sorteren? En ik zou toch eens een .xls of een .xlsm voorbeeldje van jou kant willen zien, met je macro. Zo niet.......jammer dan.

Het is hierom dat je niet meer hoeft te reageren, niet netjes hoor.

=als(datum(2014;12;1)<vandaag();a1+a2;0) of =als(datum(2014;12;1)<vandaag();a1+a2;"") Dus na 1-12-2014 worden A1 en A2 opgeteld. - - - Updated - - - En hier worden A1 en A2 op precies 1-12-2014 opgeteld. =als(datum(2014;12;1)<=vandaag();a1+a2;0) of =als(datum(2014;12;1)<=vandaag();a1+a2;"")

Als je in het vak staat om te reageren, scrol je naar beneden en kies je rechts onder "meer Opties" Dan scrol je verder naar beneden tot bij "Overige Opties", en klik je op "Beheer Bijlage" > "Bestand Toevoegen" en zoek je het bestand, dubbelklik op het bestandje > Klik op "Uploaden" en daarna op "klaar" En als het niet duidelijk is, het staat ook linksboven onder "Handleidingen" bucky

Dat zeg ik niet, maar kom nu eens met een voorbeeldje, anders haak ik af.

Laat je verhaaltje eens vergezellen door een .xls of .xlsx voorbeeldje, dat zegt meer als 1000 woorden. En wat bedoel je met decreasen, haal je echt die 2 cijfers weg? bucky

Nou daar komt ie: Open je bestand. Heb je in het lint het tabblad "Ontwikkelaars" staan ga dan naar 2 Anders: 1. Ga op een van tabbladen in het lint staan, en klik met rechts. Kies nu "Het lint aanpassen" en het tabblad "Opties voor Excel" verschijnt. Kies in het linker vak "Hoofd tabbladen", en klik op "Ontwikkelaars" Hierna kun je de keuze maken tussen "toevoegen" of "verwijderen" wij kiezen voor "toevoegen" In het rechter vak zie je nu ook "Ontwikkelaars" staan. En druk OK Het scherm wordt afgesloten, en in het lint is nu het tabblad "Ontwikkelaars" ingevoegd. 2. Kopieer de code die je van mij hebt gehad, klik met rechts op het tabblad waar je de rijen wilt invoegen, en kies voor "Programmacode weergeven" Plak nu de code in het grote vak, en sluit de VBA editor af met het rode kruisje. Je bent nu weer terug op je werkblad. Klik nu op "ontwikkelaars" en kies aan de linkerkant voor "Macro's" Er opent nu een nieuw venster, en zie daar staat de macro "Rij_invoegen" Nu kun je twee dingen doen: Als je op "Uitvoeren" drukt wordt de macro uitgevoerd, hij voegt een rij in onder de rij waar de cursor staat. Of Je klikt op "Opties" en kom je weer in een nieuw deelvenster, en die wijst zich zelf. Type een letter b.v.b. i van invoeren, en klik OK en sluit het venster af. Als je nu op een cel gaat staan, en je drukt: Alt + i dan wordt er een rij ingevoegd, en je formules worden mee gekopieerd. VERGEET NIET HET BESTAND OP TE SLAAN ALS: EXCEL_WERKMAP MET MACRO'S Succes, bucky

Dit moet wel via de VBA editer gebeuren, welke versie van Excel heb je? Als het 2007 of hoger is kan ik het je wel uitleggen, je zult dan wel het tabblad "ontwikkelaars" moeten aanmaken. Als je er geen vertrouwen in hebt mag je me het bestandje wel ff mailen, stuur dan ff een PB-tje, dan kan ik je mijn email adres geven. Het is aan jou. bucky

Dit kan op verschillende manieren, maar hoe jij dit wilt verwezenlijken kan ik niet uit je vraag opmaken. Wil je dit met behulp van een drukknopje, of door te dubbelklikken of door de Ctrl toets kombinatie ........zeg het maar. Ja....anders had ik je deze code niet gegeven. bucky

Zet onderstaande code achter je Worsheet Sub Rij_Invoegen() Application.ScreenUpdating = False Rows(ActiveCell.Row).Copy Rows(ActiveCell.Row).Offset(1).Insert Rows.Copy ActiveCell.Offset(0, 0).Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Als je een bestand opslaat als Sjabloon, kun je hem openen wijzigen en opslaan onder een naam zo vaak als je wilt. Je sjabloon blijft ongewijzigd, tot je de sjabloon wijzigt, en weer opslaat als sjabloon.

Cynthia, Ik ben dan wel geen "Word " man, maar ben meer voor Excel........maar heb je al aan sjablonen gedacht? Of is dit geen optie. bucky

Filiep, Ik ga kijken wat ik kan doen, ik ben geen VBA specialist......maar meer een knutselaar. bucky

Je kunt het ook doen zoals in mijn voorbeeldje: Koenraad-voorbeeldje.xlsx

Heb ik Post 6 en 8 dan niet goed gelezen? Post #6 Post 8 bucky

filiep, Vervang macro7 door onderstaande. Het is makkelijker als je een macro een logische naam geeft, en geen automatisch "macro nummer".........maar dat terzijde. Sub Rij_Invoegen() Application.ScreenUpdating = False Rows(ActiveCell.Row).Copy Rows(ActiveCell.Row).Offset(1).Insert Rows.Copy ActiveCell.Offset(0, 0).Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub bucky

Filiep, Als ik naar jou voorbeeldje kijk, zijn de kolommen A en B vrij in te vullen kolommen. De macro die ik je gegeven heb gaat puur over de kolommen C,D en E If Target.Column = 4 Then Target.Offset(, 1) = (Target) * Target.Offset(, -1) Dit stukje code zegt: Als er in "Kolom 4" (D) een waarde staat. DAN Kolom +1(E) = kolom (D) maal kolom -1© Als formule zou er dus dit staan in E1 ALS(D1<>"";D1*C1;"") Als je er helemaal niet uitkomt, post dan het originele bestand, zonder privé gegevens. bucky

Mijn code vervangt de macro in je voorbeeld. Je moet de module die je hebt verwijderen, door er met rechts op te klikken > module1 verwijderen, exporteren....nee. Dan dubbelklik je op Blad1, en plak je de code in het grote veld. Zie je eigen bijlage, waar ik dit heb gedaan. bucky test 2014.11.11_jou voorbeeld.xlsm

Als je het dan toch met een macro wilt doen. Plak dan deze code achter je Worksheet Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D:D")) Is Nothing Then If Target.Column = 4 Then ActiveSheet.Unprotect Target.Offset(, 1) = (Target) * Target.Offset(, -1) ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End If End If End Sub bucky 1-test filiep.xlsm

filiep, Waarom moet dit met een macro, en niet gewoon met een formule? bucky

In mijn eerste voorbeeldje zit ook een foutje, met het zelfde (fout)resultaat als in het tweede voorbeeld voor B10. =ALS.FOUT(ALS(K10>VERT.ZOEKEN(B10;$P$2:$Q$5;2;[color=#ff0000]1[/color]);"ja";"nee");"") moet zijn: =ALS.FOUT(ALS(K10>VERT.ZOEKEN(B10;$P$2:$Q$5;2;[color=#ff0000]0[/color]);"ja";"nee");"") 't is maar een weet, voor als je deze toch wilt gebruiken. bucky

Ik heb al gezien wat het probleem is met deze formule, ik had het kunnen weten. =ALS(K10>ZOEKEN(B10;{"pro"\"b"\"k"\"tl"};{40\60\75\90});"ja";"nee") Het eerste deel en het tweede deel van de formule moeten in alfabetische cq numerieke volgorde staan. Wijzig je in de formule en in het bestand "pro" in "a" zul je zien dat het wel werkt, dat is dus een nadeel van deze formule. Conclusie: Of je wijzigt alle "pro's" in "a", en dat kan met één druk op een knop, of je gebruikt de eerste optie met vert.zoeken. Als je dezelfde zoek matrix voor de vert.zoeken formule over meer bladen wilt gebruiken, is het handiger als je de zoekmatrix een naam geeft. Weet je niet hoe het werkt? Laat het maar weer weten. bucky

maertens michael, Als jij niet eens de moeite neemt om op dit forum een antwoord te geven, ben ik niet van plan om je hier met het zelfde probleem te helpen. bucky

@plx, Dan ga ik voor deze: =ALS(AANTAL(K3)=1;ALS(K3>ZOEKEN(B3;{"pro"\"b"\"k"\"tl"};{40\60\75\90});"ja";"nee");"") voorbeeld_Ester_2.xlsx