Automatisch nieuw tabblad met selectie van gegevens

[malawi]

Hallo,

Ik heb een bestand welke ik al eerder heb gemaakt met behulp van jullie leden. Dit werk prima. een testbestand heb ik bijgevoegd.
Nu maakt de macro welke ik activeer met een button een nieuw bestand aan met de gekozen regels(data)
In plaats van dat het een nieuw bestand aanmaakt, wil ik graag dat het alleen een nieuw tabblad aanmaakt met de juiste naam en gegevens.
Kan iemand mij daar mee helpen.

tevens zou ik graag de foutmelding eruit willen hebben als de de handeling afbreek door het te annuleren.

alvast bedankt

Ewald

 

[VenA]

Verwijder de doelloze lege rij en gebruik een filter.

 

[malawi]

Dit is een kleine selectie uit veel data. Het is juiste de bedoeling om een separaat werkblad te verkrijgen met alleen de juiste data om deze verder te verwerken.

Ewald

 

[JEC.]

Wat Vena zegt, filter je data en druk vervolgens op de knop met deze macro erachter. De naam kun je naderhand zelf even definiëren.

Sub j_v()
With ThisWorkbook
 .Sheets.Add(, Sheets(Sheets.Count)).Name = Sheets.Count + 1
 .Sheets("Totaal_Overzicht").Cells(1).CurrentRegion.Copy .Sheets(Sheets.Count).Range("A1")
End With
End Sub

 

[VenA]

Ik heb een bestand welke ik al eerder heb gemaakt met behulp van jullie leden.

Heb je hier nog een linkje van?

 

[malawi]

Heb je hier nog een linkje van?

Ik kan deze niet terug vinden. Is al lang geleden. En heb het zekers niet zelf geschreven. Wel samengesteld uit meerdere macro's en aangepast. betreffende bereik en benamingen.

Ewald

 

[malawi]

#4

Sub j_v()
With ThisWorkbook
 .Sheets.Add(, Sheets(Sheets.Count)).Name = Sheets.Count + 1
 .Sheets("Totaal_Overzicht").Cells(1).CurrentRegion.Copy .Sheets(Sheets.Count).Range("A1")
End With
End Sub

Hierbij neemt het allen de 1e regel over, en niet het geselecteerde uit het filter

Ewald

 

[emields]

Waarschijnlijk bedoel je zoiets? Op voorwaarde dat het blad nog niet bestaat anders loet er nog een stukje code bij.

en op voorwaarde dat je rij 2 verwijderd of er een onnozele tekst in zet

 

[malawi]

emields

ja dit is goed. hier kan ik mee verder. Bedankt.


Ewald