Kopieren bij bepaalde waarde in cel

[Roeijoen]

Hallo Forumleden,

ik ben opzoek naar een macro die bij het vinden van bepaalde waarde, in mijn geval 1 in Cel C8:C209 en dan moet hij in de zelfde rij F t/m J kopiëren.
voorbeeldje wanneer in cel C9 een 1 staat moet de macro F9:J9 kopiëren naar Tab toebehorenlijst.

hopelijk weten jullie een oplossing

groet Jeroen

 

[Roncancio]

Kan het zijn dat er meerdere "1" in het tabblad staan?
Moet de macro starten dmv een knop of zodra 1 wordt ingevuld in de C-kolom?

Een voorbeeldbestand heeft ook wel z'n voordelen..

Met vriendelijke groet,


Roncancio

 

[Roeijoen]

Staan meerdere 1en in de kolom C

Bekijk bijlage Voorbeeld.xlsx

hierbij het bestandje

 

[Roncancio]

Sub Overzetten()
Blad1.Range("A7:J7").AutoFilter 3, 1
Blad1.Range("A8:" & Cells.SpecialCells(11).Address).Copy Blad2.Range("A1")
Blad1.ShowAllData
End Sub

Met vriendelijke groet,


Roncancio

 

[ExcelAmateur]

Jeroen,

Als je tevreden ben met het antwoord, zet je de vraag dan zowel hier als daar als opgelost?

 

[Roeijoen]

nee ben helaas niet tevreden. ik ben hem nu aan het verwerken. alleen hij doet niet wat ie moet doen.

Ik ben namelijk opzoek naar een macro wanneer in cel C9 een 1 staat moet de macro F9:J9 kopiëren naar Tab toebehorenlijst.

maar nu krijg ik ook een met de 0 erbij.

 

[Roeijoen]

Ik heb hem door, heb hem iets veranderd.

Bedankt voor de hulp

Sub Overzetten()
Sheets("Toebehoren").Range("A7:C7").AutoFilter 3, 1
Sheets("Toebehoren").Range("F8:" & Cells.SpecialCells(11).Address).Copy Sheets("Toebehorenlijst").Range("A8")
Sheets("Toebehoren").ShowAllData
Range("A7:C7").AutoFilter

End Sub

 

[Roncancio]

Ik heb de code aangepast.
Het is het handigste om 1 keer de gegevens over te zetten ipv regel voor regel.

Sub overzetten()
Blad1.Range("A7:J7").AutoFilter 3, 1
Blad1.Range("F8:" & Blad1.Range("J8").End(xlDown).Address).Copy Blad2.Range("A1")
End Sub

Met vriendelijke groet,


Roncancio

 

[Roeijoen]

Roncancio,

Het gekke is dat dit alleen maar werkt tot J8 Maar vul ik hem aan tot AB8 dan doet ie het niet weet u hoe dat komt

Groet Jeroen

 

[Roncancio]

Dat is niet zo raar aangezien het voorbeeldbestand ook maar tot de J-kolom ging.
Bovendien stond in de vraag dat de kolom F t/m J moest worden overgezet.

Onderstaande code filtert het gehele bereik ongeacht of de kolommen tot J, AB, of een ander kolom loopt.
En zet de kolommen F t/m J over naar het andere werkblad.

Sub overzetten()
Blad1.Range("7:7").AutoFilter 3, 1
Blad1.Range("F8:" & Blad1.Range("J8").End(xlDown).Address).Copy Blad2.Range("A1")
End Sub

De volgende code filtert en kopieert het gehele bereik.

Sub overzetten()
Blad1.Range("7:7").AutoFilter 3, 1
Blad1.Range("F8:" & Cells.SpecialCells(11).Address).Copy Blad2.Range("A1")
End Sub

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Of

Sub overzetten()
    With Blad1
        .Range("7:7").AutoFilter 3, 1
        .AutoFilter.Range.Offset(, 5).SpecialCells(12).Copy Blad2.Range("A1")
    End With
End Sub

Dit omdat SpecialCells(11) m.i. ongewild een goter bereik kan aanduiden dan gewenst