Help!

Problemen met uw pc? De vrijwilligers van Oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Hulp bij posten

Recent

Auteur Topic: excel vba  (gelezen 2758 keer)

0 leden en 1 gast bekijken dit topic.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.550
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: excel vba
« Reactie #15 Gepost op: 16 juli 2019, 17:43:51 »
Dotchie,

Sub Oplossing_Invoegen()
Application.ScreenUpdating = False
Set Rng = Range("A1:I17")
    ActiveCell.Rng.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    MsgBox "nieuw veld is toegevoegd", vbInformation, "'t is in de sjakosj"
Application.ScreenUpdating = True
End Sub
Ook hier zou ik opteren om de MsgBox na de screenupdating te plaatsen, geeft anders een raar beeld (Als je de boodschap krijgt, dan is er nog niets ZICHTBAAR veranderd)

My to -cents  ;D

:) SoftAid :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag mogelijk op meerdere fora beantwoord.

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 387
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #16 Gepost op: 16 juli 2019, 18:03:15 »
Ik heb het stukje code gewoon gekopieerd en verder geen aandacht aan besteed, deze MsgBox heeft totaal geen zin want je ziet direct de verandering(en),op die manier laat je de gebruiker onnodig op een knop drukken, met andere woorden een nodeloos extra handeling voor de gebruiker. ;)

Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.550
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: excel vba
« Reactie #17 Gepost op: 16 juli 2019, 18:13:01 »
Dotchie,

Met alle respect, maar dan had jij de MsgBox ook moeten verwijderen. Zo niet, dan vind ik je opmerking naar mijn reactie niet positief.
De gebruiker weet bovendien prima hoe een MsgBox te plaatsen, en heeft dit mogelijk bewust gedaan om mensen die niet gewend zijn met Excel te werken een boodschap te geven. Mogelijk wordt de ingevoegde data in een onzichtbaar deel (ik bedoel "buiten beeld") ingevoerd, en dan heeft die MsgBox wel nut, niet?

Groeten,

Theo

:) SoftAid :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag mogelijk op meerdere fora beantwoord.

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 387
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #18 Gepost op: 16 juli 2019, 18:31:47 »
Er zijn inderdaad genoeg situaties waar een MsgBox wel degelijk zin heeft. Het is niet de bedoeling om iemand te beledigen, zeker niet.
In de tijd van mijn Fortran periode, toen ik nog jong en mooi was hebben ze dat bij mij erin gestampt, evalueer je programma,maak eerst een functioneel ontwerp, vermijd het gebruik van GOTO,vermijd overbodige handelingen etc.... Ik wilde alleen TS bewust maken overbodige handelingen te vermijden meer niet. ( op jaarbasis zijn dat veel handelingen :o)
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.550
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: excel vba
« Reactie #19 Gepost op: 16 juli 2019, 19:09:42 »
....toen ik nog jong en mooi was ......
Hiaje, weet je nog welke eeuw dat was .....  ;D ;D ;D

Citaat
. Ik wilde alleen TS bewust maken overbodige handelingen te vermijden meer niet.
Zeker positief....  :thumbsup:

Groeten,

:) SoftAid :)             


Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag mogelijk op meerdere fora beantwoord.

Offline team roy

  • Lid
  • *
  • Berichten: 12
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #20 Gepost op: 17 juli 2019, 15:34:28 »
Hi DotchieJack,

Bedankt voor de code, het werkt goed. De tweede mbt Oplossing_Invoegen krijg ik een error melding bij:

    ActiveCell.Rng.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

kan je hier nog naar kijken a.u.b.


Alvast bedankt.

mvg,
Team Roy

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 387
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #21 Gepost op: 17 juli 2019, 15:41:04 »
Citaat
een error melding
Wat is de error ?
« Laatst bewerkt op: 17 juli 2019, 15:48:34 door Dotchiejack »
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline team roy

  • Lid
  • *
  • Berichten: 12
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #22 Gepost op: 17 juli 2019, 15:55:45 »
Hi,

ik krijg de melding: Run-time error 438 - object doesn't support this property or method.

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 387
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #23 Gepost op: 17 juli 2019, 16:07:40 »
En met deze?
Sub Oplossing_Invoegen()
Application.ScreenUpdating = False
ActiveCell.EntireRow.Resize(17).Insert Shift:=xlDown
Application.ScreenUpdating = True
End Sub
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline team roy

  • Lid
  • *
  • Berichten: 12
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #24 Gepost op: 17 juli 2019, 16:14:46 »
Hi,

Kan je a.u.b. de volledige correcte code aan mij doorgeven?

Dank je wel.

mvg,
Roy

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 387
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #25 Gepost op: 17 juli 2019, 16:18:44 »
Zo dan?
Sub Oplossing_Invoegen()
Application.ScreenUpdating = False
ActiveCell.EntireRow.Resize(17).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    MsgBox "nieuw veld is toegevoegd", vbInformation, "'t is in de sjakosj"
Application.ScreenUpdating = True
End Sub
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline team roy

  • Lid
  • *
  • Berichten: 12
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #26 Gepost op: 17 juli 2019, 16:38:14 »
Hi DotchieJack,

Er wordt in de spreadsheet ruimte gemaakt om data daarin te pasten maar het laatste gebeurt niet.
Kan je dubbel checken a.u.b.?

mvg,
Roy


Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 387
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #27 Gepost op: 17 juli 2019, 17:13:35 »
Zo dan? ???
Sub Oplossing_Invoegen()
Application.ScreenUpdating = False
    ActiveCell.EntireRow.Resize(17).Insert Shift:=xlDown
        Sheets("static data").Range("A18:I32").Copy
        ActiveCell.PasteSpecial (xlPasteAll)
Application.ScreenUpdating = True
End Sub

« Laatst bewerkt op: 17 juli 2019, 17:26:04 door SoftAid »
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline team roy

  • Lid
  • *
  • Berichten: 12
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #28 Gepost op: 18 juli 2019, 10:38:03 »
Het werkt super, hartelijk dank!

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 387
  • Geslacht: Man
  • Oplossing.be
Re: excel vba
« Reactie #29 Gepost op: 18 juli 2019, 11:06:18 »
Graag gedaan. ;D
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

 


www.combell.com