• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

macro in excell fout

Status
Niet open voor verdere reacties.
apostel zei:
Hoi allemaal,

Ik krijg dez macro niet draaiende!
Bedoeling is van een "insert picture" knop te maken .

http://lzvjdw.blu.livefilestore.com/y1pjxHR_6BDF7kePnFZoi0ySbuij7SDOtB7n8h5Tm88FPjYWQWgUM64c3Fn98z0Gm29bYpRplfRqciUrKgVncQNog/test%20helpmij.xls?download

alvast bedankt!
Klik om te vergroten...

Je code roept nogal wat vragen op.
- Waarom steeds de macro opnieuw opstarten?
- Waarom het gehele pad van de macro waardoor je problemen krijgt bij het aansturen.
Beter is dus:
Code: 
Button1_Click
In plaats van:
Code: 
Application.Run "'test helpmij.xls'!Button1_Click"

In het begin van de code heb je het over Selection. Echter als je de code opnieuw draait is er geen plaatje geselecteerd en daardoor heeft de macro geen idee wat er geselecteerd moet worden.

Met vriendelijke groet,


Roncancio

Dus
 
Roncancio zei:
Je code roept nogal wat vragen op.
- Waarom steeds de macro opnieuw opstarten?
- Waarom het gehele pad van de macro waardoor je problemen krijgt bij het aansturen.
Beter is dus:
Code: 
Button1_Click
In plaats van:
Code: 
Application.Run "'test helpmij.xls'!Button1_Click"

In het begin van de code heb je het over Selection. Echter als je de code opnieuw draait is er geen plaatje geselecteerd en daardoor heeft de macro geen idee wat er geselecteerd moet worden.

Met vriendelijke groet,


Roncancio

Dus
Klik om te vergroten...

Oke, daar zit dus het probleem !
Ik heb de code gekopieerd van een internet voorbeeld!
Ik ben echt een leek op macros...
Dus wat stel jij dan voor?
Bedankt!
 
apostel zei:
Oke, daar zit dus het probleem !
Ik heb de code gekopieerd van een internet voorbeeld!
Ik ben echt een leek op macros...
Dus wat stel jij dan voor?
Bedankt!
Klik om te vergroten...

Stond de ScrollColumn ook bij het gekopiëerde code?:shocked::shocked:
Wat wil je eigenlijk precies doen?

Met vriendelijke groet,


Roncancio
 
Roncancio zei:
Stond de ScrollColumn ook bij het gekopiëerde code?:shocked::shocked:
Wat wil je eigenlijk precies doen?

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

Oke,ik probeer het uit te leggen via dit voorbeeld!
Ik heb een sheet waar ik foto's wil importeren via een macro knop.
Nu de knop die ik heb heeft een fout als ik op cancel click inplaats van een foto toe tevoegen hoe los ik dit op !
Is er een eenvoudiger manier van werken?

http://lzvjdw.blu.livefilestore.com/y1pva1_-KJCIC1ARj_ZmutexrfzKasLw7e5qGtytwLzTw2uxzkL7DfoqiL5HtkBikfLjMkpZC9eMNwUvf-UgU_KUQ/test%20helpmij.xls?download
 
apostel zei:
Oke,ik probeer het uit te leggen via dit voorbeeld!
Ik heb een sheet waar ik foto's wil importeren via een macro knop.
Nu de knop die ik heb heeft een fout als ik op cancel click inplaats van een foto toe tevoegen hoe los ik dit op !
Is er een eenvoudiger manier van werken?

http://lzvjdw.blu.livefilestore.com/y1pva1_-KJCIC1ARj_ZmutexrfzKasLw7e5qGtytwLzTw2uxzkL7DfoqiL5HtkBikfLjMkpZC9eMNwUvf-UgU_KUQ/test%20helpmij.xls?download
Klik om te vergroten...

Even snel aangepast.
Ik heb de code al flink ingekort.
Code: 
Sub Button1_Click()
Dim bPic As Boolean
    bPic = Application.Dialogs(xlDialogInsertPicture).Show
    If bPic = True Then
        Selection.ShapeRange.Width = 262.5
        Selection.ShapeRange.Height = 188.25
            Cells.Select
            With Selection.Interior
                .ColorIndex = 2
                .Pattern = xlSolid
            End With
            Range("A1:F12").Select
            ActiveSheet.PageSetup.PrintArea = "$A$1:$F$12"
            ActiveWorkbook.Save
    End If
End Sub

Met vriendelijke groet,


Roncancio
 
Roncancio zei:
Even snel aangepast.
Ik heb de code al flink ingekort.
Code: 
Sub Button1_Click()
Dim bPic As Boolean
    bPic = Application.Dialogs(xlDialogInsertPicture).Show
    If bPic = True Then
        Selection.ShapeRange.Width = 262.5
        Selection.ShapeRange.Height = 188.25
            Cells.Select
            With Selection.Interior
                .ColorIndex = 2
                .Pattern = xlSolid
            End With
            Range("A1:F12").Select
            ActiveSheet.PageSetup.PrintArea = "$A$1:$F$12"
            ActiveWorkbook.Save
    End If
End Sub

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

Hey thanks again!

Maar waar moet ik nu opletten in de code als ik deze macro op andere buttons zet?!?

Juist geprobeerd en dan zegt hij "Cannot run Visual basic macro because of a syntax error"

Waarschijnlijk omdat ik deze code niet op iedere cell kan gebruiken ?
 
apostel zei:
Hey thanks again!

Maar waar moet ik nu opletten in de code als ik deze macro op andere buttons zet?!?

Juist geprobeerd en dan zegt hij "Cannot run Visual basic macro because of a syntax error"

Waarschijnlijk omdat ik deze code niet op iedere cell kan gebruiken ?
Klik om te vergroten...

De macro heet Button1_Click
Een andere naam is wenselijk aangezien dit voor verwarring kan geven.
Wil je refereren naar deze macro dan volstaat de naam van de macro: Button1_Click
Stel dat je een knop hebt toegevoegd genaamd KnopInvoegen. Dan kun je de code van Button_Click toevoegen door eenvoudigweg de naam in de code te zetten.

Code: 
Sub KnopInvoegen()
Button1_Click

End Sub
Ik krijg overigens geen foutmelding.

Met vriendelijke groet,


Roncancio
 
Laatst bewerkt:
;)
Roncancio zei:
De macro heet Button1_Click
Een andere naam is wenselijk aangezien dit voor verwarring kan geven.
Wil je refereren naar deze macro dan volstaat de naam van de macro: Button1_Click
Stel dat je een knop hebt toegevoegd genaamd KnopInvoegen. Dan kun je de code van Button_Click toevoegen door eenvoudigweg de naam in de code te zetten.

Code: 
Sub KnopInvoegen()
Button1_Click

End Sub
Ik krijg overigens geen foutmelding.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...


Hey Roncancio,

Kan je aub eens een nieuwe sheet maken met een button waar je die macro aankoppeld!
En dan zo vriendelijk willen zijn om mij een linkje te bezorgen :o:thumb:
Ik doe iets verkeerd maar zie het echt niet!

Alvast bedankt!

Ik citeer "Iets niet vragen zodat je het antwoord nooit weet je is je voor altijd schamen":D
 
apostel zei:
;)


Hey Roncancio,

Kan je aub eens een nieuwe sheet maken met een button waar je die macro aankoppeld!
En dan zo vriendelijk willen zijn om mij een linkje te bezorgen :o:thumb:
Ik doe iets verkeerd maar zie het echt niet!

Alvast bedankt!

Ik citeer "Iets niet vragen zodat je het antwoord nooit weet je is je voor altijd schamen":D
Klik om te vergroten...

Bij deze een bestandje met de knop en macro.
Indien er nog vragen zijn, dan hoor ik het wel.

Met vriendelijke groet,


Roncancio
 
Laatst bewerkt:
Hey :thumb:

Werkt oke nu !

Nu zoek ik nog een goede macro voor alles uit te printen!

Ik heb de deze:
Sub PrintAll()
' PrintAll Macro'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("More Pictures").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Die print dan wel alles maar springt altijd naar de sheet More pictures en dat wil ik niet!
Een gedacht?

Bedankt!
 
Code: 
Sub Print()
    Sheets("More Pictures").PrintOut Copies:=1, Collate:=True
End Sub
 
In wat opzicht doet dat raar? Dat is wel heel vaag uitgedrukt.
 
Wigi zei:
In wat opzicht doet dat raar? Dat is wel heel vaag uitgedrukt.
Klik om te vergroten...

Als je mijn voorbeeld opent en klikt op de macro "button8" krijg ik mijn explore open voor een afbeelding te selecteren .
Zover alles goed!
eenmaal ik de afbeelding heb geselecteerd en openen klik wordt heel mijn sheet geselecteerd en de geselecteerde foto op een andere plaatst gezet dan waar nodig is .

http://lzvjdw.blu.livefilestore.com/y1pYObIczGz8CcLKL__3bFq20O0YOZG0YVIRHsyDE03q6HgFy5juibhoGaejBc0vFZoclBqvXYGe8s/test%20add%20picture.xls?download
Ik hoop dat het wat duidelijker is nu ?!
Alvast bedankt
 
Dat er geselecteerd wordt is redelijk wiedes...

Code: 
Range("A1:F12").Select

Dat er tot kolom W geselecteerd wordt, komt door de samengevoegde cellen.

De foto komt op de plaats van de geselecteerde cel.

Wigi
 
Wigi zei:
Dat er geselecteerd wordt is redelijk wiedes...

Code: 
Range("A1:F12").Select

Dat er tot kolom W geselecteerd wordt, komt door de samengevoegde cellen.

De foto komt op de plaats van de geselecteerde cel.

Wigi
Klik om te vergroten...

Thanks for the reply Wigi!

maar ik krijg het niet hersteld mijn fout ... kan je wat meer info geven of mijn voorbeeld aanpassen?
Alvast bedankt!
:thumb:
 
Zoiets

Code: 
Sub Button5_Click()
Dim bPic As Boolean
    Range("B4").Select
    bPic = Application.Dialogs(xlDialogInsertPicture).Show
    If bPic = True Then
        Selection.ShapeRange.Width = 262.5
        Selection.ShapeRange.Height = 188.25
        With Cells.Interior
            .ColorIndex = 2
            .Pattern = xlSolid
        End With
        Range("A1:F12").Select
        ActiveSheet.PageSetup.PrintArea = "$A$1:$F$12"
        ActiveWorkbook.Save
    End If
End Sub

Wigi
 
Wigi zei:
Zoiets

Code: 
Sub Button5_Click()
Dim bPic As Boolean
    Range("B4").Select
    bPic = Application.Dialogs(xlDialogInsertPicture).Show
    If bPic = True Then
        Selection.ShapeRange.Width = 262.5
        Selection.ShapeRange.Height = 188.25
        With Cells.Interior
            .ColorIndex = 2
            .Pattern = xlSolid
        End With
        Range("A1:F12").Select
        ActiveSheet.PageSetup.PrintArea = "$A$1:$F$12"
        ActiveWorkbook.Save
    End If
End Sub

Wigi
Klik om te vergroten...

Sub Button7_Click()
Dim sTopLeft As String
sTopLeft = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Address
ActiveSheet.Range(sTopLeft).Offset(0, 0).Select
Application.Dialogs(xlDialogInsertPicture).Show
On Error GoTo Finito
Selection.ShapeRange.Width = 265
Selection.ShapeRange.Height = 210
Selection.Locked = False
Finito:
On Error Resume Next

End Sub

Met de deze gaat het perfect !
 
apostel zei:
Thanks for the reply Wigi!

maar ik krijg het niet hersteld mijn fout ... kan je wat meer info geven of mijn voorbeeld aanpassen?
Alvast bedankt!
:thumb:
Klik om te vergroten...

Heb hier de vragen en antwoorden even gelezen en ben iets duidelijker geworden, had ongeveer een zelfde probleem.

Wel even een tip voor Tom, Zoek op het internet naar wat handleidingen voor macro gebruik, werk zeker niet met de automatisch macro opnemer van excel en werk niet met worden als "select en actavate". Dit is een nekschot voor je macro en geeft meer problemen dan dat het helpt.

In het begin is het wel moeilijker en onduidelijker, maar als je het eenmaal een beetje doorhebt is het leuker en een grotere kans op succes (zeker als je werkt met verborgen velden, die kan je namelijk al niet selecteren).

Groeten van ook een beginnende macro gebruiker,
Frank
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan