fantastische sheet gemaakt, maar VBA laat mijn "header" niet met rust...

[Silkin]

Wie kan me helpen om de VBA macro in de bijgevoegde sheet bij te stellen?

Ik zou graag willen dat deze macro mijn tabblad TWD de bovenste twee regels met rust laat. Ik wil daar nog een regel (of meer) boven in kunnen voegen, maar met de macro uitgevoerd is die toegevoegde regel nu steeds weer weg..

Thanks,

Bertje

 

[edmoor]

Zo waarschijnlijk:

For R = [COLOR="#FF0000"]3[/COLOR] To UBound(DATA)

 

[Silkin]

Nee helaas dat is m niet.....
Nog andere Ideen???

 

[snb]

1. het gebruik van samengevoegde cellen kun je beter nalaten.
2. de eerste rij lijkt me overbodig gezien de inhoud van rij 2.
3. regels voeg je 'onderaan' toe, niet 'bovenaan'.

 

[Silkin]

Ik wilde graag dat de sheet er zo uit bleef zien.... zie bijlage
Daarvoor heb ik de bovenste drie regels ongewijzigd nodig...

Thanks

 

[SjonR]

Sheets("TWD").Cells(1, 1).Resize(UBound(TWD, 1), UBound(TWD, 2)) = TWD

hier geef je toch zelf op dat je vanaf rij 1 wil vullen?

 

[Silkin]

Ok,

Maar ik heb er de ballen verstand van, jullie hebben deze macro voor mij gemaakt.. .

Dus wat moet ik veranderen? in welke regels?

Dan beloof ik dat ik binnekort een beginnescursus VBA zal doen....

Thanks,

Bert.

 

[SjonR]

dan zou het makkelijker zijn om in dat draadje verder te gaan in plaats van een nieuwe vraag volgens mij. Dan bereik je de maker van de code en die lost het dan vaak het best op.

 

[sylvester-ponte]

zo iets? je kan in TWD kop rijen toevoegen en eventueel een zij kolom toe voegen of verwijderen.

 

[Silkin]

Sylvester jij bent echt de beste !!!!!! Hoe je t doet, ik snap er geen *****n van, maar dit is echt precies wat ik wilde!!!

Thanks man!!! Nu ben ik echt super blij!