Macro blad indeling

[HMDH]

Beste forumleden,

kan iemand voor mij een macro maken o.i.d. zodat ik na het openen van een Excel doc. de onderstaande wijzigingen kan doorvoeren zonder dat ik een reeks van handelingen moet verrichten?
Ik heb een Private sub maar die moet ik dan steeds in het nieuwe werkblad zetten.
Ik zou als het mogelijk is een macro o.i.d hebben zodat met een combinatie knop bv; ctrl+D alle onderstaande handelingen worden uitgevoerd.
Ieder nieuw geopend werkblad moet dan voorzien worden van deze toepassing.
Mogelijk iets in de vorm van een Sjabloon.
Misschien moet de Private sub wel worden aangepast met onderstaande wijzigingen. Of dit mogelijk is weet ik niet.
Graag jullie hulp.

Ik heb de Private sub even uitgezet door een ['] voor iedere regel te zetten.

Dus de onderstaande teksten van het werkblad moeten worden vervangen.

AI_1_Vloertemp_1.mean vervangen door; Vloertemp 1 °C
AI_2_Vloertemp_2.mean vervangen door; Vloertemp 2 °C
AI_3_Stralingspaneel_temp.mean vervangen door; Stralingspaneel temp °C
AI_4_Stralingstemp_1.mean vervangen door; Stralingstemp 1 °C
AI_5_Stralingstemp_2.mean vervangen door; Stralingstemp 2 °C
AI_6_Ruimte_temp.mean vervangen door; Ruimte temp °C
AI_7_Ruimte_Vocht.mean vervangen door; Luchtvochtigheid %H
AI_8_Buitentemp.mean vervangen door; Buiten temp °C

de [.] (punt) vervangen door de [,] (komma)
de [°C] vervangen door [ ] (leeg)
de [%H] vervangen door [ ] (leeg)

 

[peter59]

Hallo,

Misschien zoiets?
Dit d.m.v. power query dus geen macro's.
Dus gegevens uploaden en dan alles verversen.

 

[snb]

VBA:

Sub M_snb()
   c00 = "J:\download\Vraag aan Forum.csv"
   c01 = "Tijdstip;Vloertemp 1 °C;Vloertemp 2 °C;Stralingspaneel °C;Stralinstemp 1 °C;Stralinstemp 2 °C;Ruimte temp °C;Luchtvochtigheid %H;Buitentemp °C" & vbCrLf
   
   With CreateObject("scripting.filesystemobject")
     .createtextfile(c00).write c01 & Join(Filter(Split(Replace(Replace(Replace(.opentextfile(c00).readall, ".", ","), " " & Chr(194) & Chr(176) & "C", ""), " %H", ""), vbCrLf), "_", 0), vbCrLf)
   End With
End Sub

 

[HMDH]

@peter59
hallo Peter 59

Ik heb totaal geen ervaring met Power query
Zijn dit stappen welke ik in Excel kan uitvoeren?
Zoja, kan jij mij dan dit uitleggen a.u.b.

Groet, HarryM

 

[HMDH]

@snb
Bedankt voor de code zover.
Ik mis nog wat kennis om de door jou gemaakte code te gebruiken!
Wel heb ik het pad aangepast naar mijn Desktop maar de werking blijft uit.
Wat mis ik en wat doe ik verkeerd?
Het door mij gebruikte document slaat de Module met VBA code niet op.
Ieder nieuw document van dit format wordt steeds opnieuw gemaakt en mis dus altijd de Module waar de VBA code staat.
Dit is zeker niet op te lossen?

Ik heb peter59 zijn document bekeken en mogelijk is dat ook een optie voor mij.
Ik hink dus op 2 gedachten welke voor mijn doel het eenvoudigst is en gebruikt kan worden.

Groet, HarryM

Sub M_snb()
   c00 = "C:\Gebruikers\harry\Desktop\Test 001.csv"
   c01 = "Tijdstip;Vloertemp 1 °C;Vloertemp 2 °C;Stralingspaneel °C;Stralinstemp 1 °C;Stralinstemp 2 °C;Ruimte temp °C;Luchtvochtigheid %H;Buitentemp °C" & vbCrLf
   
   With CreateObject("scripting.filesystemobject")
     .createtextfile(c00).write c01 & Join(Filter(Split(Replace(Replace(Replace(.opentextfile(c00).readall, ".", ","), " " & Chr(194) & Chr(176) & "C", ""), " %H", ""), vbCrLf), "_", 0), vbCrLf)
   End With
End Sub

 

[peter59]

Hallo,

Ja, dat zijn stappen welke je in Excel kunt uit voeren.
Na eenmaal deze stappen te hebben uitgevoerd hoeft dit niet steeds te gebeuren.
Dan is het gewoon een kwestie om de gegevens te verversen.
Sterker nog.
Je kan rechtstreeks de originele CSV file ergens opslaan en deze door power query laten uploaden.

Deze link geeft je een globaal inzicht hoe power query een beetje werk.
https://www.youtube.com/watch?v=OYmcEGMApIU

 

[snb]

Maar de basisbeginselen voor VBA zijn ook geen overbodige luxe.

 

[HMDH]

@snb


Mijn vragen komen omdat ik er zelf niet uitkomt en daarvoor hulp vraag.
Ik weet slechts een beetje van VBA.
In hoofdzaak doe ik knippen en plakken met wat aanpassingen.
Op mijn leeftijd ga ik geen cursus VBA meer volgen.
Hopelijk wil en kan je me toch verder helpen.

Groet, HarryM

 

[snb]

Waarom op mijn leeftijd nog een jonger iemand helpen die zelf niet gemotiveerd is om iets ervan/ervoor te leren ?

 

[HMDH]

@snb

wat doe jij toch steeds lelijk tegen de vraagstellers.!!.
Niet alleen tegen mij maar ik zie jou naam met minder leuke opmerkingen in allerlei vragen op dit Forum terugkomen.
Zit jij daar nou alleen maar om je tijd te vullen met commentaren op de leek en de vragensteller welke netjes probeert zijn vragen beantwoord te krijgen?
Waarom denk je trouwens dat ik jonger ben als jij?
Ik denk dat dit niet ter zake doet hoe oud de vragensteller is.
Aan motivatie mijnerzijds ligt het echt niet. Ik kan dagen en dagen bezig zijn om een oplossing te vinden.
Niet iedereen heeft de mogelijkheid en de kennis om zaken te leren uit een boekje.
Ik ben een praktijk man die graag iedereen helpt die blijkbaar minder verstand heeft van de materie waarover hij of zij een vraag stelt.
Dan zeg ik ook niet; "ja er zijn heel veel boeken te vinden die over jou vraag gaan. Ik zou me maar hierin gaan verdiepen. Je mist motivatie"

Je zou een vent zijn (of vrouw, dat weet ik niet) als je over je schaduw heen stapt en mij toch probeert verder te helpen.

Groet, HarryM

 

[snb]

Er is niets lelijks te ondekken aan mijn vraag in #9.
Je hebt blijkbaar niet de moeite genomen na te gaan hoeveel mensen ik op dit (en andere) fora geholpen heb.
Met jouw 'hulp'status kun je maar beter een toontje lager zingen.

Als jij roept:

Op mijn leeftijd ga ik geen cursus VBA meer volgen.

Introduceer jij een leeftijdcriterium, niet ik.
Profileer je tegelijkertijd je gebrek aan motivatie.

Als je uit mijn reaktie afleidt dat ik een bloedhekel heb aan gemakzuchtige, luie mensen dan klopt dat.

 

[HMDH]

@peter59

ik heb jou filmpje en nog een paar van deze dame bekeken en ik voel wel wat voor deze Power Query.
Ondanks de filmpjes heb ik nog niet goed begrepen hoe jij aan blad1 bent gekomen zoals in jou voorbeeld.
Kan je dit even in het kort uitleggen?

Groet, HarryM

 

[HMDH]

@snb

je zou mij (en wellicht meerdere) een groot genoegen doen als je, je verder van commentaar over mijn vraag zou onthouden.
Mogelijk kan je andere vragenstellers shockeren met allerlei ***lige opmerkingen.

Groet, HarryM

 

[peter59]

Hallo,

Zie afbeelding.


Dus als je je dingetje hebt gedaan in power query dan zijn er div. mogelijkheden om het e.e.a. in Excel te tonen.
Klik op het pijltje naast "Sluiten en laden" en dan zie je de div. mogelijkheden.
Met ook de vraag, bestaand blad of een nieuw blad?
Stoei er eens mee.