Macro gekoppeld aan knop werkt wel maar als add-in niet

[peter59]

Hallo Edmoor

Met jouw hulp en tips ben ik al ontzettend ver op weg. Zo leer ik nog steeds bij v.w.b. Excel.

Ik ben nog even op een andere locatie aan het testen maar krijg helaas nog een foutmelding.
Zie afbeelding.



Wat doe ik nog fout.

Nogmaals hartelijk dank voor al je genomen moeite.

Mvg
Peter

 

[edmoor]

Ik zie alleen een gele regel, niet de foutmelding.

 

[peter59]

Edmoor,

Zo dat was snel.
Door de F8 toets te gebruiken gaat het bij de gele regel fout dus opent niet het betreffende workbook.

Mvg
Peter

 

[edmoor]

En ik ben dus benieuwd naar de foutmelding die dan wordt gegeven.

 

[peter59]

Edmoor,

Zie onderstaand.

Kan dat soms te maken hebben met het feit dat de map add-in op de E-schijf (stick) staat en de D schijf op de desktop?

Mvg
Peter

 

[edmoor]

Dat lijkt me toch duidelijk.
Dat document staat niet op die locatie.

 

[peter59]

Oké

Ik ga het document eens naar de E-schijf (stick) verplaatsen en dan verder testen.
Wederom dank voor de tip.
Wordt dus vervolgt.

Mvg
Peter

 

[peter59]

Edmoor,

De fout gevonden.
In de sheet welke geopend diende te worden stond een fout.
(E..…...xlsx diende xlsm te zijn.
Nu wordt de Verzamel - template in de betreffende locatie geopend.
Dan stok het. Er wordt dus niets geplakt.
Ik krijg met de F8 toets onderstaand te zien.


Wordt je nog niet "ziek" van mij?

Mvg
Peter

 

[edmoor]

Zorg dat in een testdocument het kopiëren van die gegevens goed werkt.
Gebruik die code dan in de addin.

Geef ook altijd aan welke foutmelding je krijgt.
Zo'n halve gele regel zegt helemaal niets.

En nee hoor, ik ben een geduldig mens

 

[peter59]

Edmoor,

Dat waardeer ik dat je zo geduldig met mij bent.

Onderstaand de gehele regel.

 

[peter59]

Edmoor,

Dat waardeer ik dat je zo geduldig met mij bent.

Onderstaand de gehele regel.
Bekijk bijlage 340388

Eigenlijk dient er, vrij vertaalt te gebeuren :
Kopieer uit de actieve sheet een bereik.
Open de te plakken locatie (Verzamelstaat)
Plakt in de 1ste lege cel in kolom A

 

[edmoor]

Het gaat me om de foutmelding die daar word gegeven.

En welk bereik uit het huidige document wil je plakken in welk bereik van het template document?

 

[peter59]

Sorry Edmoor

Ik krijg geen verdere foutmelding.
Loop ik de code na met de F8 toets dan verschijnt de gele regel.
Druk ik dan 2x op OK dan gaat deze verder.

Gebruik ik de add-in knop dan loopt alles verder dus de desbetreffende (verzameltemplate) wordt geopend en daar blijft het dan bij.

Het is net of als de code niets doet kopiëren. M.a.w. kan er ook niets geplakt worden in de verzamelstaat.

Mvg
Peter

 

[edmoor]

Als die regel geel is, klik dan dat schermpje weg, druk dan op F8 en laat weten wat er gebeurt.

 

[peter59]

Edmoor,

Dat doe ik ook.
Klik ik 1x op OK dan is het schermpje weg maar hierna komt deze meteen weer bovendrijven met exact de zelfde melding.
Klik ik dan weer op OK dan verdwijnt deze definitie en gaan, d.m.v. de F8 de vervolgstappen gewoon verder.

Mvg
Peter

 

[jkpieterse]

Ik zie wel dat in je regel het deel links van het = teken stelt dat er 200 rijen en 15 kolommen moeten worden gevuld (Resize(200,15), terwijl je er (rechts van het = teken) 297 rijen en 15 kolommen in probeert te stoppen ("A4:O300")

 

[edmoor]

Gewoon op Ok blijven klikken tot hij weg is.
Dan op F8 drukken.

 

[peter59]

Hallo,

@jkpieterse
Mijn inziens maakt dat niet veel uit maar heb het wel aangepast.
Maar helaas.

@Edmoor
Dat had ik al gedaan. Klik ik 1x op OK dan is het schermpje weg maar hierna komt deze meteen weer bovendrijven met exact dezelfde melding.
Klik ik dan weer op OK dan verdwijnt deze definitie en gaan, d.m.v. de F8 de vervolgstappen gewoon verder. Dat is alleen de End With en End Sub.
Er wordt dus niet geplakt. Het desbetreffende doelbestand is dan wel geopend.

Ik heb in de macro enkele stappen toegevoegd.
In de geopende sheet wordt er nu een bereik (A4:O30) gekopieerd.
Dan een stap verder om het doelbestand te openen. Dan komt wederom de fout melding.



Na 2x op OK te klikken is deze weg en loopt de macro met de F8 toets door dus kopieert in het doelbestand.

Vreemd allemaal, niet?

Sub VulTemplate()
    MsgBox "Vul de template vanuit: " & ActiveWorkbook.Name, vbInformation, "Aanvullen template"
        Range("A4:O30").Select
    Selection.Copy
    With Workbooks.Open("E:\13USB-station\Factuurverificatie\01 Verzamelstaat\Verzamelstaat - Template.xlsm")
    'With Workbooks.Open("C:\Users\467855\OneDrive - Sitech Services BV\Documents\Factuurverificatie\03 Verzamel Templates tbv Rens\01 Verzameltemplate.xlsx")
    '.Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(300, 15) = ThisWorkbook.Sheets("Blad1").Range("A4:O300").Value
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End With
End Sub

 

[edmoor]

Plaats je document van waaruit een kopie moet worden gemaakt en het template document eens hier.

 

[peter59]

Hallo Edmoor

Wij houden ons vandaag onderling wel bezig.

Zie de bijlagen.
Hier is zoveel als mogelijk gevoelige info uit verwijderd.
Aan de lay-out is niets veranderd.

Voor vandaag houd ik het even voor gezien.

En natuurlijk wederom dank voor je geduld.

Mvg
Peter