vba kolom 11 kopieren naar 10 en wat in kolom 10 staat niet wijzigen

[jdrmer]

Goededag dames en heren,
wiel wil kan mij helpen met zie ook bijlage.
Ik heb een vba die als men deze uitvoerd door op de knop de klikken wordt alles in kolom K gekopieerd en zou naar kolom J geplakt moeten worden. In de VBA met 1 karakter werkt dat, echter moeten er meerdere karakter worden geplakt "A" en "V" en "OD" en hier blijf ik op hangen.
Wat in kolom J staat bv X mag niet wordt overschreven.
Ik heb geprobeerd "A", "V", "OD" of "A" or "V" or "OD" of "A" and "V" and "OD", maar resultaat.
mvg Jan

 

[VenA]

het is mij niet geheel duidelijk.

Mogelijk zoiets?

Sub VenA()
For Each cl In Columns(11).SpecialCells(2).Offset(, -1)
    cl.Value = IIf(cl = "", cl.Offset(, 1), cl)
Next cl
End Sub

 

[jdrmer]

Dankjewel VenA, dit werkt perfect.
Nog een vraag kan je aangeven hoe deze ook vanaf rij 11 gaat beginnen of anders een range rij 11 t/m 380?

 

[VenA]

gewoon de range opgeven?

 

[jdrmer]

Het onderstaande met range werkt niet wat doe ik verkeerd?
Sub VenA()
Range("k11:k300").Select
For Each cl In Columns(11).SpecialCells(3).Offset(, -1)
cl.Value = IIf(cl = "", cl.Offset(, 1), cl)
Next cl
End Sub

 

[VenA]

Een range().select selecteert alleen de range vervolgens doe je er niets mee. Specialcells(3) bestaat niet. Je maakt geen gebruik van codetags

For Each cl In Range("k11:k300").specialcells(2).Offset(, -1)

Met zoeken special <Ctrl> + g is dit ook zonder VBA vrij eenvoudig op te lossen.

 

[jdrmer]

vba kolom 11 kopieren naar 10 en wat in kolom 10 staat niet wijzigen Uw bericht

Wil je nog 'n keer kijken naar de vba krijg het niet werkend.
De bedoeling is als er in kolom K wat bijgekomen is en er wordt op de knop geklikt dan moet alles van K naar J worden geplakt en wat in J is ingevoerd niet verwijderen.
En dit alles vanaf rij 11 t/m 400.
Ik had vergeten te zeggen dat kolom K een verwijzing is naar een andere kolom.

 

[VenA]

Bedenk eerst even wat je wilt. Het is allemaal wel te ondervangen maar doe eerst zelf eens wat. Het bereik wijzigt steeds. Dit is dus variabel? Ipv constanten staan er nu formules. Bekijk even deze pagina https://msdn.microsoft.com/en-us/library/office/ff196157.aspx