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

Koppelen velden

Status
Niet open voor verdere reacties.
Ik haat het als mensen op 't laatste hun vragen veranderen, maar ben goed gezind vandaag.

Code: 
Sub test()

Dim rDoel As Range
Dim rBron As Range
Dim rVer As Range
Dim rNum As Range
Dim sht As Worksheet

For Each sht In Application.Worksheets
    If sht.Name <> "Export to Meet" Then
            
        Worksheets("Export to Meet").Select
        Range("C1").Select
        Do While Selection <> Empty
            Selection.Offset(1, 0).Select
        Loop
        Set rDoel = Selection
        sht.Select
        Set rBron = Range("E22")
        Set rVer = Range("E7")
        Set rNum = Range("E8")
        
        Do While rBron.Value <> ""
        
            Worksheets("Export to Meet").Select
            rDoel.Value = rBron.Value
            rDoel.Offset(0, 1).Value = rBron.Offset(1, 0).Value
            rDoel.Offset(0, 2).Value = rBron.Offset(2, 0).Value
            rDoel.Offset(0, 3).Value = rBron.Offset(4, 0).Value
            rDoel.Offset(0, 4).Value = rBron.Offset(5, 0).Value
            rDoel.Offset(0, 5).Value = rBron.Offset(6, 0).Value
            rDoel.Offset(0, 6).Value = rBron.Offset(7, 0).Value
            rDoel.Offset(0, 7).Value = rBron.Offset(9, 0).Value
            rDoel.Offset(0, 8).Value = rBron.Offset(10, 0).Value
            rDoel.Offset(0, 9).Value = rBron.Offset(11, 0).Value
            rDoel.Offset(0, 10).Value = rBron.Offset(12, 0).Value
            
            rDoel.Offset(0, -2).Value = rVer
            rDoel.Offset(0, -1).Value = rNum
            
                For i = 1 To 3
                    If rBron.Offset(9 + (i * 5), 0).Value <> "" Then
                    
                        Set rDoel = rDoel.Offset(1, 0)
                    
                        rDoel.Value = rBron.Value
                        rDoel.Offset(0, 1).Value = rBron.Offset(1, 0).Value
                        rDoel.Offset(0, 2).Value = rBron.Offset(2, 0).Value
                        rDoel.Offset(0, 3).Value = rBron.Offset(4, 0).Value
                        rDoel.Offset(0, 4).Value = rBron.Offset(5, 0).Value
                        rDoel.Offset(0, 5).Value = rBron.Offset(6, 0).Value
                        rDoel.Offset(0, 6).Value = rBron.Offset(7, 0).Value
                        
                        rDoel.Offset(0, 7).Value = rBron.Offset(9 + (i * 5), 0).Value
                        rDoel.Offset(0, 8).Value = rBron.Offset(10 + (i * 5), 0).Value
                        rDoel.Offset(0, 9).Value = rBron.Offset(11 + (i * 5), 0).Value
                        rDoel.Offset(0, 10).Value = rBron.Offset(12 + (i * 5), 0).Value
                        rDoel.Offset(0, -2).Value = rVer
                        rDoel.Offset(0, -1).Value = rNum

                    End If
                Next i
                
            Set rBron = rBron.Offset(30, 0)
            Set rDoel = rDoel.Offset(1, 0)
        Loop
    End If
Next sht

End Sub

Dit zou moeten lukken
 
Diffractorator zei:
Ik haat het als mensen op 't laatste hun vragen veranderen, maar ben goed gezind vandaag.

Code: 
Sub test()

Dim rDoel As Range
Dim rBron As Range
Dim rVer As Range
Dim rNum As Range
Dim sht As Worksheet

For Each sht In Application.Worksheets
    If sht.Name <> "Export to Meet" Then
            
        Worksheets("Export to Meet").Select
        Range("C1").Select
        Do While Selection <> Empty
            Selection.Offset(1, 0).Select
        Loop
        Set rDoel = Selection
        sht.Select
        Set rBron = Range("E22")
        Set rVer = Range("E7")
        Set rNum = Range("E8")
        
        Do While rBron.Value <> ""
        
            Worksheets("Export to Meet").Select
            rDoel.Value = rBron.Value
            rDoel.Offset(0, 1).Value = rBron.Offset(1, 0).Value
            rDoel.Offset(0, 2).Value = rBron.Offset(2, 0).Value
            rDoel.Offset(0, 3).Value = rBron.Offset(4, 0).Value
            rDoel.Offset(0, 4).Value = rBron.Offset(5, 0).Value
            rDoel.Offset(0, 5).Value = rBron.Offset(6, 0).Value
            rDoel.Offset(0, 6).Value = rBron.Offset(7, 0).Value
            rDoel.Offset(0, 7).Value = rBron.Offset(9, 0).Value
            rDoel.Offset(0, 8).Value = rBron.Offset(10, 0).Value
            rDoel.Offset(0, 9).Value = rBron.Offset(11, 0).Value
            rDoel.Offset(0, 10).Value = rBron.Offset(12, 0).Value
            
            rDoel.Offset(0, -2).Value = rVer
            rDoel.Offset(0, -1).Value = rNum
            
                For i = 1 To 3
                    If rBron.Offset(9 + (i * 5), 0).Value <> "" Then
                    
                        Set rDoel = rDoel.Offset(1, 0)
                    
                        rDoel.Value = rBron.Value
                        rDoel.Offset(0, 1).Value = rBron.Offset(1, 0).Value
                        rDoel.Offset(0, 2).Value = rBron.Offset(2, 0).Value
                        rDoel.Offset(0, 3).Value = rBron.Offset(4, 0).Value
                        rDoel.Offset(0, 4).Value = rBron.Offset(5, 0).Value
                        rDoel.Offset(0, 5).Value = rBron.Offset(6, 0).Value
                        rDoel.Offset(0, 6).Value = rBron.Offset(7, 0).Value
                        
                        rDoel.Offset(0, 7).Value = rBron.Offset(9 + (i * 5), 0).Value
                        rDoel.Offset(0, 8).Value = rBron.Offset(10 + (i * 5), 0).Value
                        rDoel.Offset(0, 9).Value = rBron.Offset(11 + (i * 5), 0).Value
                        rDoel.Offset(0, 10).Value = rBron.Offset(12 + (i * 5), 0).Value
                        rDoel.Offset(0, -2).Value = rVer
                        rDoel.Offset(0, -1).Value = rNum

                    End If
                Next i
                
            Set rBron = rBron.Offset(30, 0)
            Set rDoel = rDoel.Offset(1, 0)
        Loop
    End If
Next sht

End Sub

Dit zou moeten lukken
Klik om te vergroten...

Ik verander niet van vraag, maar we hebben een opmerking en vragen daarom of dat anders kan. Ben erg blij met je hulp, dat waardeer ik zeer! Het werkt, zoals verwacht, grandioos!!!
 
Waarschijnlijk ondergesneewd :p in de vele reacties.

Zie post #5 en het bijbehorend bestandje.

Code: 
Zie ook E57 en E58 in het invulblad. (oranje cellen).

Waarschijnlijk wordt het met deze toepassing voor de invuller gemakkelijker.
 
oeldere zei:
Waarschijnlijk ondergesneewd :p in de vele reacties.

Zie post #5 en het bijbehorend bestandje.

Code: 
Zie ook E57 en E58 in het invulblad. (oranje cellen).

Waarschijnlijk wordt het met deze toepassing voor de invuller gemakkelijker.
Klik om te vergroten...

Ondergesneeuwd ben ik niet hoor, ik ben heel wat gewoon. Ben erg blij met jullie actief meedenken en meehelpen! Ik ga zeker kijken naar het invulblad, maar ben al erg te spreken over de macro die mede door jullie (lees Diffractorator) tot stand is gekomen.
 
Waarschijnlijk ondergesneewd :p in de vele reacties.
Klik om te vergroten...


Wat denk je hoeveel sneeuw op post #8 ligt.
Daar is geen vlokje afgehaald of met andere woorden totaal niet op gereageerd!

Toch jammer wat persoonlijk vind ik dit een mooie oplossing.
 
popipipo zei:
Wat denk je hoeveel sneeuw op post #8 ligt.
Daar is geen vlokje afgehaald of met andere woorden totaal niet op gereageerd!

Toch jammer wat persoonlijk vind ik dit een mooie oplossing.
Klik om te vergroten...

Ik wil niemand iets te kort doen, maar een formulier had ik niet tussen de mogelijkheden staan. Ik had gevraagd naar een mogelijkheid om de velden te koppelen. De mogelijkheid zoals Diffractorator deze voor elkaar heeft weten te krijgen was dus ook mijn doel. Dat je het niet leuk vindt dat ik persoonlijk niet op POST #8 heb gereageerd vind ik spijtig, maar roept wel wat af van de persoon die erachter zit.

Laten we alsjeblieft niet met sneeuwvlokjes gaan gooien.. maar anderen gaan helpen.
 
@KupCom

Wil ik toch graag nog even reageren op je laatste reactie.

(Mede)forumleden proberen met de soms beperkt aangereikte info, te doorgronden wat de bedoeling van de vraagsteller is.

Daarna wordt gezocht naar een gevraagde oplossing.

Er zijn vaak meerdere oplossingsrichingen.

Daarom / Daarbij worden ook mogelijk niet gevraagde alternatieven getoond.

Op deze manier wordt de kennis van de forumleden gedeelt en kunnen we allemaal van elkaar leren.

Het siert de vraagsteller, de aangeboden hulp, die gratis en met de beste bedoelingen wordt gegeven, positief te behandelen.
 
Laatst bewerkt:
Dat je het niet leuk vindt dat ik persoonlijk niet op POST #8 heb gereageerd vind ik spijtig, maar roept wel wat af van de persoon die erachter zit.
Klik om te vergroten...

Over wie zegt dit wat?

Over de TS of over de helper??
 
oeldere zei:
@KupCom

Wil ik toch graag nog even reageren op je laatste reactie.

(Mede)forumleden proberen met de soms beperkt aangereikte info, te doorgronden wat de bedoeling van de vraagsteller is.

Daarna wordt gezocht naar een gevraagde oplossing.

Er zijn vaak meerdere oplossingsrichingen.

Daarom / Daarbij worden ook mogelijk niet gevraagde alternatieven getoond.

Op deze manier wordt de kennis van de forumleden gedeelt en kunnen we allemaal van elkaar leren.

Het siert de vraagsteller, de aangeboden hulp, die gratis en met de beste bedoelingen wordt gegeven, positief te behandelen.
Klik om te vergroten...

Natuurlijk snap ik dat, maar is het de TS verplicht om te reageren op elke geposte reactie? Zand...... of toch sneeuw erover lijkt me.
 
Het is niet verplicht volgens de forum regels.
Er bestaan echter ook fatsoensnormen.

Een helper steekt vrijwillig tijd in jou probleem.
Als de oplossing van die helper dan totaal genegeerd wordt is de kans groot dat de helper jou ook de volgende keer totaal negeerd en dan snij je je zelf dus in de vingers.
6 woordjes "dit is niet wat ik zoek" is niet veel maar wel voldoende.

Voor mij nu ook zand erover en een prettige jaarwisseling
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan