Weazl
Gebruiker
- Lid geworden
- 28 apr 2009
- Berichten
- 39
Geachte lezer,
Ik heb een excel lijst met 1000 oefeningen.
Nu wil ik voor mensen een speciale secelectie maken en deze naar een ander werkblad laten copyeren zodat het overzichtelijk blijft.
In kolom A staan selectievakjes met op de achtergrond WAAR/ONWAAR gekoppeld aan de A... cel.
In kolommen BCDEFGH staan andere opties en uiteindelijk komt er in kolom J de daadwerkelijke tekst voor de client die gecopieerd moet worden (als deze is geselecteerd naar een ander werkblad)
Dus ik vink het selctievakje in A2 aan...... In A2 komt nu ook WAAR te staan. ik vul de rest van mijn parameters in bij BCDEFGH en in J2 komt de daadwerkelijke tekst welk gecopieerd moet worden naar Tabblad: Klantoefeningen. En als ik ook A3, A115 en A1000 selecteer moeten deze ook worden gecopieerd naar Klantoefeningen.
Is dit handig om met VBA op te lossen of zijn er nog andere manieren?
Met VBA kwam ik in dit forum wel het volgende tegen, maar weet het verder niet in te vullen zodat ut ook daadwerkelijk werkt.....
If TypeName(Selection) = "Range" Then
Selection.Copy Destination:=Worksheets("Blad2").Range("A65536").End(xlUp).Offset(1)
End If
Gaarne jullie hulp.
gr Sven
Ik heb een excel lijst met 1000 oefeningen.
Nu wil ik voor mensen een speciale secelectie maken en deze naar een ander werkblad laten copyeren zodat het overzichtelijk blijft.
In kolom A staan selectievakjes met op de achtergrond WAAR/ONWAAR gekoppeld aan de A... cel.
In kolommen BCDEFGH staan andere opties en uiteindelijk komt er in kolom J de daadwerkelijke tekst voor de client die gecopieerd moet worden (als deze is geselecteerd naar een ander werkblad)
Dus ik vink het selctievakje in A2 aan...... In A2 komt nu ook WAAR te staan. ik vul de rest van mijn parameters in bij BCDEFGH en in J2 komt de daadwerkelijke tekst welk gecopieerd moet worden naar Tabblad: Klantoefeningen. En als ik ook A3, A115 en A1000 selecteer moeten deze ook worden gecopieerd naar Klantoefeningen.
Is dit handig om met VBA op te lossen of zijn er nog andere manieren?
Met VBA kwam ik in dit forum wel het volgende tegen, maar weet het verder niet in te vullen zodat ut ook daadwerkelijk werkt.....
If TypeName(Selection) = "Range" Then
Selection.Copy Destination:=Worksheets("Blad2").Range("A65536").End(xlUp).Offset(1)
End If
Gaarne jullie hulp.
gr Sven
