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

kopieren

Status
Niet open voor verdere reacties.

ronnie123

Gebruiker
Lid geworden
21 nov 2007
Berichten
628
hallo forum leden
ik heb weer een vraag
als ik in blad 1 in kolom C ja zet wil ik graag dat van die regel kolom D,E,F,K en L gekopieerd wordt naar blad 2 en elke keer een nieuwe regel op blad 2
hoe pak ik dat aan
groetjes ronnie
 
begin eens met een voorbeeldbestandje ontdaan van gevoelige info te plaatsen.

met vriendelijke groeten,

oeldere
 
oeldere en wim bedankt voor de reactie
ik heb de link van wim beken maar dan krijg ik allemaal dubbele rijen.
heb een bestandje bijgevoegd met ook mijn vraag erin
hoop dat er een oplossing voor is
groetjes ronnie
 

Bijlagen

hallo forum leden
is dit niet haalbaar,zou het graag willen weten want dan moet ik naar iets anders zoeken
groetjes ronnie
 
Beste Ronnie123, de helpers alhier bieden hun diensten aan op vrijwillige basis, dus een beetje geduld als het antwoord niet onmiddelijk komt is dan wel op z'n plaats
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Value = "Ja" Then
        Union(Target.Offset(, 1).Resize(, 3), Target.Offset(, 8).Resize(, 2)).Copy _
            [Blad2!A65536].End(xlUp).Offset(1)
    End If
End Sub
 
SORRY Rudi
was niet zo bedoeld,maar jullie zijn altijd zo snel met oplossingen dat ik nu dacht dat ik iets wilde wat niet haalbaar is.
maar je oplossing is precies wat ik bedoelde.
maar zit alleen met het overzetten naar het originele bestand,heb je code ingevoegd op tabblad speles gegevens en het moet naar tabblad poule samenstelling.
maar als ik blad 2 daarin veranderd gaat het fout
hoe pas ik dit aan.
groetjes ronnie
 
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Value = "Ja" Then
        Union(Target.Offset(, 1).Resize(, 3), Target.Offset(, 8).Resize(, 2)).Copy _
            ['poule samenstelling'!A65536].End(xlUp).Offset(1)
    End If
End Sub
 
hallo rudi
bij mijn werkt het nog niet,wat kan er nog fout gaan
groetjes ronnie
 
ronnie123,

Bij mij werkt hij wel, je moet wel een hoofd letter gebruiken Ja en geen ja.
 
wim bedankt de hoofdletter was het probleem
het werkt nu prima
rudi en wim bedankt hiervoor
groetjes ronnie
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan