Opslaan van gegevens!

[DZP]

Onderstaande heb ik een redelijk werkende macro ingesloten die alle groene cellen op een werkblad selecteert, verwijdert en daarn alle tussenliggende blanco cellen verwijdert waardoor de overige waardes dan weer aansluitend naar de bovenkant van een werkblad opschuift. Maar nu is mijn vraag de volgende.

Sub GroenWeg()
'
'GroenWeg Macro
'
    ActiveSheet.unprotect Password:="Schrijfmaarwat"
    Application.ScreenUpdating = False
    
'Groene cellen selecteren en inhoud wissen

    Dim zeker As Variant
    zeker = MsgBox("Weet je het zeker?", vbYesNo, "Zekerheidje")
    If zeker = vbNo Then Exit Sub

    Application.FindFormat.Interior.ColorIndex = 4 

[COLOR="Red"]HIER MOET DUS NOG IETS TUSSEN ALS COPY, PASTE  EN SAVE AS VOLGENS MIJ! [/COLOR]

    Cells.Replace what:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False
'lege cellen zoeken in kolom A en die regels vervolgens verwijderen
'zodat alle tekst weer bovenaan staat
    On Error GoTo t    ' Turn off error trapping.
    
    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
    
t:  Range("A1").Select
    ActiveSheet.Protect Password:="Schrijfmaarwat"
    Application.ScreenUpdating = True

End Sub

Is het mogelijk om de groene cellen die eigenlijk verwijdert worden op te slaan in een ander excel bestand in de zelfde map waar het orgineel ook in staat zodat de gegevens dus behouden blijven! En zo, ja. Hoe kan ik dat aanpassen en oplossen? Er moet dan volgens mij nog iets bij de rode zin staan!

 

[WinteE]

Voer de door jou gewenste handelingen eens uit met de macro-recorder aan. Dit levert je de gewenste VBA code.

Om de verwijzing naar de bestandslocatie variabel te maken gebruik je Application.Path

 

[DZP]

Dank voor je reactie,

Helaas, diverse malen geprobeert maar dat gaat bij mij niet lukken!
Ook heb ik tig pagina's doorgelezen over opslaan maar niets waarvan ik dacht
dat het mij helpen kon. (Wel weer dingen erbij geleerd).

Wat ik graag wil is een duw in de goede richting.

Het is de bedoeling dat:

Een variabel aantal rijen uit een excel bestand wordt gekopieerd en dan in een ander excel bestand wordt opgeslagen onder de daar al aanwezige rijen van de vorige keer.

En als het mogelijk is moet de macro dan weer doorgaan waar hij daarvoor gebleven was.

Zie de rode zin in de aanhef van dit topic.

Misschien vraag ik teveel maar niet geschoten is altijd mis