Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 931
Beste mensen,
Hieronder staat een code waar ik in kolom 4 een tekst plaats en deze automatich naar de volgende cel gaat, dat is ook prima, maar nu wil ik dat deze eerst de inhoud van de cel in kolom 4 selecteert en kopieert zodat ik in een ander programma via cntr-v de inhoud kan plakken.
Vervolgens wil ik vanuit kolom 10 nadat ik wel of geen tekst heb gevuld via een enter naar kolom 13, volgens onderstaande code moet ik eerst wat vullen anders gaat deze niet verder.
Een antwoord zie ik met veel belangstelling tegemoet.
Alvast bedankt.
Robert
Hieronder staat een code waar ik in kolom 4 een tekst plaats en deze automatich naar de volgende cel gaat, dat is ook prima, maar nu wil ik dat deze eerst de inhoud van de cel in kolom 4 selecteert en kopieert zodat ik in een ander programma via cntr-v de inhoud kan plakken.
Code:
If .Column = 4 And Not IsEmpty(Target) And IsEmpty(.Offset(, 1)) Then
Application.Goto .Offset(, 1)
Application.SendKeys ("L0")
End IfVervolgens wil ik vanuit kolom 10 nadat ik wel of geen tekst heb gevuld via een enter naar kolom 13, volgens onderstaande code moet ik eerst wat vullen anders gaat deze niet verder.
Code:
If .Column = 10 And IsEmpty(Target) Then Application.Goto .Offset(, 3)Een antwoord zie ik met veel belangstelling tegemoet.
Alvast bedankt.
Robert
