Aanpassing macro

[verluc]

Heb volgende macro gemaakt met de macrorecorder :

Sub Macro1()
    Range("G4").Select
    Selection.EntireColumn.Insert
    Range("F4:F70").Select
    Selection.Copy
    Range("G4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G4").Select
End Sub

Probleem is dat na uitvoering van deze macro de laatste kolom steeds verwijderd word
Het is de bedoeling dat er steeds een kolom word bijgevoegd en er geen verwijderd word.
Enig idee welke aanpassing hiervoor nodig is ?

 

[edmoor]

De laatste kolom is kolom XFD.
Daarnaast gaat het in je macro alleen om cellen en niet om hele kolommen, anders dan er eentje wordt toegevoegd.
Geen idee dus wat je bedoelt.
Plaats een voorbeeld document met extra uitleg.

 

[verluc]

Dagelijks doe ik een download van beurskoersen.
Deze komen terecht in kolom F
Na deze download word er een kolom bijgevoegd, kolom G , en worden de koersen van kolom F gekopieerd
Dit gebeurd dus dagelijks zodat alle kolommen dagelijks éé naar rechts opschuiven.
Hopelijk is dit meer duidelijk

 

[jkpieterse]

Verander je macro naar:

Sub KopieerLaatsteNaarRechts()
    Range("F4:F70").Copy
    Cells(4, ActiveSheet.Columns.Count).End(xlToLeft).Offset(, 1).PasteSpecial _
            Paste:=xlPasteValues, _
            Operation:=xlNone, _
            SkipBlanks:=False, _
            Transpose:=False
End Sub

 

[HSV]

Of:

Sub KopieerLaatsteNaarRechts()
   Cells(4, Columns.Count).End(xlToLeft).Offset(, 1).Resize(67) = Range("F4:F70").Value
End Sub

 

[VenA]

Mij is het totaal niet duidelijk.
De laatste 2 suggesties plakken de nieuwe data aan de rechterkant van jouw gegevens wat als resultaat 27-06, 24-6, 25-06, 26-06, 27-06 zal opleveren. Terwijl jij volgens mij 27-06, 27-06, 26-06, 25-06, 24-06 voor ogen hebt. Ik sluit mij dan maar aan bij #2.

Nb. Waarom vul je de gegevens niet gewoon aan in de de kolommen A t/m F zodat je een tabel krijgt waar je weer van alles mee kan doen.

 

[HSV]

Iedere keer in G.

Als je handmatig een kolom invoegt.

Sub KopieerLaatsteNaarRechts()
  range("G4:G70") = Range("F4:F70").Value
End Sub

automatisch nieuwe kolom.

Sub KopieerLaatsteNaarRechts()
  With Range("F4:F70")
   .Offset(, 1).EntireColumn.Insert
   .Offset(, 1) = .Value
  End With
End Sub

 

[VenA]

.Columns.Offset(, 1).Insert

 

[HSV]

Lijkt me een slechte aanpassing.
De eerste 3 regels en de rest onder rij 70 blijft staan.

 

[verluc]

Dank allen die aan deze oplossing hebben meegewerkt.
Kan hier verder mee.
Wat een fantastisch forum !!!!

 

[glda19]

@verluc
Als ik mag weten waar je de beurskoersen download heb ook interesse daarin.

 

[verluc]

Van welke beurs bedoel je : Nederland, Belgie, Amerika enz