Cor-Assa

Ga ik direct proberen.

Lat het straks weten.😀

Nee die heb ik helaas niet.

Zou het ook met 1 bankje kunnen?

Dacht het niet volgens mij moeten er altijd 2 in zitten toch?

Vandaag de pc weer in elkaar gebouwd, incl. een extra (kleine) harde schijf.

Op de SSD en op de extra harde schijf een schone windows 10 geinstalleerd vanaf USB, gedownload van de Microsoft website.

Beide opties crashen bij het opstarten, soms kom je erdoor en dan werkt het voor even.

Wat is hier defect?

B.v.d.

Cor & Jack

Bedankt hiervoor.

Heb daar nu geen tijd meer voor, moet naar een afspraak.

Morgen werken dus wordt maandag pas.

Ik laat wel weten hoe het afgelopen is.

Voor nu een fijn weekend verder.

Gr. Cor

Laptop opnieuw opgestart toen lukte het wel.

Gelijk een scan gedaan van de reserve schijf waar een installatie pakket van Windows 10 op staat.

Het gaat dus om de Data disk.

24 minuten geleden, droske zei:

 

Scan die eens met CrystallDiskInfo.

Helaas gaat dit niet lukken!

Systeem start niet meer op dus kan ook niets installeren.

Heb de schijf met een USB adapter aan mijn laptop hangen maar de software ziet geen USB drive's.

Beste droske,

Allereerst badankt oor je reactie.

Driver updates komen van de hardware fabrikant dus geen externe driver update software.

Beveiligings software uit Microsoft Windows 10 zelf, geen andere geinstalleert.

De eerste keer dat het probleem zich voordeed was een aantal maanden na de ombouw.

De eerste gedachte was dat het met een Windows update te maken had die net voltooid was.

Ook na het uitschakelen van automatische update bleef het probleem terug komen.

Geen driver update problemen gehad, alles bleef gewoon werken.

Vandaag vast gelopen na een online update waarvoor windows niet opnieuw opgestart hoefde te worden.

Systeem vandaag voor de 3e maal gedemonteerd om alles te controleren op goede/foutieve/slechte aansluitingen.

Geheugen kaartjes zitten/zaten goed ingeklikt, kaartjes ook al van positie gewisseld.

SSD is de opstart schijf, conventionele schijf uitsluitend voor data en programma's.

Beste mensen,

Mijn oudste zoon werkte (gamen) al sinds 2015 met plezier met zijn pc;

.     

In 2020 wilde hij een flinke upgrade dus kocht een ander compleet zelfbouw susteem.

Zijn oude configuratie heb ik toen over gebouwd naar de nieuwe kast die hij besteld had, de configuratie is dus hetzelfde gebleven.

Na een aantal maanden begonnen de problemen, windows 10 crashte en was niet meer te herstellen.

Alles gecontroleerd maar niets bijzonders kunnen vinden, toch alles opnieuw opgebouwd en na meerdere pogingen windows 10 opnieuw kunnen installeren.

Dat ging goed tot ongeveer 2 maanden later, zelfde verhaal en nu na 1 1/2 maand wederom.

De afbeelding hieronder is het grote probleem, wie weet wat er aan de hand is en indien mogelijk ook de oplossing?

B.v.d.

Cor & Jack Assa

6 minuten geleden, dotchiejack zei:

Cor,

Je denk toch niet dat ik je vergeten ben.😉

In bijlage een zip bestandje, eerst uitpakken.

Het zip bestandje bevat een excelbestand met userform en 2 mapjes met een paar pdfjes.

Je opent de userform, in de eerste listbox worden je onderliggende mappen geladen.

Kies daar de juiste map waaruit je een pdf wilt verwijderen.

In de tweede listbox verschijnen de PDfs die zich in de gekozen map bevinden.

Selecteer het bestand dat je wilt verwijderen.

Het gekozen bestand verschijnt in het rechter scherm,ter controle.

Is het gekozen bestand correct klik op Verwijderen. Klaar,de gekozen PDF is pleite.

 

Kill pdf.zip 527 kB · 0 downloads

Ach ja, wat moet ik zeggen?

Ben al zo vaak door jou geholpen, ga m morgen eens uitpluizen.

Krijgen zometeen de kinderen op bezoek voor oud jaar dus lukt vandaag niet meer.

Een ieder een fijne jaarwisseling en vooral een veilig en gezond 2021.

Gr. Cor Assa

2 minuten geleden, Cor-Assa zei:

Bedankt kweezie, ga het uitproberen.

Wijziging maakt niets uit, effect is hetzelfde, als het bestand al weg is loopt hij daar toch op vast.

33 minuten geleden, kweezie wabbit zei:

Volgens mij staat hier een fout in.

Er staat "Faktuurnaam.pdf" en dat is een string die letterlijk gezocht zal worden.

Ik denk dat het gewoon Faktuurnaam moet zijn.

Faktuurnaam is namelijk een string variabele die al werd ingevuld met de naam van het pdf bestand dat moet verwijderd worden.

Bedankt kweezie, ga het uitproberen.

Beste emielDS,

Voorbeeld bestand wordt een beetje moeilijk, zitten namelijk ook subdirectorys achter die je dan aan moet maken anders loopt het niet.

Verder kan het wel degelijk!

Een tabbald met een specifieke naam wordt als PDF opgeslagen, dat is dan de faktuurnaam.

Zoals ik al zeg, mijn precedure werkt 100%, alleen de controle of een bestand er wel of niet s werkt niet.

Helaas emielDS, met jouw oplossing kwam ik er niet uit.

Ben wat verde gaan snuffelen en kwam zelf op deze oplossing.

Sub PDF_verwijderen_als_Ok()

        Dim Pad As String
        Dim Faktuurnaam As String
        Pad = ActiveWorkbook.Path + "\Offerte\"
        Faktuurnaam = ActiveSheet.Name + ".pdf"

Dim strFile  As String: strFile = Pad + "Faktuurnaam.pdf"
If Len(Dir$(strFile)) > 0 Then Kill strFile

    Kill Pad + Faktuurnaam
End Sub

Alleen de controle check kom ik niet uit.🤔

Gr. Cor - Allemaal een fijne jaarwisseling.🥂

9 minuten geleden, emielDS zei:

Aan de hand van uw uitgebreide vraag en uw voorbeeld bestand moet het zo lukken.

 

als het bestand van waaruit je de pdf wil verwijderen in dezelfde hoofdmap staat.

 

 

pad = ThisWorkbook.Path
    map= pad & naam van de map

bestand =  pad &map & naam van de pdf
    Kill bestand

Bedankt emielDS, ga het uitproberen.

Mijn  eigen pogingen mislukten helaas.

Gr. Cor

Beste mensen, misschien heb ik het al eens gevraagd in dit forum maar kan het helaas niet terug vinden.

Als dat zo is excuses.😅

Ik ben op zoek naar een mogelijkheid om in excel 2010 d.m.v. vba een pdf bestand te verwijderen uit een onderliggende map waar mijn excel bestand staat.

Dit zijn verschillende mappen dus is het niet altijd dezelfde map.

B.v.d.

Cor Assa

P.s.

Nog n fijne jaarwisseling

Bedankt dotchiejack,

Jij bent wederom mijn redder.

Fijne feestdagen.

Gr. Cor Assa

Beste mensen,

Allereerst prettige feestdagen toegewenst.

Ik heb een kolom daar staan allemaal nagenoeg dezelfde waarden in alleen het eindcijfer is uniek.

De waarden beginnen allemaal met dBD en dan een cijfer er achter, zoals dBD10, dBD12 en dBD113.

Nu is dit niet goed te sorteren omdat de volgorde dan als volgt wordt dBD10, dBD113, dBD12.

Weet iemand hier een oplossing voor?

Ik zat zelf te denken om in een extra kolom de 3 letters te verwijderen met een code en dan de cijfers een voorloop 0 te geven zodat deze ook uit 3 bestaan, en hoe moet ik dat dan doen?

Maar mogelijk dat iemand een makkelijkere oplossing weet?

B.v.d.

Cor Assa

6 minuten geleden, dotchiejack zei:

Stel je hoofdgegevens blad noemt Master.

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Master")
    Set Bereik = .Range("A2", .Range("A2:A10").Address)
    Namen = Application.Transpose(Bereik)
    i = LBound(Namen)
End With
For Each ws In Worksheets
    If ws.Name <> "Master" Then
        ws.Name = Namen(i)
        i = i + 1
    End If
Next ws
End Sub

 

 

Bedankt wederom dotchiejack, werkt perfect.

34 minuten geleden, JeanPaul28 zei:

Even vlug handmatig gebeurt

? ? ? ? ?

Wat bedoel jij?

Handmatig heeft niets met VBA of iets dergelijks te maken?

Beste mensen,

Ik heb een werkmap met 10 tabbladen.

Tabblad 1 staan mijn hoofd gegevens.

In de cellen A2 t/m A10 staan namen.

Is het mogelijk dat de tabbladen 2 t/m 10 automatisch de naam aan nemen van een corresponderende cel?

Dit moet automatisch wijzigen als de naam in een van de cellen A2 t/m A10 wijzigt.

B.v.d.

Cor Assa

Beste nokiaprox,

Die had ik al gevonden voor ik dit topic starte, maar die uitleg klopt niet volledig met mijn systeem.

Tevens schakelt hij niet alles uit zoals ik wil.

Gr. Cor Assa

Wat ik eigenlijk wil in verkenner is dit,

Alles wat rood door gestreept is wil ik niet meer zien.

Helaas dotchiejack, die kon ik inderdaad al maar ook die geeft niet mijn gewenste oplossing.

Beste Droske,

Jouw advies geeft mij geen oplossing!

Zo blijf ik nog steeds met (dubbele) rotzooi zitten die ik nooit gebruik!

Ik wil alleen ouderwets de drive's zien die in mijn pc zitten en niet die extra microsoft ideen die alleen maar storen.

Dus weg met Snelle toegang, OneDrive, en Deze pc, waar allemaal zaken in staan waar ik nooit iets opslaat zoals afbeeldingen, documenten e.d.

Ik vind dat allemaal hoogst irritant en storend.

M.vr.gr.

Cor Assa

Beste mensen,

Velen zullen het prettig vinden maar ik erger mij er mateloos aan en wil het nu opruimen.

De windows 10 verkenner in mijn 64bit versie heeft vele opties open staan waaronder zelfs dubbel!

Ik wil de volgende verwijderen maar kan op internet geen echte oplossing vinden.

Het gaat om - Snelle toegang - OneDrive - Deze pc.

Ik wil dus alleen de relevante drive's en netwerk drive's/pc's zichtbaar hebben.

Wie weet een nette oplossing?

Ik begreep dat ik dan eventueel ook iets in het register aan moet passen, dat is voor mij geen probleem.

B.v.d.

Cor Assa