Rijen kopieren naar ander werkblad

[Roncancio]

Toch nog een kleine vraag is het ook mogelijk om naar 2 dingen te kijken en dan te kopieren, plakken.

Bijvoorbeeld Regio = Zuid West en het 2 ding is Auto (kolom G)
dan dit te kopieren naar Tabblad Zuid West vanaf regel 7 t.m regel 15
Regio = Zuid West en het 2 ding is Motor (kolom G)
kopieren naar Tabblad Zuid West plakken vanaf regel 17

Is dat mogelijk?

Dat kan in principe wel, maar stel dat er in regio Zuid West heel veel auto's zijn.
Dan kan dat problemen geven op het werkblad.

Met vriendelijke groet,


Roncancio

 

[gpiket7]

Ja oke dat klopt, dat is wel iets om rekening mee te houden.
Maar wil het wel gaan proberen, kijken of het iets is.

Maar kun je dan ook zeggen regel 7 t/m 15 iedere keer wissen
Regel 16 altijd laten staan ivm titels in de regel
En dan regel 17 weer wissen t/m 25 ofzo

 

[Roncancio]

Ja oke dat klopt, dat is wel iets om rekening mee te houden.
Maar wil het wel gaan proberen, kijken of het iets is.

Maar kun je dan ook zeggen regel 7 t/m 15 iedere keer wissen
Regel 16 altijd laten staan ivm titels in de regel
En dan regel 17 weer wissen t/m 25 ofzo

Ja, dat is geen probleem.
Heb je een voorbeeldbestand met de bereiken?

Met vriendelijke groet,


Roncancio

 

[gpiket7]

Hierbij een voorbeeldbestand. Hij moet kijken naar de kolommen D en G.

 

[Roncancio]

Hierbij een voorbeeldbestand. Hij moet kijken naar de kolommen D en G.

Is het de bedoeling dat er een sortering moet gaan plaatsvinden obv kolom G?
Wat is het belang van kolom G?

Met vriendelijke groet,


Roncancio

 

[gpiket7]

Ja hij moet eerst kijken naar de regio kolom, als dit dus Zuid West is dan moet deze gekopieerd worden naar zuid West.

Op het Tabblad van Zuid West moeten een 3-tal rijen komen zoals nu rij 6/7
Rij 6/7 is Bedrijsapplicatie
Alles wat in kolom G Bedrijfsapplicatie heeft staan moet daaronder gekopieerd worden.

Dan komt op regel 16/17 een kopie van rij 6/7
Alles met in kolom G Kantoorapplicatie moet daar onder komen.

 

[Roncancio]

Als je op de knop klikt op het 1e werkblad dan worden de gegevens van het 1e werkblad weggeschreven naar de overige werkbladen. Hierbij wordt ook rekening gehouden met de tekst in de G-kolom.

Met vriendelijke groet,


Roncancio

 

[gpiket7]

Ziet er goed uit. Alleen als ik nu kies voor Landelijk - Alle Regio's plaatst hij deze in geen een werkblad terwijl hij deze eigenlijk naar alle werkbladen zou moet kopieren

 

[Roncancio]

Ziet er goed uit. Alleen als ik nu kies voor Landelijk - Alle Regio's plaatst hij deze in geen een werkblad terwijl hij deze eigenlijk naar alle werkbladen zou moet kopieren

Ook dat probleem behoort nu tot het verleden.

Met vriendelijke groet,


Roncancio

 

[gpiket7]

Volgens mij is er nu een foutje in geslopen. Kantoor en Bedrijfsapplicatie komen beide onder rij 16

 

[Roncancio]

Volgens mij is er nu een foutje in geslopen. Kantoor en Bedrijfsapplicatie komen beide onder rij 16

:shocked:
Bij mij komt Bedrijfsapplicatie in regel 7 te staan.
Ik ben benieuwd wat je gedaan hebt.

Met vriendelijke groet,


Roncancio

 

[gpiket7]

Klopt dat werkt wel, had denk iets verkeerds gedaan.
Alleen als je 2x een bedrijfsapplicatie of een kantoorapplicatie invoert
kopieert hij er mar 1 naar de tabbladen en als je iets wijzigt snapt ie het ook niet

 

[Roncancio]

Klopt dat werkt wel, had denk iets verkeerds gedaan.
Alleen als je 2x een bedrijfsapplicatie of een kantoorapplicatie invoert
kopieert hij er mar 1 naar de tabbladen en als je iets wijzigt snapt ie het ook niet

Er stond nog wat oude code in die ik inmiddels als tekst heb weergegeven.
Zodra je een wijziging aanbrengt in de G-kolom of je drukt op de knop dan wordt de macro gestart.

Bij mij worden overigens alle applicaties in de werkbladen gezet, dus ook als er meer dan 1 is.

Met vriendelijke groet,


Roncancio

 

[gpiket7]

Volgens mij heb ik iets niet goed dan.

Heb op werkblad 1 staat:

Rij 11: Guido | Regio |Zuid West | Breda | Bedrijfsapplicatie | ANVA
Rij 12: Jeroen | Regio | Zuid West | Oosterhout | Kantoorapplicatie | Outlook
Rij 13: Nico | Landelijk | Alle Regio's | Alle Vestigingen | Bedrijfsapplicatie | Klantmanager

Druk ik op de knop om ze te kopieren naar de andere werkbladen dan kopieerd hij naar het tabblad Zuid West:

Rij 7: Guido | Regio |Zuid West | Breda | Bedrijfsapplicatie | ANVA
Rij 17: Nico | Landelijk | Alle Regio's | Alle Vestigingen | Bedrijfsapplicatie | Klantmanager

Hier mis ik dus Rij 12 en kopieert hij Bedrijfsapplicatie naar 2 verschillende plekken (rij7 en 17) Op de andere werkbladen kopieert hij deze ook naar rij 17 ipv rij 7.

Mijn code op het moment is:

 'This code is for the Worksheet Module ONLY
 'In the Sheet Code Module for the sheet you want this to work on paste:
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     
    Dim Rng1            As Range
     
     'Assign the range to work with
    Set Rng1 = Range("J1:J100,L1:L100")
    
     
     'Only work on assigned range
    If Intersect(Target, Rng1) Is Nothing Then Exit Sub
     
     'Cancel cell editing that would normally trigger when you double click
    Cancel = True
     
     'Call the userform
    UserForm1.Show
     
End Sub
 'End worksheet module code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("C10:C100")) Is Nothing Then
    If Target.Value = "Landelijk" Then
        Sheets("Landelijk").Select
        ActiveWorkbook.Names("keuze2").Delete
        ActiveWorkbook.Names.Add Name:="keuze2", RefersToR1C1:="=Landelijk!R2C28:R2C28"
        Sheets("Landelijk").Select
    Else
    If Target.Value = "Regio" Then
       Sheets("Landelijk").Select
       ActiveWorkbook.Names("keuze2").Delete
       ActiveWorkbook.Names.Add Name:="keuze2", RefersToR1C1:="=Landelijk!R2C29:R6C29"
       Sheets("Landelijk").Select
    End If
End If
End If
If Not Application.Intersect(Target, Range("D10:D100")) Is Nothing Then
    If Target.Value = "Alle Regio's" Then
        Sheets("Landelijk").Select
        ActiveWorkbook.Names("keuze3").Delete
        ActiveWorkbook.Names.Add Name:="keuze3", RefersToR1C1:="=Landelijk!R2C31:R2C31"
        Sheets("Landelijk").Select
    Else
    If Target.Value = "Zuid West" Then
       Sheets("Landelijk").Select
       ActiveWorkbook.Names("keuze3").Delete
       ActiveWorkbook.Names.Add Name:="keuze3", RefersToR1C1:="=Landelijk!R2C32:R15C32"
       Sheets("Landelijk").Select
    Else
    If Target.Value = "Zuid Oost" Then
       Sheets("Landelijk").Select
       ActiveWorkbook.Names("keuze3").Delete
       ActiveWorkbook.Names.Add Name:="keuze3", RefersToR1C1:="=Landelijk!R2C33:R12C33"
       Sheets("Landelijk").Select
    Else
    If Target.Value = "West" Then
       Sheets("Landelijk").Select
       ActiveWorkbook.Names("keuze3").Delete
       ActiveWorkbook.Names.Add Name:="keuze3", RefersToR1C1:="=Landelijk!R2C34:R10C34"
       Sheets("Landelijk").Select
    Else
    If Target.Value = "Noord Oost" Then
       Sheets("Landelijk").Select
       ActiveWorkbook.Names("keuze3").Delete
       ActiveWorkbook.Names.Add Name:="keuze3", RefersToR1C1:="=Landelijk!R2C35:R11C35"
       Sheets("Landelijk").Select
    End If
    If Target.Value = "LVO" Then
       Sheets("Landelijk").Select
       ActiveWorkbook.Names("keuze3").Delete
       ActiveWorkbook.Names.Add Name:="keuze3", RefersToR1C1:="=Landelijk!R2C36:R3C36"
       Sheets("Landelijk").Select
    End If
End If
End If
End If
End If
End If
If Not Application.Intersect(Target, Range("F10:F100")) Is Nothing Then
    If Target.Value = "Bedrijfsapplicatie" Then
        Sheets("Landelijk").Select
        ActiveWorkbook.Names("keuze5").Delete
        ActiveWorkbook.Names.Add Name:="keuze5", RefersToR1C1:="=Landelijk!R2C37:R4C37"
        Sheets("Landelijk").Select
    Else
    If Target.Value = "Infrastructuur" Then
       Sheets("Landelijk").Select
       ActiveWorkbook.Names("keuze5").Delete
       ActiveWorkbook.Names.Add Name:="keuze5", RefersToR1C1:="=Landelijk!R2C38:R4C38"
       Sheets("Landelijk").Select
    Else
    If Target.Value = "Kantoorapplicatie" Then
       Sheets("Landelijk").Select
       ActiveWorkbook.Names("keuze5").Delete
       ActiveWorkbook.Names.Add Name:="keuze5", RefersToR1C1:="=Landelijk!R2C39:R4C39"
       Sheets("Landelijk").Select
    End If
End If
End If
End If
End Sub

Private Sub CommandButton1_Click()

Dim lRij As Long
Dim c As Range
Dim iWS As Integer
Dim sBedr As String
Dim sKntr As String
    sBedr = "7:15"
    sKntr = "17:25"
    Application.ScreenUpdating = False
    For iWS = 2 To Worksheets.Count
        Worksheets(iWS).Range(sBedr).ClearContents
        Worksheets(iWS).Range(sKntr).ClearContents
    Next
    For Each c In Sheets(1).[D11:D100]
        On Error Resume Next
        If Range("F" & c.Row).Value = "Bedrijfsapplicatie" Then lRij = Sheets(c.Value).[A16].End(xlUp).Row + 1
        If Range("F" & c.Row).Value = "Kantoorapplicatie" Then lRij = Sheets(c.Value).[A25].End(xlUp).Row + 1
        If Range("C" & c.Row).Value = "Landelijk" Then
            For iWS = 2 To Worksheets.Count
                Range("A" & c.Row & ":Z" & c.Row).Copy Sheets(iWS).Range("A" & lRij)
            Next
        Else
                Range("A" & c.Row & ":Z" & c.Row).Copy Sheets(c.Value).Range("A" & lRij)
        End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[Roncancio]

Ik denk dat het het handigste is als we uitgaan van 1 applicatie.
In mijn applicatie is bovenstaande code grotendeels als tekst neergezet en dus niet langer als code.
Bij het runnen van mijn applicatie kwam ik geen vergelijkbare problemen tegen.

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Ik heb je gegevens in mijn nieuwste versie geplaatst en tevens de code aangepast.

Met vriendelijke groet,


Roncancio

 

[gpiket7]

Beetje late reactie, maar dit is het helemaal. Dank je wel!!