Help!

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

Hulp bij posten

Recente topics

Auteur Topic: excel vba  (gelezen 35584 keer)

0 leden en 1 gast bekijken dit topic.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • 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 :)             
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 Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
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. ;)


Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • 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 :)             
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 Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
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)

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • 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 :)             


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 team roy

  • Lid
  • *
  • Berichten: 60
  • 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 Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: excel vba
« Reactie #21 Gepost op: 17 juli 2019, 15:41:04 »
Citaat
een error melding
Wat is de error ?

Offline team roy

  • Lid
  • *
  • Berichten: 60
  • 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 Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
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

Offline team roy

  • Lid
  • *
  • Berichten: 60
  • 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 Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
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

Offline team roy

  • Lid
  • *
  • Berichten: 60
  • 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 Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
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


Offline team roy

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

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: excel vba
« Reactie #29 Gepost op: 18 juli 2019, 11:06:18 »
Graag gedaan. ;D

 


www.combell.com