Auteur Topic: Automatisch wegschrijven van blad1 naar blad2 (gelezen 3333 keer)

Bergop · « **Gepost op:** 12 juni 2006, 19:49:30 »

Heb een program lopen op mijn PC. Dat automatisch de gegevens opslaat naar een blad van Exel. Dit is beperkt tot 1000 rijen en daarna verschuift het telkens een rij en is de eerste verdwenen.

Nu is mijn vraag of ik de rijen niet atomatisch van het ene Exelblad1 naar een anderExelblad2 kan wegschrijven zodat ik op blad2 de eerste bijhoud tot meer dan >1000 en later zelfs eventueel in blad2 de oudere rijen kan verwijderen.

nb: de gevens van blad1 vanaf rij 2 wegschrijven daar de eerste rij een soort koptekst is.

mvg Bergop

ceasar · « **Reactie #1 Gepost op:** 13 juni 2006, 15:07:10 »

beste bergop,

bedoel je rijen: aantal lijnen in een bestand?
dan heb je er ongeveer 63.000
kolommen maar een zestigtal

je kan de rijen aanduiden als werkgebied (wordt blauw)
dan knippen, en dan plakken op je tweede blad

groeten
JC

Bergop · « **Reactie #2 Gepost op:** 13 juni 2006, 17:33:48 »

Dat zal vermoedelijk de enig oplossing zijn . Daar het bestand beveiligd is.
thx van de hulp.
mvg Bergop

eusebio · « **Reactie #3 Gepost op:** 13 juni 2006, 17:44:53 »

Schrijf de gegevens anders weg naar een ander Excel bestand vermits zulks ivm de beveiling mogelijk is.

Bergop · « **Reactie #4 Gepost op:** 13 juni 2006, 18:02:28 »

Ja maar hoe moet ik te werk gaan om zover te geraken.
Weet dat dat gaat maar weet niet hoe.

mvg Bergop

eusebio · « **Reactie #5 Gepost op:** 14 juni 2006, 09:42:11 »

Wat is er precies beveiligd:
- het openen van het bestand?
- werkbladen?
- de VBA Editor?

Bergop · « **Reactie #6 Gepost op:** 14 juni 2006, 15:49:43 »

Alles van het ganse document. Het minste dat ik veranderen kan ik enkel na afsluiten opslaan als copy.
mvg Bergop

eusebio · « **Reactie #7 Gepost op:** 16 juni 2006, 16:24:30 »

Maak eens 2 bestandjes (TEST en TEST2). Zet op Blad1 van TEST2 eens een aantal gegevens in de range A1001:H1001.
Beveilig dat werkblad en zet de volgende code in een gewone Module van TEST.
Kijk eens of het werkt en of je het principe van de code snapt.
Vervolgens kun je e.e.a. eens testen op je eigen bestand.

Code: [Selecteer]

Option Explicit

Sub Testing()
Dim LastRow As Long
    LastRow = Workbooks("TEST.XLS").Worksheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Row
    Workbooks("TEST2.XLS").Worksheets("Blad1").range("A1001:H1001").Copy _
        Destination:=Workbooks("TEST.XLS").Worksheets("Blad1").Cells(LastRow + 1, 1)
End Sub

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: Automatisch wegschrijven van blad1 naar blad2 (gelezen 3333 keer)

Bergop

Automatisch wegschrijven van blad1 naar blad2

ceasar

Re:Automatisch wegschrijven van blad1 naar blad2

Bergop

Re:Automatisch wegschrijven van blad1 naar blad2

eusebio

Re:Automatisch wegschrijven van blad1 naar blad2

Bergop

Re:Automatisch wegschrijven van blad1 naar blad2

eusebio

Re:Automatisch wegschrijven van blad1 naar blad2

Bergop

Re:Automatisch wegschrijven van blad1 naar blad2

eusebio

Re:Automatisch wegschrijven van blad1 naar blad2