bucky

Zoveel haast heb je anders ook niet, een voorbeeldje maken kost toch niet zoveel tijd? Of........heb je zelf al een oplossing gevonden? Dan mag je dat ook laten weten hoor. bucky

Begin dan maar eens met te laten zien wat je al hebt, en waar je over struikelt. Dit is niet verkeerd bedoeld, maar voorkomt wel een gewirwar van heen en weer gepraat. En ja......plezier hebben de meeste helpers er ook in, anders zouden we er onze tijd niet insteken.;-)

Mag ik je eens een sugestie doen?....ja hoor. Steek dan je licht eens op in onderstaande link. http://www.gratiscursus.be/ bucky

Nou hier komt dan een poging, Volgens mij is dit de eenvoudigste manier. Zet in J4: =--(EN(I4="";D4-4<VANDAAG())) En trek deze door naar beneden. Je krijgt nu in kolom J 1 of 0 te zien (WAAR of ONWAAR) Met een filter op kolom J filter je op de 1, kopiëren en plakken op een leeg Blad. Of de mogelijkheid van filteren aanwezig is op jullie (uitgeklede Officepakketje) weet ik niet. Success bucky

Welke versie van Office gebruik je, ik denk "Open Office".......en daar kan ik dus niets mee. bucky.

Een voorbeeld bestandje kan nog meer wonderen doen. Liefst in het Nederlands, voor de niet Engelstalige onder ons......waaronder deze jongen. bucky

Dat is nu een typische eigenschap van een Engelstalig forum:D

Najim, Ik denk dat je het zo bedoeld: bucky Voorbeeldje_Najim.xlsx

Ik denk dat iedereen hem allang vergeten is.

Robert, Het eerste deel van je vraag is geen probleem, maar onderstaande is voor jou miss. gesneden koek, maar voor mij abracadabra. Kun je dit eens voor een import zeeuw (ik woon pas 40 jaar hier) uitleggen wat precies de bedoeling is. gr. bucky

Is het nog gelukt exellerke? Laat niet als dank......maar geef ff respons, dan weten we dat we niet voor niets proberen te helpen. En blijven we gemotiveerd om hiermee door te gaan. bucky

Wat jij vraagt is niet zomaar een progje, maar behoorlijk uitgebreid. Met mijn zeer bescheiden kennis van Access denk ik dat zoiets maken enkele/meerdere dagen in beslag gaat nemen, en professionele hier meer gewenst is.

excellerke, Kijk eens of je het zo bedoeld. Gr bucky probleem offerte_voorbeeld -uitbreiding-18-2-2013.xls

Selecteer eens een simpele formule, druk eens een paar keer op de F4 toets en zie wat er gebeurt. Nadat je dat gedaan hebt, selecteer je de formule weer en druk je weer op F4 en ga je slepen(van boven naar beneden en van links naar rechts) doe dit telkens nadat je weer eens op F4 hebt gedrukt. Na een paar keer proberen heb je het zo door. Met de $ tekens zet je eigenlijk een rij of/en een kolom nummer vast. Oefening baart kunst;-) bucky

GIB, Heeft je computer het begeven of zo?......laat anders eens horen of het gelukt is.

=als(a1>0;a1;nb()) - - - Updated - - - Om de e.o.a. reden werden de hoofdletters in mijn vorige post omgezet in kleine letters, daarom hier nogmaals: =ALS(A1>0;A1;NB()) En nu maar hopen dat het goed gaat:-)

Als je naar Gegevens validatie gaat als je op een cel in D staat, en je klikt op de formule, wordt de lijst geselecteerd, druk nu op Ok en het werkt ook in 2007 en hoger. Hoe het komt?.....is mij een raadsel, als iemand het weet......laat het maar weten. bucky

GIB, Hier heb je hem ook nog eens in de Compatibiliteitsmodus, het bestandje is gemaakt in Excel2003. Om de een of andere reden werkt het niet in 2007 of hoger. Ik probeer dat nog uit te zoeken, en laat nog wat van me horen. bucky Valideren op beginletter.xls

Kijk eens of je met dit voorbeeldje iets kunt doen, komt nog uit de rommeldoos:-) Het VBA gedeelte is alléén voor het sorteren, je kunt het ook nog handmatig kunnen doen.......maar moet wel gebeuren. Valideren op beginletter.xlsm

Vaes, Invoegen > Vormen > Stroomdiagram: pak het cirkeltje linksboven en zet hem op je blad, maak hem zo groot als nodig en verplaats je cursor, en weer plaken. Als je genoeg cirkels hebt, selecteer je een cirkel > rechts klikken > Tekst toevoegen. Selecteer een cirkel, klik rechts op een hoekje > vorm opmaken,en wijzig de kleur. Klik in de cirkel, en maak je tekst op. bucky Cirkels.docx

Ik heb ooit eens een facturatie progje gemaakt, dat moest opgeslagen worden onder "Naam&Factuurnr." in J2 Daar heb ik onderstaand stukje code voor gebruikt, ook van een forum geplukt.;-) Deze code ook weer in ThisWoorkbook achter een knoppie. Sub Bewaren() Dim pad As String, filenaam As String Application.ScreenUpdating = False pad = docadres filenaam = Replace(Replace(Replace([J2].Value, ":", "-"), ".", ""), " ", "") & ".xls" 'de rest van de code ActiveWorkbook.SaveAs Filename:=filenaam With ActiveWorkbook .Saved = True .Close End With MsgBox "File is opgeslagen" End Sub dokadres "C:\Documents and Settings\Lieve\Mijn documenten\Lieve\....... Nu krijgt iedereen een eigen file in dit pad met de naam uit J2. Natuurlijk kun je voor J2 een andere cel gebruiken, maar dat wist je ook wel denk ik. bucky

Hier heb je er nog een, ik denk dat je dit meer bedoeld. Wel ff het pad aanpassen Code moet in ThisWorkbook, en achter een knoppie. Sub OpslaanAls() Dim CelMetNaam As String Application.DisplayAlerts = False CelMetNaam = Range("A1").Value ThisWorkbook.SaveAs Filename:="[color=#ff0000]C:\Documenten\Testjes Excel\Testbestanden\[/color]" & CelMetNaam Application.DisplayAlerts = True End Sub bucky

Deze had ik nog staan, ergens weggepikt ben zelf geen VBA man;-) Misschien kun je er iets uithalen. Public Sub Opslaan() Dim FileName As String FileName = ActiveWorkbook.Path & "\" & Cells(1, 1).Value ActiveWorkbook.SaveAs FileName ActiveWorkbook.Close End Sub Of Sub Opslaan() ActiveWorkbook.SaveAs FileName:=Sheets(1).Range("A1") End Sub bucky - - - Updated - - - Hier heb je er nog een, ik denk dat je dit meer bedoeld. Wel ff het pad aanpassen Code moet in ThisWorkbook, en achter een knoppie. Sub OpslaanAls() Dim CelMetNaam As String Application.DisplayAlerts = False CelMetNaam = Range("A1").Value ThisWorkbook.SaveAs Filename:="[color=#FF0000]C:\Documenten\Testjes Excel\Testbestanden\[/color]" & CelMetNaam Application.DisplayAlerts = True End Sub bucky

Hier heb je nog ff een voorbeeldje: bucky. Voorbeeld voor Gib.xls

Gib, Als in kolomA: TP-nummer dan een van de volgende formule(s) ALS($A1="";"";je formule) Of gebruik de isfout formule: =ALS(ISFOUT(jeformule);"";jeformule) Als het mogelijk is, ga dan zoveel mogelijk voor een formule die de fout afvangt, zoals de eerste. bucky