Gegevens uitwisselen

[deSmid]

Samen met enkele collega's gebruiken we het zelfde werkblad wat betreft opbouw, structuur enz.
Graag zou ik de gegevens uit het gebied B6 t/m AG35 van blad2 willen doorsturen via email (of op diskette) zodat de collega's deze weer kunnen inlezen in hun werkblad. Zonder meer een kopie maken van het gebied en deze weer plakken is niet waterdicht.
Wie weet hier een oplossing voor? Misschien iets met gegevens exporteren en weer importeren?
Het complete werkblad doorsturen is niet echt een optie.

Mvrgrt,
deSmid.

 

[wildboy]

Hoi,

Het gaat dus altijd om dit gebied B6 t/m AG35 van blad2

Is het wat als je met een druk op de knop de gegevens naar een nieuwe map kopieert als waarde en dat dan vervolgens mail't ?

of op een centraal punt opslaat bv ergens op de server van het bedrijf. ?

zomaar 2 ideetjes hoor.

Ben je een beetje bekend met het maken of opnemen van een macro ?
volgens mij moet je dit met het opnemen van een macro
prima kunnen maken.
even een knopje toevoegen aan je werkmap en klaar.

 

[deSmid]

Het gaat inderdaad om steeds datzelfde gebied en inderdaad, even niet aan gedacht om uitsluitend de waarden de plakken heb ik geen problemen met de verschillende links naar het oorspronkelijke blad. Dit is voor mij zover wel opgelost. Ik maak een kopie van dit gebied en voeg dit in een nieuw werkblad. Deze stuur ik op en de ander moet deze gegevens weer kopieren in zijn eigen werkblad, ook kopie waarden. Hier moet ik nog even zien of dit door een leek (positief bedoeld) foutloos is te doen.

Tot zover alvast bedankt, ik laat mijn vraag nog even open staan.

Mvrgrt,
deSmid.

 

[wildboy]

Hey Smid,

Ben nog voor je bezig hoor

ik heb nu even dit gemaakt:

zodra je op de knop op blad2 drukt voegt ie een blad toe
met de naam export
hievanuit slaat ie het op als een Htm. (internet pagina)

als ie daar mee klaar is wordt het blad weer verwijdert
maar de htm pagina kan worden gebruikt om te mailen of op het intranet te zetten..

als je het dus op een door je collega's bereikbare plaats zet
bv de server van het bedrijf waar iedereen bij kan.

dan kunnen ze dit zo inlezen inporteren.
ook dit weer door 1 druk op de knop

om dit goed te laten verlopen ivm het opslaan van de htm pagina.... wil ik je een paar vragen stellen...hoop dat je die zo kan beantwoorden

wat is de directorie waar de htm pagina kan worden weggeschreven.

dus bv : C:\Documents and Settings\Mijn documenten

of iets in die richting ...het mooiste zou zijn als je het ergens op de server kon plaatsen zodat je collega's dit niet hoeven op te slaan.
in dat geval ook de directorie.

Dan nog dit heet het blad echt gewoon Blad2 of heeft het een andere naam ?
en is het inderdaad het 2de blad in je werkmap
dus de 1ste is blad1 de 2de blad2 etz...
dit is erg belangrijk ivm het verwijderen en toevoegen van het blad export




hoor het wel.

 

[deSmid]

De map waar dit bij de meeste in zal komen wil ik instellen op eenvoudigweg:
C:\Documents and Settings\Mijn documenten\Presentielijst

Het werkblad is om het even hoe dit te noemen. Misschien is het handig om dit blad de naam mee tegeven 'Export' Dit maak ik dan als kopie van het active werkblad omdat ik de mogelijkheid wil houden deze van naam te kunnen wijzigen.

Kijk uit naar je oplossing hiervoor.

Mvrgrt,
deSmid.

 

[wildboy]

Nou bij deze dan

zag dat je zelf ook wel iets ervaring hebt in VBA

let even op ...dat het pad nu overeen komt met dat wat jij hebt opgegeven dus als het niet bestaat even aanmaken
of voor de test even aanpassen in een andere directorie


:thumb:

 

[deSmid]

Dit ziet er goed uit, begin is er, alleen krijg ik nog een foutmelding. Hier heb ik verder nog geen tijd voor genomen om uit te zoeken waarom. Het lijkt me dat hier wel is uit te komen. Zodra ik wat meer weet kom ik hierop terug. Alvast bedankt voor de inzet.

Mvrgrt,
deSmid.

 

[deSmid]

Het heeft even geduurd maar nog even terug op je voorbeeld wildboy. Ik krijg een compileerfout in het volgende:

With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Documents and Settings\Mijn documenten\Presentielijst\export.htm", "export", "$B$6:$AG$35", xlHtmlStatic, _
"plakken-waarde-in-nieuw_24524", "")
.Publish (True)
.AutoRepublish = False

AutoRepublish wordt aangegeven als fout (?). Zoveel weet ik er niet van dat ik dit weet op te lossen.

Nu gebruik ik de volgende Macro's, deze zitten beide in de werkbladen die worden verspreid. Mijn collega ontvangt van mij een werkblad met de naam 'TempExport.xls' welke hij plaatst in zijn werkmap (het pad moet voor hem in de macro worden aangepast)

Sub Exporteer()
'
' Exporteer Macro
'
' Sneltoets: CTRL+SHIFT+E
'
Range("B6:AG35").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="H:\documenten\TempExport.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWorkbook.Close
'Sheets("Blad2").Select
Range("A1").Select
End Sub

----------------------------------------------------

Sub Importeer()
'
' Importeer Macro
'
' Sneltoets: CTRL+SHIFT+I
'
Workbooks.Open Filename:="H:\documenten\TempExport.xls"
Range("A1:AF30").Select
Selection.Copy
Windows("PresentieLijst.xls").Activate
Range("B6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("TempExport.xls").Activate
ActiveWindow.Close
Range("B6").Select
End Sub


Hiermee is dit misschien niet de mooiste oplossing maar voor nu volstaat deze goed.
Vriendelijk dank voor het idee.

Groet,
deSmid.:thumb:

 

[wildboy]

hey ,

met welke versie van excel werken jullie?
mischien ligt het daar aan heb zelf 2003


Je kan ook proberen om genoemde gewoon eens te verwijderen

volgens mij staat ie standaard op false dus dat zal geen probleem zijn.

 

[deSmid]

Nog laat wakker.

Ik gebruik Office 2000 en werk verder met WinMe.

Ik kijk zeker nogeens even naar jouw voorbeeld.
Groet,
deSmid.