Gegevens in ander bestand zetten.

[Dokman]

Hallo wonder mensen.

Ik heb en script van internet gehaald en wat aanpassingen gedaan.
Het is en Form vul ik alles in dan schrijft hij het naar en tabblad "JA"
Maar ik zou graag zien dat deze gegevens naar en ander Excel-bestand gaat.
Omdat het hoofd bestand op meerdere computers komt te staan.

Sub Submit_Details()

    unprotect

    Dim shCountry As Worksheet
    Dim shForm As Worksheet
    
    Dim iCurrentRow As Integer
    Dim sCountryName As String
    Set shForm = ThisWorkbook.Sheets("Form")
    sCountryName = shForm.Range("H22").Value
    Set shCountry = ThisWorkbook.Sheets(sCountryName)
    iCurrentRow = shCountry.Range("A" & Application.Rows.Count).End(xlUp).Row + 1
    With shCountry
        
        .Cells(iCurrentRow, 1) = iCurrentRow - 1
        .Cells(iCurrentRow, 2) = shForm.Range("H7")
        .Cells(iCurrentRow, 3) = shForm.Range("L7")
        .Cells(iCurrentRow, 4) = shForm.Range("H9")
        .Cells(iCurrentRow, 5) = shForm.Range("H11")
        .Cells(iCurrentRow, 6) = shForm.Range("H13")
        .Cells(iCurrentRow, 7) = shForm.Range("L13")
        .Cells(iCurrentRow, 8) = shForm.Range("H15")
        .Cells(iCurrentRow, 9) = shForm.Range("H17")
        .Cells(iCurrentRow, 10) = Format([Now()], "DD-MMM-YYYY HH:MM:SS")
        
    End With
    
    shForm.Range("H7, H9, H13, H15, H17, L13").Value = ""
    
    MsgBox "Je gegevens zijn toegevoegd"
    ThisWorkbook.Save
    
ende:
End Sub

Zou iemand mijn kunnen helpen.

Alvast bedankt.

 

[mvdvlist]

Even snel:

shCountry = "C:\Mijnmap\Mijnmap\MijnExcel.xlsx"

Uiteraard de mappenrange en bestandsnaam aanpassen . Denk aan de extensie

 

[Dokman]

Hoi,

Bedankt voor je antwoord. ik ben aan het stoeien geweest.
Maar ik krijg het niet voor elkaar krijg telkens en foutmelding.

Zou u mijn kunnen vertellen waar ik de regel tussen kan zetten.

Wou het bestand erbij zetten. Maar krijg en melding Bestand is te groot.

 

[AHulpje]

Moet de export naar een bestaand document of naar een nieuw aan te maken document?
Indien bestaand, is daarin altijd het werkblad "JA" aanwezig?
Indien nieuw, moet daar het werkblad "JA" in worden aangemaakt?
Moet het exportbestand na de export worden opgeslagen, en als het een nieuw bestand is: onder welke naam?

 

[Dokman]

Hoi,

Elke keer als iemand op Submit druk moet het altijd opgeslagen worden in hetzelfde bestand.
Dus op en gegeven moment heb ik 1 bestand waar alle gegevens in staan.

Na het exportbestand moet het bestand opgeslagen worden en afgesloten. Want het formulier
komt op meerdere computers te staan. en wil maar 1 data bestand gebruiken.

 

[mvdvlist]

Dan wordt alles anders. Zal in de cloud moeten dus Microsoft365.
Geef ook even antwoord op de vraag van Ahulpje, draad#4.
En mogelijk een (uitgekleed) voorbeeld van de beide bestanden, dus het formulier en het databasebestand...

 

[AHulpje]

Op geen van mijn vragen een duidelijk antwoord gekregen, maar ik begin het geloof ik te begrijpen. De gebruikers hebben ieder hun eigen excelbestand van waaruit ze data exporteren naar een centraal bestand (urenverantwoording misschien?). Dat centrale bestand wordt kortstondig geopend, ontvangt de data in het werkblad "JA" en wordt weer opgeslagen. Is mijn veronderstelling juist?
Mag en kan de gebruiker meerdere keren dezelfde data versturen of moet daarop gecontroleerd worden? Denk aan controle op usernaam, datum, weeknummer o.i.d.
P.S. Het lidwoord "een" is met twee e's.

 

[Dokman]

Ik heb het bestand kleiner gemaakt. Want hij haalde ook nog informatie uit en ander bestand. En tot werd het bestand 2,5Mb.

Vul je de gegevens in op het eerst blad dan wordt het nu naar het tweede blad gestuurd. Maar die gegevens zou ik eigenlijk in een los Excel bestand willen hebben. Die zichzelf opent, opslaat en afsluit. Zodat meerdere mensen er data in kunnen zetten van af verschillende computer.


@AHulpje Sorry voor mijn dyslexie

 

[AHulpje]

In H22 staat nu de naam (nog zonder locatie) van het exportbestand, ik heb het "Bestand_JA.xlsx" genoemd. Er wordt van uitgegaan dat het werkblad "JA" daarin aanwezig is. Wordt het bestand niet gevonden dan krijg je een nette waarschuwing.
In de macro Submit_Details() wordt nu tijdelijk zo naar dat bestand verwezen: sExportbestand = ThisWorkbook.Path & "\" & shForm.Range("H22").Value
Als je in H22 de complete bestandslocatie+naam zet moet je dat nog even aanpassen: sExportbestand = shForm.Range("H22").Value
Rij 22 is nog niet verborgen.

 

[Dokman]

Bedankt voor je hulp vandaag. Kom er en stuk verder mee.