Gegevens overzetten

[Dr Snuggels]

Hallo iedereen,

Ik weet niet zeker of dit al een keer eerder is gevraagd (ik dacht van wel), maar ik kan niets (meer) vinden.

Ik ben bezig met een calculatiesheet, waarbij ik op de eerste tabblad de basisgegevens moet invullen, waaronder de adresgegevens van de opdrachtgever. Ik heb ruimte gemaakt om 6 verschillende opdrachtgever kwijt te kunnen, omdat het meer dan eens voorkomt dat er meerdere opdrachtgever op 1 werk "azen". De macro om het adressenbestand te openen werkt in en de macro in dit bestand om de gegevens over te zetten werkt ook.

Helaas werkt deze macro alleen maar vóórdat ik het bestand opsla onder het projectnummer, wat uiteindelijk de bedoeling is. Dus als ik een calculatie heb gemaakt voor 1 opdrachtgever en bijv. een week later vraagt een 2de opdrachtgever om dezelfde offerte, werkt de laatst genoemde macro niet meer.

Ik hoop dat ik een beetje duidelijk overkom.
Kan iemand mij hiermee helpen?

Hieronder de VBA code. (ik kan helaas geen voorbeeld-bestand meesturen zonder bedrijfsgevoelige data. Als ik die weghaal valt er niets meer te zien.)

Private Sub CommandButtonAanvraag_Click()
frmRelaties.Hide

With Worksheets("Keuze")
.Range("VeranderZoeknaam") = TextBoxZoeknaam.Value
.Range("VeranderNaam") = TextBoxNaam.Value
.Range("VeranderType") = TextBoxType.Value
.Range("VeranderStraat") = TextBoxStraat.Value
.Range("VeranderPCWoonplaats") = TextBoxPCPlaats.Value
.Range("VeranderWoonplaats") = TextBoxWoonplaats.Value
.Range("VeranderPostbus") = TextBoxPostbus.Value
.Range("VeranderPCPostbus") = TextBoxPCPostbus.Value
.Range("VeranderPlaats") = TextBoxPlaatsPostbus.Value
.Range("VeranderTelefoon") = TextBoxTelefoonnummer.Value
.Range("VeranderFax") = TextBoxFaxnummer.Value
.Range("VeranderVoorletters") = TextBoxVoorletters.Value
.Range("VeranderAanspreektitel") = TextBoxAanspreektitel.Value
.Range("VeranderTussenvoegsel") = TextBoxTussenvoegsel.Value
.Range("VeranderAchternaam") = TextBoxAchternaam.Value
.Range("VeranderMobieleNummer") = TextBoxMobieleNummer.Value
.Range("VeranderEmail") = TextBoxEmail.Value
.Range("VeranderRelatieNummer") = TextBoxRelatienummer.Value
End With

With Worksheets("Keuze")
Zoeknaam = .Range("VeranderZoeknaam").Value
Naam = .Range("VeranderNaam").Value
Straat = .Range("VeranderStraat").Value
PostcodeWoonplaats = .Range("VeranderPCWoonplaats").Value
Woonplaats = .Range("VeranderWoonplaats").Value
Postbus = .Range("VeranderPostbus").Value
PostcodePostbus = .Range("VeranderPCPostbus").Value
PlaatsPostbus = .Range("VeranderPlaats").Value
Telefoon = .Range("VeranderTelefoon").Value
Faxnummer = .Range("VeranderFax").Value
Aanspreektitel = .Range("VeranderAanspreektitel").Value
Voorletters = .Range("VeranderVoorletters").Value
Tussenvoegsel = .Range("VeranderTussenvoegsel").Value
Achternaam = .Range("VeranderAchternaam").Value
MobieleNummer = .Range("VeranderMobieleNummer").Value
Email = .Range("VeranderEmail").Value
End With


If Aanspreektitel = "0" Or Aanspreektitel = "" Then
Aanspreektitel = ""
Else
Aanspreektitel = Aanspreektitel & " "
End If
'
' If Postbus = 0 Or Postbus = "" Then
' Adres = Straat
' Plaats = PostcodeWoonplaats & " " & Woonplaats
' Else
' Adres = "Postbus" & " " & Postbus
' Plaats = PostcodePostbus & " " & PlaatsPostbus
' End If


Workbooks("Calculatie.xls").Activate
' Workbooks("Calculatie Exact.xls").Activate
With Worksheets("Aanvraag")
.Select
.Range("Zoeknaam") = Zoeknaam
.Range("Opdrachtgever") = Naam
.Range("Voorletters") = Voorletters
.Range("Aanspreektitel") = Aanspreektitel
.Range("Tussenvoegsel") = Tussenvoegsel
.Range("Achternaam") = Achternaam
.Range("MobieleNummer") = MobieleNummer
.Range("Postbus") = Postbus
.Range("Adres") = Straat
.Range("Postcode") = PostcodePostbus
.Range("PostcodeWoonplaats") = PostcodeWoonplaats
.Range("Plaats") = PlaatsPostbus
.Range("Woonplaats") = Woonplaats
.Range("Telefoonnummer") = Telefoon
.Range("Faxnummer") = Faxnummer
.Range("Email") = Email
End With

Unload frmRelaties

End Sub

 

[snb]

Begin met wieden
Deze macro doet hetzelfde als de jouwe.

Private Sub CommandButtonAanvraag_Click()
  frmRelaties.Hide
  sq=split("Zoeknaam|Naam|Type|Straat|PCWoonplaats|Woonplaats|Postbus|PCPostbus|Plaats|Telefoon|Fax|Voorletters|Aanspreektitel|Tussenvoegsel|Achternaam|MobieleNummer|Email|RelatieNummer","|")
  for j=0 to ubound(sq)
    sheets("Keuze").Range("Verander" & sq(j)) = Me("TextBox" & sq(j)).Text
    Workbooks("Calculatie.xls").sheets("Aanvraag").Range(sq(j)) = Me("TextBox" & sq(j)).Text
  Next
End Sub

 

[Dr Snuggels]

Begin met wieden
Deze macro doet hetzelfde als de jouwe.

Private Sub CommandButtonAanvraag_Click()
  frmRelaties.Hide
  sq=split("Zoeknaam|Naam|Type|Straat|PCWoonplaats|Woonplaats|Postbus|PCPostbus|Plaats|Telefoon|Fax|Voorletters|Aanspreektitel|Tussenvoegsel|Achternaam|MobieleNummer|Email|RelatieNummer","|")
  for j=0 to ubound(sq)
    sheets("Keuze").Range("Verander" & sq(j)) = Me("TextBox" & sq(j)).Text
   [B] Workbooks("Calculatie.xls").sheets("Aanvraag").Range(sq(j)) = Me("TextBox" & sq(j)).Text[/B]  Next
End Sub

snb,

Dank voor je reactie. Helaas werkt je macro-code niet. Er komt een foutmelding bij het hierboven dikgedrukte regel.

Als ik het goed lees doet jou macro exact hetzelfde als de mijne. En daarmee niet helemaal wat ik zou willen. Wat ik graag zou willen is, dat op het moment dat ik het bestand Calculatie heb opgeslagen onder een andere naam (meestal het projectnummer bijv. 09-1025) en een week later ik een nieuwe opdrachtgever wil toevoegen, die gegevens overgezet moeten worden naar bestand 09-1025 en niet naar Calculatie.

Is dit überhaubt mogelijk of vraag ik hier iets onmogelijks?

 

[snb]

Als er geen bestand 'calculatie.xls' geladen is loopt iedere macro die daarnaar verwijst stuk.

Hoe kan de macro 'weten' naar welk bestand weggeschreven moet worden ?

 

[Dr Snuggels]

Ik heb het misschien niet zo woordelijk vermeld, maar dat is dus mijn vraag.
Is er, op een 1 of andere manier, zoiets mogelijk, dat dat wel kan?

Om die gegevens iedere keer handmatig toe te voegen is nogal tijdrovend.
Ik dacht dat als ik m'n adressenbestand open via een macro uit een bestand anders geheten dan 'Calculatie.xls', dat er via een verwijzing of iets dergelijks in de macro, toch die gegevens overgezet kunnen worden.

Maar dat is niet mogelijk begrijp ik. Of wel?