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

samenvoegen van 2 files met vba/formules

Status
Niet open voor verdere reacties.
C

coolsluc

Gebruiker
Lid geworden
2 mei 2013
Berichten
332
Ik heb een en ander geprobeerd en heb de files reeds samengevoegd.
Nu heb ik een probleem dat de userform in sheet invulbriefjes niet meer werkt (hier ken ik niets van).
Kan iemand mij verder helpen aub.
ps:in bijlage de samen gevoegde files

Bekijk bijlage moederfile prijskamp.xlsm

mvg,lco
 
Ik zie geen Userform. Een Userfom kan ook niet in een sheet staan.
 
VenA

In de sheet invulbriefjes staat een knop" invulbriefjes maken en afdrukken" als ik deze activeer verschijnt er een ander scherm (ik dacht waarschijnlijk verkeerd)dat dit een userform is:eek:
(ken er niets van) maar dan krijg ik de volgende melding (zie bijlage).

ps:in post 1 staat de file (kaartwedstrijd met userform) waarin deze knop wel werkt (ik heb gewoon de sheets verplaatst naar de nieuw file) deze staat in post2

Bekijk bijlage Doc1.docx


mvg,Lco
 
Laatst bewerkt:
edmoor

de knop werkt maar nu zijn er verschillende andere zaken in andere sheets die niet meer werken ;macroknoppen die verdwenen zijn koppelingen die niet meer werken edg.

ps:kun je deze oplossing voor de sheet invulbriefjes toepassen op de file in post 2 (deze werkt volledig buiten de sheet invulbriefjes) zodat de andere sheets niet worden veranderd/aangepast:)
volgens ik kan zien heeft het iets te maken met start_click (heb deze gekopieerd naar de file maar dit werkt niet).


mvg,lco
 
Ik zie dat er inderdaad een paar knoppen niet meegekomen zijn.
Daar zal ik vanavond even naar kijken.
 
edmoor

Ik heb het gevonden.
ps:ik heb de sheets verplaatst naar uw versie en alles werkt,bedankt voor uw oplossing:d

mvg,lco
 
Laatst bewerkt:
Probeer wat gebruik te maken van VBA

Macro2 kan je ook zo schrijven
Code: 
Sub VenA()
  If MsgBox("Weet u het zeker?", vbYesNoCancel) = 6 Then
    With ActiveSheet
      .Unprotect
      .Range("C2:G201,I2:I201,J2:L201,Ab2").ClearContents
      .Rows("34:201").EntireRow.Hidden = True
      .Range("B2:B" & .Range("B2").CurrentRegion.Rows.Count).Interior.ColorIndex = xlNone
      x = Application.Max(IIf(.Range("AG3") + 1 > 9, 6, .Range("AG3") + 1), 6)
      .Range("AG3") = x
      .Shapes("Afbeelding 6").Visible = x = 6
      .Shapes("Afbeelding 7").Visible = x = 7
      .Shapes("Afbeelding 8").Visible = x = 8
      .Shapes("Afbeelding 9").Visible = x = 9
      .Protect
      .Parent.Save
    End With
  End If
End Sub

Sommige .-en mag je ook weglaten omdat je met activesheet werkt.
 
Laatst bewerkt:
Deze...
Code: 
Tafels.List = [row(4:50)]
....doet hetzelfde als onderstaand.
Code: 
For T = 4 To 50
   Tafels.AddItem T
Next T
 
File (codes/macro's)werken terug juist

VenA,bedankt voor de verkorte versie van de vba code werkt correct

edmoor,bedankt voor de aanpassing van de werking invulbriefjes werkt terug normaal.

HSV,heb de juiste plaats voor invoegen/aanpassen van uw code nog niet gevonden (dit komt wel in orde).

aan alle helpers een welgemeende dankt hiervoor:thumb::thumb::thumb:


mvg,Luc
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan