Aanpassen helpmij VBA

[MegaSaxon]

Beste

Ik ben de afgelopen tijd ontzettend goed geholpen door een aantal Helpmij'ers. (Cobbe en Roncancio)

Nu heb ik geprobeerd de door hun (jullie) geleverde code aan te passen aan een andere opzet, maar kom hier niet helemaal uit. Of eigenlijk helemaal niet.

In het bestand Megasaxon staat de code door Cobbe geleverd. Hierbij wordt een geselecteerde cel van blad 1 geel gemaakt waarna een aantal andere cellen wordt gekopieerd naar blad 2.

Daar ik de geselecteerde cellen ook weer individueel "uit" wil kunnen zetten heb ik hierover een vraag gesteld, welke door Roncancio is opgelost door bijgaand stuk code.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 Then
    If Not Intersect(Target, Range("$C$4:$F$14")) Is Nothing Then
        Target.Interior.ColorIndex = Application.Max(0, Not (Target.Interior.ColorIndex) = 6) * 6
        If Target.Interior.ColorIndex = 6 Then
            rij2 = Blad2.Range("A" & Rows.Count).End(xlUp).Row + 1
            Application.Union(Range("A" & Target.Row), Range("J" & Target.Row), Range("K" & Target.Row)).Copy Destination:=Blad2.Range("A" & rij2)
        Else
            Blad2.Range("A:A").Find(Range("A" & Target.Row), , xlValues, xlWhole).EntireRow.Delete
        End If

Dit werkt allebij perfect.
Nu zou ik dit graag willen toepassen op het bijgevoegde bestand MegaSaxon2.
Door de afwijkende indeling kom ik hier niet uit.

Ik zou graag op blad 1 van het Type de "E-1 A" willen hebben door de desbetreffende prijs te selecteren. In dit geval cel B7 26.225.
Met Functie "B/E-1 3F" door cel D14 1.450 te selecteren.
Optie Mechanisch door cel A24 te selecteren.
Divers Schoen door cel E29 te selecteren.

Deze cellen moeten dan geel worden, waarna omschrijving en prijs gekopieerd worden naar blad 2.
Dus voor het Type ( in dit geval) worden cellen A7, B3 en B7 naar blad 2 gekopieerd.
Voor de functie cellen A14, D13 en D14.
Voor Opties Cellen A24 en C24.
Voor Divers Cellen E29 en H29.

BVD

 

[Roncancio]

In bijgevoegd bestand zit code die geselecteerde cellen en de bijbehorende titels geel maakt.
Zodra de macro Kopieren wordt gestart, worden de gele cellen naar het 2e werkblad gekopieerd.

Met vriendelijke groet,


Roncancio

 

[MegaSaxon]

Vraagstelling

Goede morgen

Bovenstaande oplossing is het goede antwoord op wat ik gevraagd heb.
Echt Top dat je (jullie) je expertise en tijd willen steken in het helpen van anderen.

Ik dien echter de vraagstelling enigzins uit te breiden.
Ik heb gisteren en vandaag geprobeerd e.e.a. toe te passen op onze prijslijsten, echter nog niet met het gewenste resultaat.

Ik heb de benodigde bereiken benoemd en de code gekopieerd en aangepast op deze sheets. Hierbij loop ik tegen de volgende problemen aan.

Ik krijg een foutmelding: Fout 1004 tijdens uitvoering, Methode Range van object-Worksheet is mislukt.
Dit gebeurd overigens ook op het, reeds bijgevoegde, voorbeeldsheet bij het selecteren van cel G17.

Verder is het doel van de operatie om een overzichtelijke calculatie van ons product te krijgen op blad 2. Hiertoe zou het mooi zijn wanneer de gele cellen op blad 1 op de volgende wijze worden gekopieerd naar blad 2.

Type
A4:A11 naar kolom A op blad 2.
B3:C3 naar kolom B op blad 2.
B4:C11 naar kolom C op blad 2.

Functie
A14:A18 naar kolom A
B13:G13 naar kolom B
B14:G18 naar kolom C

Opties
A21:A25 naar kolom A
C21:C25 naar kolom C

Divers
E21:E29 naar kolom A
H21:H29 naar kolom C

enz.

En ik zou graag meerdere keuzes per "sectie" kunnen maken. Bij Type hoeft dit niet, maar bij de andere wel.
Verder, nu wordt het puur luxe, zou ik geselecteerde cellen weer uit willen kunnen zetten.

bvd

 

[Warme bakkertje]

Die foutmelding krijg je omdat er lege cellen zitten in je tabel(gekruiste cellen). Zet er maar eens iets in (cijfer oid met tekenkleur wit zodat het niet opvalt) en je zal zien dat het opgelost is.

 

[MegaSaxon]

Klopt helemaal. Dankje wel.

Iemand nog suggesties v.w.b. mijn andere vragen?

bvd

 

[Roncancio]

In het bestand kan je nu meerdere keuzes maken en tevens deze aan en uitschakelen.
De gemaakte keuzes worden gekopieerd naar de gewenste kolommen.

Met vriendelijke groet,


Roncancio

 

[Roncancio]

In deze aangepaste versie staan de gegevens op Blad2 wat overzichtelijker bij elkaar.

Met vriendelijke groet,


Roncancio