Hulp gevraagd bij een offerte module

Petoi · 13 dec 2017

Beste excel goeroe's!

Ik heb de volgende wens, maar weet niet of het mogelijk is.

Ik ben een offertemodule aan het maken waarbij ik op verschillende tabbladen producten kan aanvinken, nu wil ik een soort macro die ervoor zorgt dat de selectie (WAAR) deze rij geselecteerd en gekopieerd wordt en geplakt in een ander tabblad op een fixed plaats (per tabblad).

is dit mogelijk en hoe?

hieronder het voorbeeld: (is nog in ontwikkeling )
Bekijk bijlage offertemodule v1.0.xlsx

alvast bedankt!

AlexCEL · 13 dec 2017

2 uur en nog geen enkele reactie. Dat betekend hier gewoonlijk dat je vraag onduidelijk is, of dat de vraag dermate onuitnodigend is dat de helpers geen zin hebben zich hierin te verdiepen. Je voorbeeld (echte bestand?) is bijvoorbeeld nogal uitgebreid en bevat wellicht zelfs bedrijfsgevoelige informatie m.b.t. prijzen.

..nu wil ik een soort macro die ervoor zorgt dat de selectie (WAAR) deze rij geselecteerd en gekopieerd wordt en geplakt in een ander tabblad op een fixed plaats (per tabblad).

Probeer dit eens in een concrete vraagstelling te gieten.

De selectie ... WELKE selectie, hoe kom je tot deze selectie?
deze rij ... WELKE rij(en)?
op een ander tabblad .... WELK tabblad?
op een fixed plaats per tabblad... WELKE informatie moet WAAR precies komen te staan? Beter nog is dat je (gedeeltelijk) handmatig aangeeft wat je wilt zien.

Misschien dat een VBA expert je dan wil helpen.

Petoi · 13 dec 2017

Beste Alex, en andere forumgebruikers

Vooraan de regel bij bijvoorbeeld waterbehandeling staat een selectievakje, zodra deze is aangevinkt zou slechts die regel gekopieerd moeten worden.
Die mag in het tabblad offerte onder kopje waterbehandeling geplakt moeten worden. En dit dan bij ieder tabblad en bijbehorend kopje in tabblad offerte.

mijn bestandje heb ik even aangepast zodat het wellicht iets duidelijker wordt.Bekijk bijlage offertemodule v1.0.xlsx

wat betreft de prijzen, dit zijn slechts de verkoopprijzen, dus niet gevoelig.

Ik hoop echt dat ze mij in de goede richting kunnen sturen.

Alvast bedankt voor de moeite

Timshel · 13 dec 2017

Kijk hier eens naar:

Code:

Sub tsh()
    Dim Cb As Object
    Dim i As Long
    
    With CreateObject("System.Collections.Arraylist")
        For i = 3 To Sheets.Count - 1
            For Each Cb In Sheets(i).CheckBoxes
                If Cb = xlOn Then .Add Sheets(i).Shapes(Cb.Name).TopLeftCell.Offset(1, 1).Resize(, 4).Value
            Next
        Next
        Sheets("Offerte").Cells(2, 1).Resize(.Count, 4) = Application.Index(.ToArray, 0)
    End With
End Sub

Hulp gevraagd bij een offerte module

Petoi

Gebruiker

AlexCEL

Meubilair

Petoi

Gebruiker

Timshel

Terugkerende gebruiker

Bijlagen

Nieuwste berichten

Wij waarderen jouw privacy