Freddy_Mulder

Hierbij een voorbeeld van het bestand wat ik moet inlezen Voorbeeld.txt

Goedemiddag, Ik heb een probleem en ik kan het niet vinden om iets terug te zetten zoals het vroeger was. Als ik vroeger een txt bestand opende dan kreeg ik gelijk de Wizard tekst naar kolommen daar moest ik dan vinkjes zetten en dan kwam al mijn tekst in aparte kolommen. Nu is het echter zo als ik nu een txt bestand opent krijg ik de wizard niet meer te zien en zet hij alle tekst met aanhalingstekens en komma achter elkaar. Hoe kan ik dit weer terug zetten. ik gebruik office 365 Business Alvast bedankt voor de moeite Freddy

Hierbij het bestandje het stelt niet zoveel voor. de cellen zijn beveiligt maar zonder wachtwoord het is de bedoeling als ik iets in de A kolom in de grijze rij wat in vult dat er een lege rij toegevoegd word. een script zit hier niet in omdat ik het niet voor elkaar kreeg Waarom de cellen beveiligd zijn heeft te maken met mijn labelprinter software als dit niet het geval is print hij ook de lege cellen tot de rol op is. het de beveiliging is dit niet het geval. Labels.xlsx

goedemiddag, ik heb een Excel blad wat beveiligd is op een rij na. nu probeer ik een script te schrijven maar ik kom er niet uit. de bedoeling is dat als de laatste cel van kolom a gevuld wordt dat er telkens een rij ingevoegd word. worden de cellen weer leeg gemaakt dan moet hij de rij weer weg halen. kan iemand mij hier meer helpen alvast bedankt.

Goedemiddag Ik heb een probleem met vba ik wil een project opslaan met het projectnaam wat in het voorblad in d16 staat met de datum erachter Dit is wat ik momenteel heb maar de datum lukt mij niet. Kan iemand mij hiermee helpen. Alvast super thx Freddy Sub Excel_Bestand() ' Project opslaan als Excel bestand Dim strFileName As Variant Dim strPath As String strFileName = Sheets("Voorblad").Range("D16").Value strFileName = Application.GetSaveAsFilename(InitialFileName:=strPath & strFileName, _ FileFilter:="Excel 2007 Files (*.xlsm), *.xslm", _ FilterIndex:=1, _ Title:="Kies de juiste map en pas eventueel de bestandsnaam aan!") If strFileName = False Then MsgBox "... je hebt niet opgeslagen! " Else ActiveWorkbook.SaveAs Filename:=strFileName MsgBox "Gelukt! Opgeslagen als: " & strFileName End If End Sub

ik ben al blij met je hulp. het is een bestand uit mijn boekhoud programma dus ik kan er niet zoveel aan veranderen aangezien het 268000 regels zijn per tabblad moet ik wel de kolommen pakken. maar helemaal top ik heb hem eindelijk werkend

ja het ik heb het gezien dat er een verschil in zit is er een mogelijkheid dan als ik bij verschil alleen het nummer neer zet maar dat die dan allen de bedragen pakt als er totaal er in voor komt. en als dit mogelijk is hoe moet ik dit dan doen.

Goedemiddag, Wie zal mij willen helpen op een of ander manier krijg ik het niet voor me kaar om verticaal te zoeken in een ander tabblad Ik heb een tabblad kosten, 5B en Verschil, op het tabblad verschil wil ik zowel gegevens van kosten als 5B hebben om deze makkelijk te vergelijken. zodra deze niet overeen komen moeten deze rood gekleurd worden. maar aangezien ik de gegevens geeneens naar een apart blad krijgt hoop ik dat iemand mij kan helpen. ik heb een deel in een bestand gezet. Freddy Mulder Temp.xlsx

Goedemiddag, Wie kan mij helpen met het aanpassen van mijn script. ik wil rijen invoegen van de actieve cel waar ik staat. in deze rij zitten formules en invoer cellen nu wil ik alleen de formules meenemen en niet de invoer. mijn script ziet er nu zo uit en kopieert de hele rij . Sub Rijen_Invoegen() ActiveSheet.Unprotect For i = 1 To InputBox("Hoeveelregels?") Rows(ActiveCell.Row).Copy Rows(ActiveCell.Row).EntireRow.Insert Shift:=xlShiftDown Next i ActiveSheet.Protect End Sub Al vast bedankt voor jullie hulp