Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 12 van 12

Onderwerp: samenvoegen van 2 files met vba/formules

  1. #1
    Senior Member
    Geregistreerd
    2 mei 2013
    Locatie
    Boom
    Afstand tot server
    ±196 km
    Vraag is opgelost

    samenvoegen van 2 files met vba/formules

    ik heb 2 files die ik graag zou samenvoegen.
    ik heb geprobeerd met de sheets te kopiëren maar de formules passen zich niet aan in de nieuwe file alsook de vba code gaat niet mee
    weet iemand hier raad mee

    in bijlage de beide files
    ps:file kaartwedstrijd met urserform moet samengevoegd worden met de file moederfile prijskamp (zie bijlage)

    kaartwedstrijd met urserform.xlsm moederfile prijskamp.xlsm

    lco

  2. #2
    Senior Member
    Geregistreerd
    2 mei 2013
    Locatie
    Boom
    Afstand tot server
    ±196 km
    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

    moederfile prijskamp.xlsm

    mvg,lco

  3. #3
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Ik zie geen Userform. Een Userfom kan ook niet in een sheet staan.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  4. #4
    Senior Member
    Geregistreerd
    2 mei 2013
    Locatie
    Boom
    Afstand tot server
    ±196 km
    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
    (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

    Doc1.docx


    mvg,Lco
    Laatst aangepast door coolsluc : 6 december 2018 om 18:46

  5. #5
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Probeer eens of deze samenvoeging doet wat je wil:
    Samengevoegd.xlsm
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  6. #6
    Senior Member
    Geregistreerd
    2 mei 2013
    Locatie
    Boom
    Afstand tot server
    ±196 km
    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

  7. #7
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Ik zie dat er inderdaad een paar knoppen niet meegekomen zijn.
    Daar zal ik vanavond even naar kijken.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  8. #8
    Senior Member
    Geregistreerd
    2 mei 2013
    Locatie
    Boom
    Afstand tot server
    ±196 km
    edmoor

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

    mvg,lco
    Laatst aangepast door coolsluc : 7 december 2018 om 12:14

  9. #9
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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 aangepast door VenA : 7 december 2018 om 18:10
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  10. #10
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Dit is je bestand uit #2 waarbij de invulbriefjes denk ik weer werken.
    Mag je zelf testen
    moederfile prijskamp.xlsm
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  11. #11
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Deze...
    Code:
    Tafels.List = [row(4:50)]
    ....doet hetzelfde als onderstaand.
    Code:
    For T = 4 To 50
       Tafels.AddItem T
    Next T
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  12. #12
    Senior Member
    Geregistreerd
    2 mei 2013
    Locatie
    Boom
    Afstand tot server
    ±196 km
    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


    mvg,Luc

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren