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