[Excel] Het grote Excelvragentopic #51

Thanks, ik ga ze vanavond uitproberen.

Die van Rectum lijkt de makkelijkste.

quote:

Op zondag 10 november 2024 21:57 schreef snabbi het volgende:

[..]
Dim bestand,startsheet as String
bestand = ActiveWorkbook.Name
startsheet = ActiveSheet.name
<al je selecties en bewerkingen die je wilt>

Windows(bestand).Activate
Sheets(startsheet).Activate

Ik heb die van Rectum gebruikt en dat doet wat ik wil.

Wat doet jouw code anders, welk nut heeft het om die te gebruiken boven de andere?

quote:

Op maandag 11 november 2024 17:10 schreef Sometimes het volgende:

[..]
Ik heb die van Rectum gebruikt en dat doet wat ik wil.

Wat doet jouw code anders, welk nut heeft het om die te gebruiken boven de andere?

Het stukje van Rectum over Worksheets(ws).Activate is hetzelfde als de mijne met Sheets(startsheet).Activate en richt zich volledig op het tabblad.

De toevoeging die ik gedaan heb met Windows(bestand).Activate is als je door meerdere excelbestanden heen gaat bladeren en je dus weer terug moet naar het excelbestand waar je mee begonnen bent.

quote:

Op maandag 11 november 2024 20:11 schreef snabbi het volgende:

[..]
Het stukje van Rectum over Worksheets(ws).Activate is hetzelfde als de mijne met Sheets(startsheet).Activate en richt zich volledig op het tabblad.

De toevoeging die ik gedaan heb met Windows(bestand).Activate is als je door meerdere excelbestanden heen gaat bladeren en je dus weer terug moet naar het excelbestand waar je mee begonnen bent.

Oh dat kan inderdaad heel handig zijn.
Dank voor de uitleg.

quote:

Op zondag 10 november 2024 20:14 schreef Z het volgende:
Gebruik je Application.ScreenUpdating in je macro?

Deze toch ook maar toegevoegd. Voor snelheid (in mijn situatie) niet echt nuttig, maar wel lekker om het verspringende beeld kwijt te zijn.

[ Bericht 13% gewijzigd door Sometimes op 11-11-2024 21:22:19 ]

Avond, als ik cellen via celstijlen van een kleurtje voorzie, zeg groen en rood. Hoe maak ik daar eenvoudig een cirkeldiagram van, die laat zien welk percentage groen en rood is? Alvast bedankt!

Eerst het percentage berekenen met AANTALLEN.ALS()?

quote:

Op zaterdag 1 februari 2025 20:23 schreef Adrie072 het volgende:
Avond, als ik cellen via celstijlen van een kleurtje voorzie, zeg groen en rood. Hoe maak ik daar eenvoudig een cirkeldiagram van, die laat zien welk percentage groen en rood is? Alvast bedankt!

Gewoon een cirkeldiagram invoegen en de categorieën van dezelfde kleurtjes voorzien. Automatisch gaat dat sowieso niet, volgens mij.

quote:

Op zondag 10 november 2024 18:29 schreef Sometimes het volgende:
Ik zoek een stukje VBA code om na het uitvoeren van een Macro terug te keren in het tabblad van waaruit ik de macro heb opgestart.

Situatie:
Excel 2016
Excel document met 8 tabbladen (laten we ze 1-2-3-4-5-6-7-8 noemen). Ik wil een macro opstarten vanuit willekeurig welk tabblad die iets doet in tabblad 2. Dat lukt met Sheets("2").Select

Maar na het uitvoeren van de taak wil ik graag dat het scherm teruggaat naar het tabblad van waaruit ik de macro opgestart heb. Kan dat (en zo ja: hoe)?

CoPilot heeft een online versie die dit dit in minder dan 20 seconden voor je schrijft.

mijn kolommen stoppen bij kolom IV
Wat te weinig is omdat ik dan niet alle dagen op het rekenblad krijg

Nu las ik dat dit te maken kan hebben met de voorwaardelijke opmaak maar ik kom er niet uit;
iemand een idee?

quote:

Op maandag 3 februari 2025 10:27 schreef mrPanerai het volgende:
mijn kolommen stoppen bij kolom IV
Wat te weinig is omdat ik dan niet alle dagen op het rekenblad krijg

Nu las ik dat dit te maken kan hebben met de voorwaardelijke opmaak maar ik kom er niet uit;
iemand een idee?

[ afbeelding ]

Je voorwaardelijke opmaak is op dat screenshot ruim zat, dus dat zou het probleem niet moeten zijn. Kan je niet gewoon kolommen verder door kopiëren?

Ik was benieuwd naar het aantal kolommen, bij mij is de laatste kolom xfd.

ik werk gewoon in de laatste Excel versie via Microsoft 365 van het bedrijf

quote:

Op maandag 3 februari 2025 16:15 schreef Janneke141 het volgende:

[..]
Maar heb je op een normaal, leeg werkblad dan wel meer dan die 256 kolommen?

ja normaal heb ik gewoon oneindig kolommen, dit is gekomen na voorwaardelijke opmaak

Misschien per ongeluk de kolombreedte van de niet zichtbare kolommen op 0 gezet, dan zie ik ze ook niet meer.

Doe even CTRL A om alles te selecteren - klik met je rechtermuistoets in 1 van de kolom-letter en kies om de verborgen kolommen weer te geven (unhide/zichtbaar maken).

quote:

Op maandag 3 februari 2025 16:23 schreef Janneke141 het volgende:

[..]
Dat is echt heel raar. Dat lijkt me onderhand een bug-achtige toestand... Je had de data van 13/09 tot 31/21 dus oorspronkelijk wel gewoon op je blad staan?

Als je de regels voor voorwaardelijke opmaak verwijdert, krijg je je missende kolommen dan weer terug?
Als je het hele werkblad kopieert naar een nieuw werkblad (eventueel met Waarden plakken), zie je ze dan wel weer?

Nee, ik had dit werkblad vorig jaar midden in het jaar gemaakt, begin dit jaar gekopierd en de data aangepast, toen merkte ik dat ik kolommen miste

quote:

Op maandag 3 februari 2025 18:03 schreef snabbi het volgende:
verborgen kolommen weer te geven (unhide/zichtbaar maken).

Deze werkmap heeft nog andere tabbladen, daar vond ik inderdaad een verborgen gedeelte wat blijkbaar ook weer invloed had op dit tabblad.

Opgelost, bedankt voor het meedenken

Is er een manier om een bepaalde tabel te vinden in een excel sheet? Ik kreeg bij het openen van een bestand met veel tabellen een foutmelding, in 2 tabellen is iets gerepareerd. Maar dit bestand heeft weet ik veel hoeveel tabellen, uiteraard bij lange na niet allemaal netjes met naam en nu weet ik niet welke tabellen zijn gerepareerd

quote:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main"><logFileName>error146520_01.xml</logFileName><summary>Se han detectado errores en el archivo "(bestandsnaam weggehaald ivm privacy).xlsx"</summary><additionalInfo><info>Excel ha completado la validación y reparación en nivel de archivo. Puede que se hayan reparado o descartado algunas partes de este libro.</info></additionalInfo><repairedRecords><repairedRecord>Registros reparados: Tabla de /xl/tables/table7.xml parte (Tabla)</repairedRecord><repairedRecord>Registros reparados: Tabla de /xl/tables/table11.xml parte (Tabla)</repairedRecord></repairedRecords></recoveryLog>

Oh ja, ik gebruik de Spaanse versie

Enkele jaren geleden had ik een excelbestand die hele voetbalcompetities maakte

Je moest het aantal teams, hoeveel keer ze tegen elkaar moesten, invullen en de namen. Excel berekende de wedstrijden en je kon ook de wedstrijden invullen

Weet iemand waar je zo'n bestand kan downloaden?

ik heb deze tutorial op Youtube gevonden. Maar het is in het Engels terwijl mijn excel in het Nederlands is
Bekijk deze YouTube-video

En ben gewoon te dom om het zelf te bouwen.

Je kan het downloaden maar ze vragen eerst 21 euro per maand te betalen lol. Dat is wel extreem duur voor een bestandje

Met een simpel zoeken in je gewenste zoekmachine vind je zo een lijst van Excel-functies en de vertalingen.

quote:

Op woensdag 26 februari 2025 18:11 schreef Tegan het volgende:
Met een simpel zoeken in je gewenste zoekmachine vind je zo een lijst van Excel-functies en de vertalingen.

Ik ben toch van start gegaan. Was al een tijdje van plan om Microsoft 365 aan te schaffen en ben nu bezig in de laatste EXCEL. Ik ben halverwege deze tutorial en het gaat best "goed" Soms vergeet ik een ")" of een ";" maar het gaat best goed.

Gisteren 3 uur bezig geweest voor een stukje van 24 minuten. Dat is misschien best traag. Maar goed.

quote:

Op donderdag 27 februari 2025 16:02 schreef capuchon_jongen het volgende:

[..]
Ik ben toch van start gegaan. Was al een tijdje van plan om Microsoft 365 aan te schaffen en ben nu bezig in de laatste EXCEL. Ik ben halverwege deze tutorial en het gaat best "goed" Soms vergeet ik een ")" of een ";" maar het gaat best goed.

Gisteren 3 uur bezig geweest voor een stukje van 24 minuten. Dat is misschien best traag. Maar goed.

Voor je het weet kun je anderen gewoon 21 euro vragen voor jouw werk .

quote:

Op donderdag 27 februari 2025 16:02 schreef capuchon_jongen het volgende:

[..]
Ik ben toch van start gegaan. Was al een tijdje van plan om Microsoft 365 aan te schaffen en ben nu bezig in de laatste EXCEL. Ik ben halverwege deze tutorial en het gaat best "goed" Soms vergeet ik een ")" of een ";" maar het gaat best goed.

Gisteren 3 uur bezig geweest voor een stukje van 24 minuten. Dat is misschien best traag. Maar goed.

Had je dit niet gewoon aan Copilot kunnen vragen?

Ik heb ontdekt dat Copilot ook alle code kan schrijven. Binnenkort cursus AI en dan gaan mijn Excel skills hopelijk ook naar het volgende niveau.

quote:

Op woensdag 26 februari 2025 13:33 schreef flipsen het volgende:
Is er een manier om een bepaalde tabel te vinden in een excel sheet? Ik kreeg bij het openen van een bestand met veel tabellen een foutmelding, in 2 tabellen is iets gerepareerd. Maar dit bestand heeft weet ik veel hoeveel tabellen, uiteraard bij lange na niet allemaal netjes met naam en nu weet ik niet welke tabellen zijn gerepareerd
[..]
Oh ja, ik gebruik de Spaanse versie

Copilot zegt dit op mijn vraag 'Kan je in een bestand met honderden tabellen de gerepareerde tabellen in een apart tabblad zetten?'

Sub KopieerGerepareerdeTabellen()
Dim ws As Worksheet
Dim nieuwTabblad As Worksheet
Dim rng As Range
Dim doelRij As Long

' Maak een nieuw werkblad aan voor de gerepareerde tabellen
Set nieuwTabblad = ThisWorkbook.Worksheets.Add
nieuwTabblad.Name = "GerepareerdeTabellen"

doelRij = 1

' Loop door elk werkblad in de werkmap
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "GerepareerdeTabellen" Then
' Zoek de gerepareerde tabellen
' (hier wordt aangenomen dat ze een specifieke tekst bevatten, bv. "gerepareerd")
Set rng = ws.UsedRange.Find(What:="gerepareerd", LookIn:=xlValues, LookAt:=xlPart)

If Not rng Is Nothing Then
' Kopieer de gevonden tabel naar het nieuwe tabblad
ws.UsedRange.Copy Destination:=nieuwTabblad.Cells(doelRij, 1)
doelRij = doelRij + ws.UsedRange.Rows.Count + 1 ' Volgende vrije rij
End If
End If
Next ws
End Sub