Nog een klein probleempje..

[jtvd]

Hallo

Ik wou graag in mijn rekening overzicht nog een aanpassing maken..

Ik doe er het bestandje bij..

Wat ik graag zou willen..
Als ik op de command knop druk zet deze de getallen in de 3de kollom om naar euro's
Voor het inporteren van mijn bankgegevens zijn er nog een paar kolommen die ik van te voren weg moet laten.
Dit omdat ik ze niet nodig heb..
Maar om ze weg telaten kan ik me niet vergissen ander komt het niet overeen met mijn vooraf geopende excelbestand.

Nou is mijn vraag is het mogelijk dat onder de zelfde command knop eerst een paar kolommen worden verwijderd.
Eigenlijk eerst de kolommen verwijderen en dan pas de verdere omzetten van kolom 3
Het gaat om de kolommen A, B, H, J, K, L, M en N


Kan dit?

 

[HSV]

Lukt het hiermee?

Even testen op een testbestandje.

Private Sub CommandButton1_Click()
With Sheets("Blad2")
.Columns(10).Resize(, 5).Delete
.Columns(8).Delete
.Columns(1).Resize(, 2).Delete
.Columns(3).NumberFormat = "€ #,##0.00"
End With
End Sub

 

[jtvd]

Nee ik krijg een foutmelding op deze...

Het mag ook achteraf maar dan zou de commando onder command1 van 3 naar 5 gezet moeten worden..
Hier gaat het namelijk mis als de gegevens er in staan..

 

[HSV]

En op welke regel krijg je een foutmelding.

Bij mij werkt het feilloos.