waarden zoeken en op tabblad zetten

[Goudvis1]

Goedenavond,
Ik heb een bestand met brondata (komen steeds nummers bij), waarvan ik de data van de kolom bedrijf op aparte tabbladen wil zetten. Dus rijen van bedrijf a moeten op tablad "bedrijf a" komen, rijen van bedrijf b op tabblad "bedrijf b".
Ik ben begonnen maar kom er niet goed uit. Ik heb nu tabblad bedrijf a aangemaakt (zou ik het liefst automatisch aan laten maken) en hij zet nu de eerste rij goed neer. De bedoeling is echter dat alle rijen met een a in kolom bedrijf van bronsheet worden gekopieerd. Daarnaast zou ik 1 knop willen hebben die alle data naar de tabbladen wegschriijft.
Ik hoop dat het een beetje duidelijk is met het bijgevoegde bestand erbij.

Groet, Goudvis

 

[HSV]

Sub tstwegschrijven()
 With Worksheets("Bedrijf " & [M1].Value).Usedrange.ClearContents
  Dim cl
    For Each cl In Sheets("Bron").Usedrange
      If cl = [M1].Value Then
         cl.EntireRow.Copy Sheets("Bedrijf " & [M1].Value).Range("A65536") _
          .End(xlUp).Offset(1)
        End If
      Next
   End With
End Sub

Je autovormknop heb ik bij kenmerken gewijzigd naar: 'niet gerelateerd aan cellen' bij autovorm opmaken 'Kenmerken'.

 

[Roncancio]

Zodra je op de knop klikt, worden de gegevens van de bedrijven in de betreffende werkbladen geplaatst.
Indien een bedrijf nog geen werkblad heeft, wordt deze ook automatisch aangemaakt.

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Sub tstwegschrijven()
 With Worksheets("Bedrijf " & [M1].Value).Usedrange.ClearContents
  Dim cl
    For Each cl In Sheets("Bron").Usedrange
      If cl = [M1].Value Then
         cl.EntireRow.Copy Sheets("Bedrijf " & [M1].Value).Range("A65536") _
          .End(xlUp).Offset(1)
        End If
      Next
   End With
End Sub

Je autovormknop heb ik bij kenmerken gewijzigd naar: 'niet gerelateerd aan cellen' bij autovorm opmaken 'Kenmerken'.

:shocked::shocked:
Wat een close finish op dit late uur!

3 opmerkingen:
- Volgens mij wil de TS dat de werkbladen automatisch aangemaakt worden.
- De bedrijfsnamen staan in de B-kolom.
- Ik neem aan dat de werkbladen geen "bedrijf" icm bedrijfsnaam heten. (hier ging ik ook de mist in!)

Met vriendelijke groet,


Roncancio

 

[HSV]

:shocked::shocked:
Wat een close finish op dit late uur!

3 opmerkingen:
- Volgens mij wil de TS dat de werkbladen automatisch aangemaakt worden.
- De bedrijfsnamen staan in de B-kolom.
- Ik neem aan dat de werkbladen geen "bedrijf" icm bedrijfsnaam heten. (hier ging ik ook de mist in!)

Met vriendelijke groet,


Roncancio

\

Mooie complete oplossing Roncancio.

Dit was ook de laatste voor ik slapen ga.

Ben het met je eens, nadat ik het had gepost en overlas dacht ik meteen dat de code niet geheel compleet was.
Bladnaam heb ik zo maar gelaten als dat het was, en lijkt inderdaad overbodig.


Met vriendelijke groet,

Harry.

 

[Goudvis1]

Helemaal super ,mannen!
Dit is helemaal wat ik bedoel!
Ik zal hem op opgelost zetten.
Groet, Goudvis