Type: Berichten; Gebruiker: leofact
Je test nu a.h.w of de cel geselecteerd is, dat dus "waar"
Zo lukt het wel:
Dim Bestandsnaam As String
Bestandsnaam = "E:\test\" & Range("A1") + ".xlsm"
ActiveSheet.SaveAs Bestandsnaam
End Sub...
Is het bestand goed geconverteerd naar 2010? Dus via menu bestand > converteren (en dus niet alleen via opslaan als > .xlsm)
Verder zou er inderdaad een object kunnen missen > b.v de calendar...
Da's mooi.
Het heeft de voorkeus om de code inderdaad in het bestaande script op te nemen.
De genoemde private sub is een event macro, een macro die door een bepaalde gebeurtenis wordt...
Kan, maar met de IsEmpty worden de rijen niet verbogen als er in b21 een 0 staat, of als er een formule in staat.
De vraag uit de titel betreft inderdaad wel specifiek een lege cel.
Een voorbeeld...
Waarom niet gewoon de rijen verbergen?
Sub Rij()
ActiveSheet.Rows("16:22").Hidden = IIf(Range("b21") = 0, True, False)
End Sub
Deze regel kan eventueel ook in de selectionchange worden...
Wat de eerste vraag betreft.
Dat kan met voorwaardelijke opmaak en deze regels
=ALS(DATUM(JAAR(A1)+3;MAAND(A1);DAG(A1))<NU();WAAR)
=ALS(DATUM(JAAR(A1)+2;MAAND(A1)+6;DAG(A1))<NU();WAAR)
Bij de...
De volgende routine verwijderd alle bladen die met "Blad" beginnen zonder waarschuwingen
Sub VerwijderBladen()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In...
Mooi dat je ermee geholpen bent:)
Ook mooi dat je dit nog even hebt laten weten.
Mvg Leo
Google Agenda lijkt me dan een goed optie
Voor PC, Mac en met apps voor iOs en android.
Mvg Leo
Edit Terrarabo was me al terrible voor :)
Als ik je goed begrijp geeft één blad een aantal ongewenste lege pagina's bij het printen
Dat kun je mogelijk als volgt verhelpen.
> selecteer de gewenste gegevens > ga naar tab Pagina indeling >...
Ik zie deze er wel tussen staan (weiliswaar vaag)bij de services in het screenshot dat je geplaatsts hebt.
Het is de moeite waard om het te proberen deze (tijdelijk) uit te schakelen.
hier al naar gekeken?
mvg Leo
Alle updates van Vista geďnstalleerd? M.n. sp1?
Mogelijk betreft het hier een ipv6 probleem.
Met process explorer krijg je een duidelijker beeld welk processen de schuldige zijn.
Van svchost.exe...
Dat kan met
=TEKST(A4;"#")
Maar ik ben niet zeker of je dit bedoelt.
OOk kun je ook kijken, of je er iets aan hebt, door de celeigenschappen (CTRL + 1) op tekst te zetten.
Mvg Leo
Op zich niet.
Het gaat om de realtime scanners.
Dwz die anti virus die steeds op achtergrond "meekijkt" of er geen virus aanwezig is.
Meerdere daarvan tegelijk kunnen elkaaar in de weg zitten en...
Mooi dat je er iets aan hebt.
Graag gedaan!
Mvg Leo
Dat kan oa met gegevens validatie (tab gegevens>gegevensvalidatie)
Voor bijvoorbeeld kolom A > Kies voor aangepast
en vul de volgende formule in:...
Een gedepersonaliseeerd voorbeeld geeft vast meer duidelijkheid.
Overigens kun je kolommen verbergen (hele kolom selecteren, rechtsklikken, verbergen)
Mvg Leo
Mooi!
Mvg Leo
Over het hoofd gezien, kan gebeuren.
Hij doet t in ieder geval weer en daar gaat t om.
Mvg Leo
Gebruikte je eerst een ps2 toetsenbord dan?
Staat dat nog aan in de Bios? Juiste drivers geďnstalleerd?
Ook de USB/chipset drivers?
Deze vind je bij de fabrikant van het moederbord.
Iets...
Ik lees dat je de wifi knop niet kan vinden.
In de handleiding staat er wel een knop genoemd en wel naast de aan en uit knop.
Het is knop drie op bladzijde 4 van deze handleiding
Als deze knop...
Bij taakbeheer > processen kun je zien hoeveel geheugen welk proces gebruikt. Zit daar iest geks tussen?
Verder is 20gb ssd best aan de krappe kant. Wanneer daar ook het virtuele geheugen opstaat...
Dat gaat inderdaad alleen met VBA.
Met de volgende macro gebeurt dit na b.v een druk op de knop.
Sub PDF()
Dim r As Range
Application.ScreenUpdating = False
For Each r In Range("A1:A" &...
Zoals Morriss al aangaf een voorbeeld is altijd handig.
Daarop vooruitlopend, kun je de volegnde formule in A1 plaatsen om aan genoemde voorwaarden te voldoen:
...