Auteur Topic: Energie kosten berekenen per maand verbruik (gelezen 26892 keer)

SoftAid · « **Reactie #75 Gepost op:** 17 juni 2023, 10:47:27 »

Als je de download steeds naar het einde van de rij sheets wil kopiëren dan kan je in plaats van:

Sheets("Fluvius Gas").Copy After:=Workbooks("Nutsvoorzieningen.xlsm")._
Sheets(6)

dit gebruiken:

Code: [Selecteer]

Sheets("Fluvius Gas").Copy After:=Workbooks("Nutsvoorzieningen.xlsm")._
Sheets(Workbooks("Nutsvoorzieningen.xlsm").Sheets.Count)

Anders kan je werkbladen overschrijven (denk ik....)

SoftAid

Montagnard · « **Reactie #76 Gepost op:** 17 juni 2023, 10:58:38 »

dankuwel SoftAid

...

ik heb eens het bestand van de gas bijgevoegd , wat ik eigenlijk wil is :
1) de kolommen B tot en Met I en dan K tot en met L verwijderd worden : ik heb daarvoor code gevonden maar het lukt NIET , ik heb de code eens bijgevoegd
2) de rijen met de waarde "m³" verwijderd worden , dit lukt me ook NIET

dan kan ik heel makkelijk de verbruiken op het werkblad "Dagverbruik" invullen....
Mvg,
Arnold.

Code: [Selecteer]

Sub Gas_import()
    Windows("Fluvius Gas.csv").Activate
    Sheets("Fluvius Gas").Select
    Sheets("Fluvius Gas").Copy After:=Workbooks("Nutsvoorzieningen.xlsm").Sheets(Workbooks("Nutsvoorzieningen.xlsm").Sheets.Count)
Sheets (Workbooks("Nutsvoorzieningen.xlsm").Sheets.Count)

Rem de kolommen B:H en dan D:G zouden moeten verwijderd worden **********************************

Workbooks("Nutsvoorzieningen.xlsm").Sheets("Fluvius Gas").Select
    Columns("A:A").ColumnWidth = 14
    Columns("B:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:G").Select
    Selection.Delete Shift:=xlToLeft
    Range("I2").Select
End Sub

MollyVH · « **Reactie #77 Gepost op:** 17 juni 2023, 11:16:14 »

Hallo Arnold,

Ik had er gisteren ook even naar gekeken maar werd toen dringend weggeroepen, en daarna was er al een en ander in gang gezet. Ik was van plan om een heel andere aanpak voor te stellen maar als je een naar tevredenheid werkende manier hebt, zoveel te beter.
Een kleine aanpassing wil ik wel nog suggereren: een csv-bestand is niets anders dan een tekstbestand, dus als je dat met Excel opent heb je sowieso maar één werkblad. Dat ook hernoemen kan je dus achterwege laten, je 'select'-regel dus ook, en de kopieer-instructie kan beginnen met Sheets(1), dat beperkt het hernoemen tot enkel de bestandsnaam.

Citaat

Anders kan je werkbladen overschrijven (denk ik....)

Nee hoor, dat werkblad wordt dan wel tussen 2 andere gezet (gewoon even voor de duidelijkheid), al zou ik het waarschijnlijk zelf ook achteraan zetten (stel dat er in een latere opruimfase geen 6 werkbladen meer zijn, dan ga je wel een fout krijgen)

Met je code om kolommen te verwijderen is niets mis (die moet je overigens ook niet eerst selecteren). Als deleten niet werkt is mijn (voorlopig enige) gok dat die code misschien onder een werkblad staat i.p.v. in een module?

Laat maar weten als dit de oplossing niet is, hé.

Mvg,
Molly

Montagnard · « **Reactie #78 Gepost op:** 17 juni 2023, 11:23:15 »

Dag Molly,
voor zover ik kan zien zou de code wel degelijk in een module staan ?
grtjs,
Arnold.

MollyVH · « **Reactie #79 Gepost op:** 17 juni 2023, 11:27:36 »

Oei, een streep door mijn rekening

Ga je dan eens met F8 door die code? Misschien brengt dat licht in de duisternis...

Montagnard · « **Reactie #80 Gepost op:** 17 juni 2023, 11:41:01 »

het gaat me allemaal te vlug

....
ik heb zowel eens mijn basis bestand "nutsvoorzieningen" bijgesloten alsook het csv bestand "Fluvius Gas" waarbij ik graag zou willen :
1) "Fluvius Gas" importeren in "nutsvoorzieningen" , op het einde als nieuw werkblad , de "command button" staat op werkblad "Dagverbruik"
2) de kolommen B-H en K-L verwijderen *

Mvg,
Arnold.

* modbreak: B-I aangepast naar B-H

MollyVH · « **Reactie #81 Gepost op:** 17 juni 2023, 11:49:56 »

Ha, dat zou kunnen helpen (ik durfde het bijna niet vragen

)
Eerst even koffie zetten, daarna zal ik meteens eens kijken!

Montagnard · « **Reactie #82 Gepost op:** 17 juni 2023, 11:51:19 »

Citaat van: MollyVH op 17 juni 2023, 11:49:56

Ha, dat zou kunnen helpen (ik durfde het bijna niet vragen )
Eerst even koffie zetten, daarna zal ik meteens eens kijken!

super !

...U niet blind staren op de parameters , aangezien ik na een maand zal weten hoeveel een KWh exact zal kosten met alles inbegrepen ( de maand afrekening gedeeld door het aantal verbruikte KWh ) zal ik maar één parameter meer nodig hebben....
grtjs,
Arnold

SoftAid · « **Reactie #83 Gepost op:** 17 juni 2023, 12:08:39 »

Arnold,

dit werkt in een module:

Code: [Selecteer]

Sub CommandButton1_Click()

    Windows("Fluvius Gas.csv").Activate
    Sheets("Fluvius Gas").Copy After:=Workbooks("Nutsvoorzieningen.xlsm").Sheets(Workbooks("Nutsvoorzieningen.xlsm").Sheets.Count)
    Workbooks("Nutsvoorzieningen.xlsm").Sheets("Fluvius Gas").Select
    Columns("A:A").ColumnWidth = 14
    Columns("B:H").Delete
    Columns("D:G").Delete
   
End Sub

SoftAid

Montagnard · « **Reactie #84 Gepost op:** 17 juni 2023, 12:25:48 »

ppfft momenteel draait alles hier in de soep , nu ben ik plots al mijn kolommen kwijt op het werkblad "Dagverbruik"...
ik ga nu eerst eten en dan op een rijtje zetten....ALLE code verwijderen en opnieuw beginnen..
Mvg,

Pagadder · « **Reactie #85 Gepost op:** 17 juni 2023, 12:32:43 »

Code komt onder het werkblad Dagverbruik.
De module mag je verwijderen.

Code: [Selecteer]

Private Sub CommandButton1_Click()
Windows("Fluvius Gas.csv").Activate
Sheets("Fluvius Gas").Copy After:=Workbooks("Nutsvoorzieningen.xlsm").Sheets(Workbooks("Nutsvoorzieningen.xlsm").Sheets.Count)
    With Workbooks("Nutsvoorzieningen.xlsm").Sheets("Fluvius Gas")
    .Columns("A:A").ColumnWidth = 14
    .Range("B:I,K:L").Delete Shift:=xlToLeft
End With
End Sub

SoftAid · « **Reactie #86 Gepost op:** 17 juni 2023, 12:43:58 »

Hallo Pagadder,

in een sheet kan natuurlijk ook, ik heb de gewoonte code (als het kan) in een module te zetten.

Citaat van: Pagadder op 17 juni 2023, 12:32:43

Code: [Selecteer]
.Range("B:I,K:L").Delete Shift:=xlToLeft

Ik denk (nog steeds

) dat het:

Code: [Selecteer]

Range("B:H,K:L").Delete Shift:=xlToLeft
moet worden. Anders is de kolom (I):Volume weg...

SoftAid

Pagadder · « **Reactie #87 Gepost op:** 17 juni 2023, 12:54:39 »

Citaat

Range("B:H,K:L").Delete Shift:=xlToLeft

idd verkeerd gelezen

Citaat

in een sheet kan natuurlijk ook, ik heb de gewoonte code (als het kan) in een module te zetten.

TS

maakt gebruik van een activeX knop in zijn blad Dagverbruik, de code Private Sub CommandButton1_Click() staat in het werkblad,dit gebeurd automatisch als je een activeX knop aanmaakt.

MollyVH · « **Reactie #88 Gepost op:** 17 juni 2023, 13:04:39 »

Oei, tijdens mijn koffieverbruik is weer een en ander gebeurd

Ik had ondertussen ook wat gedaan zonder het forum te bekijken, dus post in bijlage toch maar even mijn werkzaamheden.

Groetjes,
Molly

Edit: even de voorgaande posts doorgenomen. Er stond inderdaad ook nog wat code onder het werkblad (in mijn bijlage in commentaar gezet) met ActiveX-opdrachtknop. Die is vervangen door een 'reguliere' opdrachtknop, gekoppeld aan een ingekorte Sub in een module.
Waar aan voorbijgegaan werd is het feit dat het csv-bestand misschien nog niet geopend was waardoor de eerste instructie al meteen een fout kon geven. Mijn uitgangspunt is dat het niet open staat (waarom zou het ook als je automatiseert...)

Een andere visie (mijn favoriete) zou ertoe kunnen leiden dat het csv-bestand helemaal niet in Excel wordt geopend maar als tekst wordt ingelezen. De volgende vraag zou dan moeten of minstens kunnen zijn of de gegevens wel op een apart werkblad moeten toegevoegd worden (zoals nu op de planning staat) dan wel meteen worden verwerkt.
Je ziet het, ik gooi graag al eens een klein visje uit

MollyVH · « **Reactie #89 Gepost op:** 17 juni 2023, 13:33:31 »

Gevolgd door een versie met nog een héél kleine aanpassing voor de juiste weergave van 'm³' in de kolom 'Eenheid'.

Mvg,
Molly

Help!

Menu

Hulp bij posten

Zoeken

Recente topics