Pas Cal

Beste mensen, Ik kom er even niet uit. Ik probeer een lijn diagram te maken obv hoeveel % respons er ontvangen is op uitnodigingen. Ik stuur voor een event 5 uitnodigingen uit op 1-11-2022. Op 10-11-2022 meld het eerste bedrijf zich aan (=20%) vervolgens op 20-11-2022 nog 2 bedrijven (=40%). In totaal heeft op 20-11-2022 60% van de 100% zich aangemeld. Weet iemand hoe ik hiervan een lijndiagram kan maken? Lijndiagram.xlsx

Hallo, ik heb een draaitabel en wil voor voor fondsen een vroegste datum ophalen + het aantal regels van deze vroegste datum. De vroegste datum haal ik op door een meting: Code: Eerste SLA =FIRSTDATE(Tabel1[SLA]) De datum komt dan terug als bv 28-10-2021. Nu wil ik een nieuwe meting met hoeveel regels er dan zijn met 28-10-2021. Code: =CALCULATE(COUNTROWS(Tabel1); Tabel1[SLA] = DATE(2021; 10; 28)) Dat laatste stuk moet dan eigenlijk dynamisch worden [Eerste SLA] maar die datum staat in een onjuiste volgerde (28-10-2021 ipv 2021; 10; 28). Weet iemand een code om dat op te lossen? Zie voorbeeld "aantal per datum". Test1.xlsx

Hallo mensen, wellicht een zeer eenvoudige vraag: hoe kan ik in excel niet gebruikte cellen (rijen/kolommen) verwijderen. Zie bijgevoegd voorbeeld, alleen de kolommen A, B en C zijn beschikbaar.

Werkt inderdaad prima, had een kolom leeg gemaakt. Super bedankt!

edit: werkt perfect, dank u!

Niet precies. Nu plaatst de macro alsnog een formule zodat de sheet langzaam wordt. Het is de bedoeling dat binnen de macro gecheckt wordt of de betreffende cel in Kolom C voorkomt in kolom B. Zo ja, dan enkel een 1 zetten in kolom E.

Goede dag, Ik heb een bestand met +/- 70.000 regels. Ik wil een cellen vergelijken of deze voorkomt in een kolom. Dit kost met =vergelijken veel tijd. Bijgevoegd een voorbeeld. De bedoeling is wanneer in kolom A bij de betreffende regel 99999 staat, dat dan kolom C vergeleken wordt of de naam in kolom B (geheel) voorkomt. Wanneer dit zo is, moet in kolom F '1' gezet worden. In het voorbeeld zou alleen F2 naar '1' gezet moeten worden omdat Klaas (C2) voorkomt in kolom B. Is dit mogelijk met een macro? Zo ja, heeft iemand een opzetje? Testbestand.xlsx

Duidelijk. Erg veel dank!

Blijven niet leeg, er kan andere informatie in staan, maar geen info om het VBA script aan te sturen.

Toch nog 1 vraagje. Nu staat de sheetnaam + Ja/Nee in kolom A/B. Als ik deze bv in kolom C/D wil hebben (vanaf regel 1) wat moet ik dan wijzigen?

Super dank. Dit is precies wat ik bedoelde! Nogmaals dank!

Hierbij een voorbeeldje. Op Blad1 kan je opgeven de naam die de PDF moet krijgen (B1). Blad2 moet altijd naar PDF omgezet worden. Blad3 en Blad4 afhankelijk of in cel B2/B3 Ja of Nee staat -> bij Ja wel en bij Nee niet. Het kan zijn dat het aantal Bladen (sheets) nog uitgebreid wordt met Blad5/Blad6 enz. In het VBA script kan deed ik het zo: Blad3toevoegen = Sheets("Blad1").Range("B2").Value If Blad3toevoegen = "" Then MsgBox "Maak een keuze om blad3 wel/niet mee te printen." Exit Sub End If If Blad3toevoegen = "Nee" Then ThisWorkbook.Sheets(Array("Blad2")).Select End If If Blad3toevoegen = "Ja" Then ThisWorkbook.Sheets(Array("Blad2", "Blad3")).Select End If Maar nu met Blad4 (en eventueel blad 5/6/7) kan dat niet meer. Is hiervoor een oplossing? Dat het script kijkt welke Bladen op 'Ja' staan en deze toevoegt aan het PDF. In de VBA moet de opslaglocatie van het PDF aangepast worden als je het wilt gebruiken. Export PDF.xlsm

Goedenavond, ik gebruik een VBA script om PDF te generen. Afhankelijk van het soort rapport moet er bepaalde tabbladen wel/niet als PDF gegenereerd worden. Ik doe dat als volgt: Sub PrintSelectionToPDF() fonds = Sheets("Opstarten").Range("B1").Value naam = fonds info1 = Sheets("Opstarten").Range("B14").Value If info1 = "Ja" Then ThisWorkbook.Sheets(Array("Voorblad", "Rapportage", "Info", "Achterblad")).Select End If If info1 = "Nee" Then ThisWorkbook.Sheets(Array("Voorblad", "Rapportage", "Achterblad")).Select End If ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\Users\**********\Rapportage_" & naam, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub Nu moet er nog een combinatie bijkomen. Is er een manier om de inhoud in de Array dynamisch te maken bv? BV: afdrukken = sheet1; afdrukken .= sheet2; afdrukken .=sheet3 ThisWorkbook.Sheets(Array("afdrukken")).Select

Afgelopen week met het script gewerkt. Het werkt super fijn! Indien het mogelijk is, zou het fijn zijn als kolom Q (CI SBI's) ook doorzocht kan worden. Deze regel ziet er bijvoorbeeld zo uit: 52291 Expediteurs, cargadoors, bevrachters en andere tussenpersonen in het goederenvervoer, 50401 Binnenvaart (vrachtvaart), 52241 Laad-, los- en overslagactiviteiten voor zeevaart Het zou dan fijn zijn dat wanneer een van de code's die op het tabblad 'code' staan (bv. 50401) matchen, op het tabblad 'uitvoer' gezet worden indien deze nog niet voorkomt op dat tabblad. Met de tekst hoeft verder niets te gebeuren.

Super dank! Echt blij met het script! Verbaast mij echt wat allemaal kan met VBA. Zou jij ook kunnen aangeven of de volgende mogelijkheden ook met VBA mogelijk zijn: - In het originele bestand bestaat het KvK uit 12 cijfers (kolom C) ik zet deze nu handmatig om naar 8 cijfers (kolom D) dan vergelijkt hetscript het met het KvK nummer op tabblad 'Bekend'. Kan dat omzetten naar 8 cijfers ook 'achter de schermen' in het VBA script? Op het tabblad 'uitvoer' moeten het ook 8 cijfers zijn. - In het script staat 'For k = 11 To 15 Step 2' geprogrammeerd. Soms zijn het andere kolommen, bv kolom 10, 12, 14. Is het in VBA mogelijk om die waarde uit excel te halen (bv vanaf het tabblad 'codes') zodat het flexibel is. - Kolom Q (CI SBI's) bevat ook codes en tekst. Zie regel 2. Zouden die ook doorzocht kunnen worde via het script? - Nu vergelijkt het script of het KvK nummer reeds bekend is op het tabblad 'bekend'. Zou dat uitgebreid kunnen worden met een 2de tabblad. Bv. eerst kijken obv KvK-nummer met tabblad 'Bekend' en vervolgens op naam op tabblad 'Bekend1'. Wanneer de onderneming op 1 van beide tabbladen voorkomt, moet het niet op 'uitvoer' komen. - Is het mogelijk om willekeurige tekst mee te geven aan de ondernemingen die geplaatst worden op het tabblad 'Uitvoer'? Deze tekst zou dan opgehaald moeten worden uit een cel op het tabblad 'codes'. Deze tekst zou dan in kolom J moeten komen (na het land). Ik begrijp dat ik veel vraag, zouden bovenstaande wensen mogelijk zijn? Uiteraard hoef je dit niet allemaal belangeloos te doen.

Super, met de uitleg kom ik een stuk verder! Nog 1 vraag: Vanuit kolom AG haal ik het land op --> land = Cells(r, 33).Value Deze schrijf ik weg via --> .Offset(1, 11) = land In het bestand staat het land als NL, dit zou ik graag gewijzigd willen hebben naar NEDERLAND, wanneer er BE staat dan BELGIE en wanneer er DE staat dan DUITSLAND. Matcht het niet met deze drie, dan ONBEKEND. Is dit mogelijk met het script?

Het probleem met de SBI code is opgelost. Had ik op 50 ingesteld waardoor ook lege SBI codes meegenomen werd.

Super, dank je. Ik zie wel dat de uitvoer niet helemaal correct gaat. Vanaf regel 59 (op tabblad uitvoer) staan er ondernemingen tussen die geen goede SBI code hebben.

Helaas krijg ik in bijgevoegd bestand een foutmelding. Wanneer ik in kolom G willekeurige tekst plaats loopt het script wel, maar worden er geen gegevens op het tabblad 'uitvoer' geplaats. Wanneer in in kolom G de SBI 50401 plaats, dan wordt deze wel verplaats naar het tabblad 'uitvoer'. Het script heb ik iets aangepast. De SBI codes staan op een andere plaats (kolom K, M, O). In 'module 2' heb ik de velden iets uitgebreider beschreven zodat ik sneller aanpassen kan maken. IS het wellicht mogelijk om er opmerkingen bij de plaatsen zodat ik het iets eenvoudiger zelf kan aanpassen (kennis is niet groot van VBA). SBI Bestand-R&B.xlsm

Wow. super bedankt! Dit is wat ik bedoelde. Bedankt!

Goedenavond, ik ben op zoek naar iemand die het leuk vindt om een VBA script te maken voor bijgevoegd bestand. Ik heb diverse voorbeeld scripts bekeken/andere topics op dit forum, maar niets sluit aan bij mijn wensen. Onderstaand is de bedoeling: 1. De regels in het bestand moeten (aantal regels wisselt altijd) kolom C, E, G vergeleken worden met de codes in kolom A op tabblad Codes (regel; 2,3,5 matchen). 2. De matchende regels checken of die al reeds bekend zijn op het tabblad 'bekend' obv KvK. Zo ja dan niets, zo nee dan naar punt 3. 3. De matchende regels, die niet voorkomen op tabblad 'bekend' naar tabblad Uitvoer kopieeren, maar dan alleen de cellen die daar nodig zijn (bv naam, KvK en adresgegevens) + sector code toevoegen (staat op tabblad codes (cel C2) 4. Dubbele matches maar 1 x verplaatsen (regel 2 zou 2 x matchen omdat code 3031 + 3032 matcht). 5. In het voorbeeld zouden alleen regels 2 en 3 op uitvoer moeten komen. Regel 4 heeft niet de matchende codes en regel 5 staat al op het blad 'bekend '. 6. De codes op tabblad 'codes' wisselen steeds, die kunnen dus niet hard geprogrammeerd worden. Is zo iets te realiseren? Bestand SBI.xlsx