• 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.

Data import uit gesloten file

Status
Niet open voor verdere reacties.
G

galletje

Gebruiker
Lid geworden
8 jun 2010
Berichten
70
Beste medegebruikers,

Ik zit met een uitdaging ik ben bezig om wat automatisch te laten invullen in een excel file.

In een file kunnen een aantal specialisten van mij wat data kwijt op het tablad "notp meldingen" Zover zo goed. Op het tweede tablblad kunnen ze via een macro de file"notp" binnen halen die ik maandelijkse naar ze verstuur. Daar zit eigenlijk al het eerste probleem. Ik zou het graag willen zien dat ze deze file "notp"niet te hoeven openen, maar de data uit de gesloten file word gehaald. Ik weet dat het mogelijk is door naar de file te wijzen als functie. Echter zou het ook mogelijk moeten zijn als macro.
Ik heb dit staan als begin in de macro:

Windows("NOTP.xls").Activate
Cells.Select
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Wat zou ik hieraan moeten veranderen om hem in een gesloten file te laten lezen die staan in c:\notp?

Het tweede probleem waar ik tegen aan loop is de protectie van de cels, om te voorkomen dat ze de verschillende functie's verwijderen wil ik de cels protecten. Echter schrijft hij dan geen data naar deze file's meer.
Daarvoor gebruik ik deze macro:

Range("A4:J29").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=27
Range("A32:J57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Maand eerder").Visible = True
Sheets("NOTP").Select
Range("A32:J57").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Maand eerder").Select
Range("A2").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.Visible = False
Range("K37").Select
ActiveWindow.SmallScroll Down:=-36
Range("A1:A2").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A4:E29").Select
Selection.ClearContents
Range("A1").Select
End Sub

Wie zou mijn op de juiste weg willen helpen hiermee.


Alvast dank voor de hulp.

Mariska
 
1e vraag:

Code: 
Sub macro()
Range("A1").Value = ExecuteExcel4Macro("'c:\notp\[NOTP.xls]notp meldingen'!R1C1")
End Sub
In cel A1 komt de waarde van cel A1 van het NOTP-bestand.

2e vraag:
Code: 
Worksheets(1).Protect Password:="wachtwoord", UserInterfaceOnly:=True
Het 1e werkblad wordt beveiligd voor gebruikers maar code wordt nog steeds uitgevoerd.

Met vriendelijke groet,


Roncancio
 
aanpassing

Roncancio zei:
1e vraag:

Code: 
Sub macro()
Range("A1").Value = ExecuteExcel4Macro("'c:\notp\[NOTP.xls]notp meldingen'!R1C1")
End Sub
In cel A1 komt de waarde van cel A1 van het NOTP-bestand.

2e vraag:
Code: 
Worksheets(1).Protect Password:="wachtwoord", UserInterfaceOnly:=True
Het 1e werkblad wordt beveiligd voor gebruikers maar code wordt nog steeds uitgevoerd.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

bedankt voor de super snelle reactie zeg.

Ik ga het even testen zo.

Mariska
 
Fou bericht

Roncancio zei:
1e vraag:

Code: 
Sub macro()
Range("A1").Value = ExecuteExcel4Macro("'c:\notp\[NOTP.xls]notp meldingen'!R1C1")
End Sub
In cel A1 komt de waarde van cel A1 van het NOTP-bestand.

2e vraag:
Code: 
Worksheets(1).Protect Password:="wachtwoord", UserInterfaceOnly:=True
Het 1e werkblad wordt beveiligd voor gebruikers maar code wordt nog steeds uitgevoerd.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

Beste Roncancio,

Ik krijg een foutmelding op het wegschrijven naar de beveiligde werkmap. Zie hieronder.

Worksheets(2).Protect Password:="1", UserInterfaceOnly:=True
Range("A4:J29").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=27
Range("A32:J57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Maand eerder").Visible = True
Sheets("NOTP").Select
Range("A32:J57").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Maand eerder").Select
Range("A2").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.Visible = False
Range("K37").Select
ActiveWindow.SmallScroll Down:=-36
Range("A1:A2").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A4:E29").Select
Selection.ClearContents
Range("A1").Select
End Sub

Wat doe ik fout?

Mariska
 
Heb je eerst de beveiliging van het werkblad erafgehaald?

Overigens kan je code een stuk korter door geen .Select te gebruiken.

Code: 
With Worksheets(2)
    .Protect Password:="1", UserInterfaceOnly:=True
    .Range("A32:J57").Value = .Range("A4:J29").Value
    Sheets("Maand eerder").Range("A2:J27").Value = Sheets("NOTP").Range("A32:J57").Value
    .Range("A1:A2").ClearContents
    .Range("A4:E29").ClearContents
End With

Met vriendelijke groet,


Roncancio
 
Laatst bewerkt:
Roncancio zei:
Heb je eerst de beveiliging van het werkblad erafgehaald?

Overigens kan je code een stuk korter door geen .Select te gebruiken.

Code: 
With Worksheets(2)
    .Protect Password:="1", UserInterfaceOnly:=True
    .Range("A32:J57").Value = .Range("A4:J29").Value
    Sheets("Maand eerder").Range("A2:J27").Value = Sheets("NOTP").Range("A32:J57").Value
    .Range("A1:A2").ClearContents
    .Range("A4:E29").ClearContents
End With

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

Beste Roncancio,

Nog bedankt voor de reactie vanmiddag. Heb zojuist deze verkorte code gebruikt. Echter zie ik hierdoor niks gebeuren.
Hieronder de gehele macro maar deze doet niks????? Sorry maar ik ben hierop echt een newbie.

Sub lijst()
'
' lijst Macro
' Macro recorded 07/06/2010 by Mariska
'

'
With Worksheets(2)
.Protect Password:="1", UserInterfaceOnly:=True
.Range("A32:J57").Value = .Range("A4:J29").Value
Sheets("Maand eerder").Range("A2:J27").Value = Sheets("NOTP").Range("A32:J57").Value
.Range("A1:A2").ClearContents
.Range("A4:E29").ClearContents
End With
End Sub
 
In bijgevoegd bestand heb ik de code geplaatst.
Je moet de macro maar starten en kijken wat er gebeurd.
Als er iets niet goed is, dan hoor ik het graag.

Met vriendelijke groet,


Roncancio
 

Bijlagen

  • NOTP.xls
    35,5 KB · Weergaven: 31
Roncancio zei:
In bijgevoegd bestand heb ik de code geplaatst.
Je moet de macro maar starten en kijken wat er gebeurd.
Als er iets niet goed is, dan hoor ik het graag.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

Beste Roncancio,

Helaas werkt de code niet. Ik wil graag de excel file's uploaden maar hij zeg dat ze te groot zijn. Hoe kan ik deze verkleine om ze te kunnen uploaden.

Mariska
 
galletje zei:
Beste Roncancio,

Helaas werkt de code niet. Ik wil graag de excel file's uploaden maar hij zeg dat ze te groot zijn. Hoe kan ik deze verkleine om ze te kunnen uploaden.

Mariska
Klik om te vergroten...

Bij mij werkt de code wel, dus ik ben benieuwd wat er dan niet goed gaat.

Gebruik Win.Zip of Win.RAR om de bestanden te verkleinen.
Indien ze dan nog groter zijn dan 100 Kb kan je ze naar mij toesturen.

Met vriendelijke groet,


Roncancio
 
Roncancio zei:
Bij mij werkt de code wel, dus ik ben benieuwd wat er dan niet goed gaat.

Gebruik Win.Zip of Win.RAR om de bestanden te verkleinen.
Indien ze dan nog groter zijn dan 100 Kb kan je ze naar mij toesturen.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

Hoi,

De file is 105 kb dus te groot. Waar kan ok hem naar sturen.

M
 
galletje zei:
Hoi,

De file is 105 kb dus te groot. Waar kan ok hem naar sturen.

M
Klik om te vergroten...

Met Windows Verkenner kan je overigens een gecomprimeerde map gebruiken.
Dat is een map dat bestanden automatisch verkleind.

Hoe dan ook, je kunt het bestand naar mij sturen via mijn avatar.
Je stuurt dan een bericht zonder bestand zodat ik kan replyen.
Hierop kan je replyen met het bestand.

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan