Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: wegschrijven van gegevens in lijst dmv macro  (gelezen 5560 keer)

0 leden en 1 gast bekijken dit topic.

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
wegschrijven van gegevens in lijst dmv macro
« Gepost op: 05 februari 2018, 14:08:36 »
Hallo oplossers,

In navolging op de topic van Millie had ik graag een oplossing voor mijn probleem. Ik wil namelijk ook een lijst maken maar er is echter een probleem die ik niet opgelost krijg. Ik wil een range optellen en in een cel plaatsen in de lijst. De range uitbreiden en optellen was wat kort door de bocht van me.
VB: Cells(v, 10).Value = Sheets("ontlening").Range("J23") + Range("J24")         'waarborg
Cells(v, 10).Value = Sheets("ontlening").Range("J23:J24")         'waarborg
De oplossing is misschien simpel voor jullie maar ik ben dan ook maar een leek, die graag nog iets opsteek.
Mijn dank naar alle oplossers die mij terug op weg helpen. \o/
Strop2

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #1 Gepost op: 05 februari 2018, 14:26:17 »
strop2,

wellicht handig om een linkje naar het desbetreffende topic op te nemen?

Bovendien helpt het ook altijd als je een voorbeeld excelbestand plaatst.
|-|aije

ik gebruik Office 2016 Professional Plus

Offline Ntr

  • Lid
  • *
  • Berichten: 20
  • Geslacht: Man
  • Oplossing.be
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #2 Gepost op: 05 februari 2018, 19:17:31 »
Is dit wat je bedoelt?
Cells(1,1)=worksheetfunction.sum(Range("J23:J24"))

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #3 Gepost op: 05 februari 2018, 20:07:29 »
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #4 Gepost op: 05 februari 2018, 22:20:11 »
Beste,

Dank aan SoftAid voor het delen van de link.
@Ntr dit geeft niet het beoogde resultaat.
Ik had misschien inderdaad iets duidelijker moeten zijn. Bij deze een voorbeeld van wat ik wil bereiken.(geen exacte weergave)
Dit heb ik momenteel in mijn macro "Cells(v, 10).Value = Sheets("ontlening").Range("J23") + Range("J24")         'waarborg"
Dit is blijkbaar niet de manier om 2cellen in een macro naar een lijst te verwijzen.

Ik hoop dat het voorbeeld iets duidelijk maakt.
Mvg.
Strop2

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #5 Gepost op: 06 februari 2018, 09:09:34 »
Zoiets?

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #6 Gepost op: 06 februari 2018, 22:54:58 »
Beste dotchiejack,
Het resultaat is wat ik wou verkrijgen maar kan ik dit inpassen in de macro die ik al heb?
Ik had mij al gebaseerd op de macro die softaid reeds geschreven geeft voor Millie. Met de kennis die ik hier opdoe kon ik mij daar mee behelpen. Maar  mijn kennis reikt nog niet ver genoeg om het probleem in zijn geheel aan te pakken.
Mvg
Strop2

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #7 Gepost op: 07 februari 2018, 07:58:49 »
Citaat
kan ik dit inpassen in de macro die ik al heb
Waarschijnlijk wel, maar uw voorbeeld is een xlsx bestand, dus zonder code of macro.
Post eens een voorbeeldje met macro.

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #8 Gepost op: 07 februari 2018, 17:56:51 »
Beste Dotchiejack,
Ik heb er een nieuwe bijlage aan toegevoegd vertrokken van mijn bestand. Sommige zaken in de macro heb ik uitgeschakeld om dat dit nog in een testfase zit. Er zijn ook lijnen toegevoegd om te testen om mijn resultaat te behalen (helaas) ;)
De zaken gemarkeerd in het geel (kas) zijn samengestelde waarden die in de ontlening apart kunnen ingevuld/aangevinkt worden.
Hopenlijk is het nu iets duidelijker.
Mvg
strop2

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #9 Gepost op: 07 februari 2018, 21:32:21 »
Het werkt wél met de Worksheetfunction methode, maar je opgegeven bereik is niet juist. Je verwijst naar cel J24 en die is leeg. J25 bevat waarschijnlijk wél de waarde die je nodig hebt. Zo niet, dan snap ik je te bereiken resultaat (nog) niet.
______________________________

Groet, Leo

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #10 Gepost op: 07 februari 2018, 21:47:38 »
Ahhhh... Ok, tijd voor een lesje VBA.... ;)

In VBA moet je de computer PRECIES vertellen wat die moet doen. Als je dat niet doet, zal je niet het gewenste resultaat verkrijgen zoals je hebt bemerkt.
Kijk goed wat je doet in je procedure met het wegschrijven naar je lijst. je geeft als opdracht...
Sheets("kas").SelectHiermee geef je aan dat de sheet "Kas" je actieve werkblad wordt. Alle regels die je er dan onder zet..
Cells(v, 8).Value = Sheets("ontlening").Range("J16") + Range("j17")...kijken daar dus naar.

Om bovenstaande regel even te ontleden. Je begint met "Cells(v, 8).Value". Omdat je hier géén sheet-object aan hebt toegevoegd, gaat de computer er van uit dat je dan op de actieve sheet zit (dus: Kas). Vervolgens haal je héél netjes de eerste waarde op van de sheet "Ontlening" door het sheet-object vooraf te laten gaan aan het Range-object (Sheets("ontlening").Range("J16")). Maarrrr.... dan ga je optellen. En dát doe je nu zónder het sheet-object (+ Range("j17")). Mag JIJ 1x raden wáár VBA de waarde vandaan tracht te halen? Juist, van de sheet "Kas". Enne.. da's net niet wat je wilde. Ook hier moet je dus het sheet-object toevoegen aan de opdracht.

Leer netjes te programmeren door goed je opdrachten op te bouwen. Dus neem minimaal altijd het sheet-object mee als je naar een bereik verwijst. Dat houdt je code ook een heel stuk leesbaarder.

Ga hier eens mee spelen. Daar leer je meer van dan dat ik nu een kant en klaar workbook voor je neerzet (lijkt mij zo).
______________________________

Groet, Leo

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #11 Gepost op: 08 februari 2018, 10:22:21 »
Ik volg redhead
Citaat
Je verwijst naar cel J24 en die is leeg
Verder, in jou code om je invulblad leeg te maken,zitten er cellen bij waarin formules staan, als je deze cellen leegmaakt ben je ook je formules kwijt.
Een paar tips
Vermijd het gebruik van samengevoegde cellen, daarmee kom je vroeg of laat mee in de problemen.
Vermijd het gebruik van Select en Activate in je code, dit werkt vertragend en is zelden nodig.

Zie voorzet.

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #12 Gepost op: 09 februari 2018, 12:39:45 »
Beste,

Dank voor jullie reactie en voorzet. Laat het duidelijk zijn ben nog een totaal beginner in VBA en was dan ook gestart van de eerdere vermelde topic.
Ik begrijp ook jullie verwondering voor de lege cel J24, normaal is er een standaard waarborg maar door omstandigheden kan niet iedereen die geven en heb ik de optie open gelaten een willekeurig bedrag in te geven. Ik zal in de toekomst met jullie tips rekening houden en zeker hier nog terug komen om jullie hulp in te roepen.
Misschien nog 1 vraagje het leeg maken van het invulblad zonder mijn formules te verwijderen kan ik dit vermijden.
Beide nogmaals bedankt. \o/

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #13 Gepost op: 09 februari 2018, 12:51:49 »
Hallo strop2

Je kan een knop in je werkblad zetten, en deze koppelen aan een macro.
Met die macro maak je enkel die cellen leeg die je handmatig invult (I1, G4:G8, B16:D16 en F31)

Dan heb je terug een propere lei, zonder je formules in je werkblad te verliezen.

Optimaal zou zijn dat al je formules ook in de macro gegenereerd werden, en samen met de verwijdering, oog de formules terug geplaatst werden voor ingeval er iemand per ongeluk een formule verwijderd of gewijzigd heeft.

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
Re: wegschrijven van gegevens in lijst dmv macro
« Reactie #14 Gepost op: 09 februari 2018, 14:08:12 »
Hallo Softaid,

Bedankt voor de tip, ik zal er aan werken. Zoals velen hier heb ik net dat beetje aanzet(oplossing.be) nodig.
Mvg.
Strop2


 


www.combell.com