lscb

het programma werkt prima thanks boys

inderdaad het bestand wordt opgeslagen op een netwerk zoals al mijn bestanden en daar zit ergens iets scheef het lijkt dat mijn netwerk tijdelijk uitvalt en het programma dat dan open staat niet meer werkt gebeurd dit tijdens het opstarten krijg ik de melding dat het programma niet werkt na volledige opstart van de pc werkt alles weer voor zover we nu weten zit dit in het netwerk bij mij of provider welke melding het precies is kan ik zo niet zeggen ben nu niet op de zaak

oke bedankt zover we gaan het testen en bericht je eind van de volgende week

je bedoeld dus wat het nu is wordt het bestand al opgeslagen zoals het normaal zo zijn en als excel zou vast lopen dat bestand kan open en verder kan gaan als dat zo is , is dat prima de laatste optie met de tijden zou natuurlijk oo kunnen maar dat is te over wegen

ik zie dat je je de macro hebt aan gepast maar waar slaat de macro het bestand op dat zie ik nu niet tenzij ik daar overheen kijk

backup lijkt mij het beste

hallo allemaal ik heb een excel sheet voor mijn werk die de hele dag open staat nou dan kan er wel eens fout gaan ik werk er dan ook niet aleen op nu wil ik een bakup van maken via een macro / vba die ik kan instellen om het uur of zoiet een backup maakt de staandaard herstel funktie zoek ik dus niet het zit zo via het netwerk treed er een storing op maar dat is niet te merken in de pc / laptop tot dat men wil afsluiten van de pc hier zijn we al dagen naar opzoek maar er ziet nog geen schot in wie kan mij helpen aan een backup file ik heb al iets gekregen elders maar daar zit dan ook de backup weer in en het beeld knippert wanneer er een backup plaats vind ( is dat normaal ) alle info en voorbeelden zijn welkom het onder staande bestand heb ik elders gekregen klopt dit ?? TESTBESTAND (2).xlsm

lijkt me een simpele oplossing maar ik zie het niet meer zie mijn voorbeeld bestandje voor meer info min 1.xlsx

slot mag erop

GECONTROLEERD VAN DE CODE DIE IK HAD GEKREGEN KLOPT DIT INDERDAAD EN HET WERKT EN IK HEB DE CODE DIE dotchiejack SCHREEF ER NU OPSTAAN EN WERKT PRIMA WAT DE ZE TOPIC BETREFT MAG GESLOTEN WORDEN ALS ER GEEN VRAGEN MEER ZIJN

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 And Target.Count = 1 Then If Target.Value <= 2359 Then Application.EnableEvents = False Target.Value = TimeSerial(Int((Target.Value Mod 10000) / 100), (Target.Value Mod 100), 0) Cells(Target.Row + 1, Target.Column - 1) = Target.Value Application.EnableEvents = True End If End If End Sub DIT IS EEN ANDERE CODE DIE IK GISTEREN HAD GEKREGEN MAAR ALS JE ZIET IS DE EERSTE REGEL HET ZELFDE ALS DIE VAN U NU IS DE VRAAG IS DIT SAMEN TE VOEGEN ZO DAT HET TOCH IEDER ZIJ DING DOET

de regel komt bij nog 1 keer voor is dat aan te passen de code hier boven lijkt op wat ik heb alleen is de code die ik al had is iets uitgebreider

thans werk prima

aangepast code vergeten sorry tik in kolom a een tijd zonder puntjes en je ziet wat ik bedoel maar wat ik wil is dat dit voor enkele cellen is de formule werkt alleen voor een colom zodra ik er iets ander in tik dan tijd werkt de formule niet meer map5.01.xlsm

ik hoop dat je hier iets mee kunt map5.01.xlsm

hallo ik wil ( voorbeeld ) in b2:b5 en c2:c5 en f2:f5 en g2:g5 tijden in voeren maar met vba ....ik voer in 830 en er komt te staan 8:30 dit per cel ik heb wel een code gevonden maar dit is voor een kolom dat is het dus niet het moet echt per cel in te voeren zijn wij kan mij hier aan helpen

bedankt alpha het heeft wat tijd nodig gehad maar dan heb je ook wat ik was ook niet helemaal fit

als ik in het gele vlak de getallen verander wordt de som boven anders deze wil ik copieeren naar blad 2 telkens naar de volgende regel hoe krijg ik dat gedaan ik weet me geen raad sheet 5.xlsm

als ik de formule maar weet aan passen lukt me nog wel

ik hoop dat je nu er wel uit komt ik weet niet hoe ik je beter kan uit leggen sheet 3.xlsm

de uitkomst van de som is op scheet2 nog leeg staat op nul ik ben later van plan om een aantal berekeningen te maken en de uitkomst komt dan op de eerste regel dan moet er een copy van die regel naar de volgende sheet zoals je die had gemaakt prima maar c1 en e1 zie je dus niet en zoals ik al eerder aan gaf code 2 doet dat wel maar dan komt er een melding van kutools en dat wil ik niet dus kortom code 2 zou goed zijn als kutools weg bleef in verband met mensen die niet zo thuis zijn met excel

de code staat hier boven toch en deze zitten in de sheets visual basic achter de comandbutton1 in sheets op regen 1 zitten nu twee formules c1 en e1 later ga ik dit uitbreiden dit is een opzetje om te kijken wat het doet en dat ik de formule later kan gebruiken

hallo allemaal ik ben me ten einde raad wie kan me hier bij helpen ( 1 )ik heb een code gemaakt ( 2 ) en ik heb een code gevonden code (1 ) deze werkt wel maar doet de berekening niet wat ik dus eigenlijk wil is mijn eerst regel ( a1:k1 ) sheeet2 daar komen straks de datum en berekeningen te staan daar moet een copy van gemaakt worden en naar de volgende sheet zoals de code van sheet 2 doet maar dan wil ik de melding van kutools er niet in hebben code sheet 1 Private Sub CommandButton1_Click() Dim xScreenUpdating As Boolean Dim xPasteSht As Worksheet Dim xRg As Range Dim xTxt As String On Error Resume Next xTxt = ActiveWindow.RangeSelection.Address Range("A1:h1").Copy Worksheets("Sheet2").Range("a1") Set xPasteSht = Worksheets("Sheet2") xScreenUpdating = Application.ScreenUpdating Application.ScreenUpdating = False xRg.Copy xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = xScreenUpdating End Sub code ( 2 )deze werkt perfect alleen zet er een vervelden knop die ik moet aan geven om wek regel het gaat als die no er niet was is het helemaal goed (ps als het scherm niet zichtbaar is van kutools voor excel en de selectie is regel 1 is het honderd % code sheet 2 Private Sub CommandButton1_Click() Dim xScreenUpdating As Boolean Dim xPasteSht As Worksheet Dim xRg As Range Dim xTxt As String On Error Resume Next xTxt = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8) If xRg Is Nothing Then Exit Sub Set xPasteSht = Worksheets("Sheet2") xScreenUpdating = Application.ScreenUpdating Application.ScreenUpdating = False xRg.Copy xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = xScreenUpdating End Sub sheet 2.xlsm sheet 1.xlsm

Dit forum mag gesloten worden ik had op een ander forum ook omrand gevraagd maar ik heb via een wiskid die op mijn werk kwam voor een storing op te lossen wist mij uit tel leggen hoe ik het snelste kun uitreken via een rekenmachine nu nog in excel verweken toch bedankt voor u medewerking

beste bucky ik wist niet dat je boos werd ik dacht hoe meer plaatse ik vraag hoe meet info en als je een nieuwe auto koopt ga je ook niet naar 1 adres maar het is opgelost toch bedankt voor je hulp die je gaf