Macro woord toevoegen aan andere kolom

[michielaliasv]

Heren, Dames,

Is het mogelijk om kolom B long of short toe te voegen aan kolom A. naar voorbeeld in cel A2. Ik hoop van u te horen, hartelijke groet,

Michiel

 

[Cobbe]

Met behulp van een hulpkolom is dat mogelijk:

=A3&B3 en doortrekken zover als nodig.

Dan verwijder je kolom A en klaar is.......

Cobbe

 

[Thoralf]

Hallo Cobbe,

Je vergeet nog één tussenstap:
Selecteer kolom C en plak die vervolgens speciaal: waardes.
Doe je dat niet dan krijg je een foutboodschap; #WAARDE

Groeten
Thoralf

 

[michielaliasv]

*Heren,

Ik vermoed dat de vraag niet geheel duidelijk is. Ik wil via een macro dat short achter AAREAL Bank AG komt te staan.


Aareal Bank AG SHORT

Aareal Bank AG SHORT SHORT

 

[michielaliasv]

*Heren,

Ik vermoed dat de vraag niet geheel duidelijk is. Ik wil via een macro dat short achter AAREAL Bank AG komt te staan.




Aareal Bank AG -------------------------------------------------------- SHORT

Aareal Bank AG SHORT -------------------------------------------------------- SHORT

 

[Warme bakkertje]

Wil je kolom B behouden wis dan de laatste regel

Sub verzetten()
For Each c In [A2:A100]
c.Value = c.Value & c.Offset(0, 1).Value
c.WrapText = False
Next c
Columns(1).EntireColumn.AutoFit
Columns(2).EntireColumn.Delete
End Sub

Mvg

Rudi

 

[michielaliasv]

Deze werkt fantastisch, dank daarvoor. Echter ik wil i.p.v kolom A in kolom b de uitkomst en ipv en haal de data ipv B uit kolom 14 waar pas ik dat aan?

 

[Warme bakkertje]

Michiel, bij deze

Sub verzetten()
Application.ScreenUpdating = False
For Each c In [B2:B100]
c.Value = c.Offset(0, -1).Value & c.Offset(0, 12).Value
c.WrapText = False
Next c
Columns(2).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

Mvg

Rudi

 

[snb]

alternatief

Sub verzetten()
  sq=[A2:M100]
  for j=1 to ubound(sq)
    sq(j,2)=sq(j,1) & sq(j,13)  
  next
  [A2:M100]=sq
End Sub

 

[Warme bakkertje]

snb, altijd een plezier jouw codes te zien ,maar toch een kleine aanpassing naar analogie van het gevraagde

Sub verzetten1()
  sq = [A2:N100]
  For j = 1 To UBound(sq)
    sq(j, 2) = sq(j, 1) & sq(j, 14)
  Next
  [A2:N100] = sq
End Sub

Mvg

Rudi

 

[snb]

@mr. hotbaker
Dank voor de correctie, ik had blijkbaar te weinig vingers.