• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

beveiligde bestanden raadplegen??

Status
Niet open voor verdere reacties.
Wigi zei:
Uw dienaar ligt ziek in bed, dus van mij moet ge niet teveel verwachten vandaag en misschien ook niet de komende dagen.

Wigi
Klik om te vergroten...


Beterschap, Wigi !! Ziek maar goed uit.

We wachten rustig af....
:-)
 
In bijgaand bestand worden de bestanden wel geopend, maar ook weer gesloten. Indien de bestanden niet te groot zijn gaat dit vrij snel.

In de macro moet je wel het pad van de bestanden aanpassen, het pad staat nu op c:\temp
 

Bijlagen

Hans123 zei:
In bijgaand bestand worden de bestanden wel geopend, maar ook weer gesloten. Indien de bestanden niet te groot zijn gaat dit vrij snel.

In de macro moet je wel het pad van de bestanden aanpassen, het pad staat nu op c:\temp
Klik om te vergroten...

Hallo hans,

Allereerst bedankt voor je antwoord en je poging.

Bij mij loopt ie vast in het geel gemarkeerde stukje op de afbeelding. Ik heb geen idee waarom.
Echter vraag ik me af of dit goed gaat. De eigenlijke setting waarin dit straks echt plaats moet gaan vinden, houd in dat het management de data ui ongeveer 20 cellen uit 15 bestanden moet gaan halen die elk 600 kb groot zijn. Het grootste nadeel is dat de bestanden op een externe server staan waar niet zo'n heel snel lijntje naar toe loopt.
Dus eigenlijk moet het bestand of op de server geopend worden om te raadplegen en ook weer gesloten, of helemaal niet geopend worden, zoals in een eerder voorbeeld van Alberto. Echter in dit voorbeeld waren de bestanden niet beveiligd, dan werkt het prima...

Een fikse uitdaging dus... :-)



Groeten, Tom
 
En ik vergat weeeer het bestand bij te voegen, hier is ie:
 

Bijlagen

  • 1.rar
    1.rar
    87,6 KB · Weergaven: 15
  • ff.rar
    ff.rar
    19,2 KB · Weergaven: 14
Is er misschien nog iemand die mij hiermee kan helpen??

Wigi, jij misschien?


Groeten, Tom
 
de backslash is waarschijnlijk verdwenen bij het aanpassen van het bestand door Tom. In het originele bestand stond hij wel. Had het misschien beter kunnen controleren in de code, had het ook niet fout kunnen gaan.:confused:

Altijd goed om met z'n allen ergens over te denken. Ik was 'blij' dat je ziek was, kon ik weer eens ergens op reageren meestal ben je me (ruim) voor.:p
 
Hans123 zei:
Ik was 'blij' dat je ziek was, kon ik weer eens ergens op reageren meestal ben je me (ruim) voor.:p
Klik om te vergroten...

Dat gaat meer gebeuren. Nee niet ziek zijn maar wel dat je me voor bent. Ik ga niet meer "instant" antwoorden geven.

Neemt niet weg dat ik nog regelmatig een zegje zal meedoen.

Wigi
 
Hallo Wigi en Hans,

Dat was inderdaad de oplossing, het werkt perfect !!! Bedankt! Ik begond me al een beetje zorgen te maken dat het helemaal niet mogelijk was.

Ik zou willen vragen of jullie mij nog een stukje uitleg zouden willen geven over deze macro. Zo zie ik bijvoorbeeld niet waar de "doelcellen" van het management bestand worden benoemd (B en D 10 t/m 12) en ook niet de "broncellen" uit de andere bestanden.
Hoe weet de macro dat ie de data in de cellen b10-b12 en d10-d12 moet zetten?

Dat begrijp ik nog even niet..


In ieder geval nogmaals bedankt !!!
 
Code: 
doelbestand.Sheets(1).Cells(r + 1, (b - 1) * 2 + 2).Value = Bronbestand.Sheets(1).Cells(r, 6).Value

r en b wijzigen achtereenvolgens. Eerst is b = 1 en gaat r van 9 tot 11. Dan is B = 2 en weer gaat r dan van 9 over 10 tot 11. Zo wijs je aan de juiste cellen (grijs) de juiste getallen toe. Bronbestand is een variabele. Het verwijst naar het bronbestand dat geopend wordt met de regel

Code: 
Workbooks.Open(Filename:=pad & Application.PathSeparator & bestand, password:=wachtwoord)

Nu duidelijk?

Wigi
 
Wigi zei:
Code: 
doelbestand.Sheets(1).Cells(r + 1, (b - 1) * 2 + 2).Value = Bronbestand.Sheets(1).Cells(r, 6).Value

r en b wijzigen achtereenvolgens. Eerst is b = 1 en gaat r van 9 tot 11. Dan is B = 2 en weer gaat r dan van 9 over 10 tot 11. Zo wijs je aan de juiste cellen (grijs) de juiste getallen toe. Bronbestand is een variabele. Het verwijst naar het bronbestand dat geopend wordt met de regel

Code: 
Workbooks.Open(Filename:=pad & Application.PathSeparator & bestand, password:=wachtwoord)

Nu duidelijk?

Wigi
Klik om te vergroten...



Hallo Wigi,

Ik ben al dagen m'n grijze massa aan het breken om de door jou gevonden macro in mijn project te implementeren maar het wil maar niet lukken. Misschien zie jij het..

Ik heb 2 bestanden bijgevoegd.
Week 7 2007.xls is een uitgeklede versie van een rooster. De verschillende winkels vullen hun roosters in. De output daarvan komt in deze headcounter. Zo kun je zien hoeveel mensen er per dag in een winkel werken. De kleurenbalk geeft aan of een winkel zijn rooster heeft ingevult of niet.
En zo heb ik dus voor elke week zo'n bestand.

Wat ik nu heel graag zou willen is al die kleurenbalken uit de weekroosters in een overzicht zoals management.xls. Dan kan ik in een oogopslag zien welke winkels tot en met welke week hun roosters hebben ingevult. Het komt erop neer dat hij alleen de waarde uit de gekleurde cellen uit het roosterbestand in de cel in het managementbestant hoeft te zetten, waarna ik wederom met voorwaardelijkie opmaak de klaren aanpas.

Maar ik kom in jouw voorbeeld niet wijs uit de te definieeren cellen. Het wil maar niet lukken.
Weet jij hoe ik dit handig kan doen?

Alvast bedankt!!!! Oja, de wachtwoorden zijn "kruk".

Groet, Tom
 

Bijlagen

Tom30,
Probeer dit is.
Sub auto_open()

Dim pad As String
Dim bestand As String

pad = "C:\Pad aanpassen"
wachtwoord = "kruk"
Blad1.Activate
Set doelbestand = ActiveWorkbook
Application.ScreenUpdating = False
ActiveSheet.Unprotect password:=wachtwoord
bestand = "week 7 2007.xls"
Set Bronbestand = Workbooks.Open(Filename:=pad & Application.PathSeparator & bestand, password:=wachtwoord)
doelbestand.Sheets(1).Range("C1:V21").Value = Bronbestand.Sheets(1).Range("C11:V31").Value
Bronbestand.Close
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:=wachtwoord
Application.ScreenUpdating = True
End Sub
Klik om te vergroten...
 
alberto10 zei:
Tom30,
Probeer dit is.
Klik om te vergroten...

Hallo Alberto,

Deze macro doet het goed ja. Alleen de regel Blad1.activate moet ik weg laten, daar kan ie niks mee blijkbaar.

Maar hoe zorg ik ervoor dat de macro niet alleen de gegevens uit ce cellenrange van week 7 haalt en die in management zet, maar ook meteen uit week 8 en week 9 en alle andere weken. Ik heb een map met straks 52 bestanden (week 1 t/m 52), waarvan ik alle gekleurde balken naast elkaar wil hebben in management.xls.
Ik wil het wel in kwartalen doen, dat betekent dat de macro 13 weken (dus 13 bestanden) uit moet lezen.

Moet ik dan gewoon 13 keer deze macro kopieren of kan dat ook in 1 macro verwerkt worden..?

Alvast bedankt !!!

Grtz, Tom
 
Tom30,
Daar zul je de hulp van Wigi of iemand anders moeten voor inroepen want zo'n VBA specialist ben ik niet.
 
alberto10 zei:
Tom30,
Daar zul je de hulp van Wigi of iemand anders moeten voor inroepen want zo'n VBA specialist ben ik niet.
Klik om te vergroten...

Nou, je hebt er in ieder geval een stuk meer kaas van gegeten dan ik.. :-)
Maar ook mede dankzij jou heb ik al veel geleerd!

Nogmaals bedankt en ik wacht het antwoord van Wigi even af..


Groetjes
 
Tom30,
Ik heb nog een poging gedaan.
Wel het pad nog aanpassen in de macro.
Sub auto_open()

Dim x As Integer
Dim b As Integer
Dim pad As String
Dim bestand As String

x = 3
pad = "C:\Documents and Settings\ALBERT\Mijn documenten\Worksheet NL"
wachtwoord = "kruk"
Set doelbestand = ActiveWorkbook
Application.ScreenUpdating = False
ActiveSheet.Unprotect password:=wachtwoord
For b = 1 To x
bestand = "rooster " & b & ".xls"
Set Bronbestand = Workbooks.Open(Filename:=pad & Application.PathSeparator & bestand, password:=wachtwoord)
If doelbestand.Sheets(1).Range("C1") = "" Then
doelbestand.Sheets(1).Range("C1:C21").Value = Bronbestand.Sheets(1).Range("H11:H31").Value
ElseIf doelbestand.Sheets(1).Range("D1") = "" Then
doelbestand.Sheets(1).Range("D1:D21").Value = Bronbestand.Sheets(1).Range("H11:H31").Value
ElseIf doelbestand.Sheets(1).Range("E1") = "" Then
doelbestand.Sheets(1).Range("E1:E21").Value = Bronbestand.Sheets(1).Range("H11:H31").Value
End If
Bronbestand.Close
Next b
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:=wachtwoord
Application.ScreenUpdating = True
End Sub
Klik om te vergroten...
 
Hallo Alberto,

Ik heb jou macro gebruikt en aangepast naar ondertsaande:


Sub auto_open()

Dim x As Integer
Dim b As Integer
Dim pad As String
Dim bestand As String

x = 10
pad = "F:\Verzamelrooster Pilot\Managementoverzicht"
wachtwoord = "kruk"
Set doelbestand = ActiveWorkbook
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=wachtwoord
For b = 7 To x
bestand = "Week" & b & "2007.xls"
Set Bronbestand = Workbooks.Open(Filename:=pad & Application.PathSeparator & bestand, Password:=wachtwoord)
If doelbestand.Sheets(1).Range("M11") = "" Then
doelbestand.Sheets(1).Range("M11:M31").Value = Bronbestand.Sheets(1).Range("H11:H31").Value
ElseIf doelbestand.Sheets(1).Range("N11") = "" Then
doelbestand.Sheets(1).Range("N11:N31").Value = Bronbestand.Sheets(1).Range("H11:H31").Value
ElseIf doelbestand.Sheets(1).Range("O11") = "" Then
doelbestand.Sheets(1).Range("O11:O31").Value = Bronbestand.Sheets(1).Range("H11:H31").Value
End If
Bronbestand.Close
Next b
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=wachtwoord
Application.ScreenUpdating = True
End Sub



Hij loopt nu steeds vast op het Wachtwoord.
Hij markeert het woord Wachtwoor en het = teken en zegt: Can''t find project or libary.

Heel vaag. Zie jij waar dat in zou kunnen zitten?
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan