• 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.

Kopieren van Hoofdmenu naar blad Orders geeft fout melding

Status
Niet open voor verdere reacties.
S

schuul689

Gebruiker
Lid geworden
31 jul 2019
Berichten
10
Ik heb een aantal gegevens die ik wil kopieren naar een ander blad.
Hij heeft het 1 keer gedaan en waarschijnlijk heb ik verandert maar wat weet ik niet.
Foutmelding: Fout 1004 tijdens uitvoering. Door de toepassing of door object gedefinieerde fout

Voorbeeld:
Hoofmenu: hier komen bepaalde gegevens te staan. Door op de knop Opslaan te drukken dienen deze gegevens naar blad "Orders" te worden gekopieerd.

Dit werkt dus niet.

Ik heb ook een knop op Blad "Orders" met "Select" erop, deze zou dan weer als ik de order nodig heb alle informatie weer terug op de plaats op het hoofdmenu moeten komen.

Zie bestand:

Alle hulp is welkom

Met vriendelijke groet
Peter
 

Bijlagen

  • planning 08-08-2019.xlsm
    142,4 KB · Weergaven: 35
code knop opslaan:
Code: 
Set lastrow = Sheets("Orders").Range("B10002").End(x1Up)

verander de 1 in End(x1Up) in een l(Leo)
 
Beste Albert,

Bedankt voor de snelle oplossing.

Met vriendelijke groet
Peter
 
Je gehele code gereduceerd tot:
Code: 
Sub Oplsaan_Klikken()
  For Each area In Sheets("hoofdmenu").Range("d6:d15,j6:j15,p6:p11,p13:p16,t6:t16").Areas
   sv = sv & Join(Application.Transpose(area.Value), "|") & "|"
  Next
  sv = Split(sv, "|")
Sheets("orders").Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 42) = sv
End Sub

Of voor de oneliners.
Code: 
Sub Oplsaan_Klikken()
Sheets("orders").Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 42) = Split(Join(Application.Transpose(Range("d6:d15").Value), "|") & "|" & Join(Application.Transpose(Range("j6:j15").Value), "|") & "|" & Join(Application.Transpose(Range("p6:p11").Value), "|") & "|" & Join(Application.Transpose(Range("p13:p16").Value), "|") & "|" & Join(Application.Transpose(Range("t6:t16").Value), "|") & "|", "|")
End Sub
 
Laatst bewerkt:
Goedemorgen Harry,

Bedankt hiervoor.

Maar wat is het verschil tussen deze 2 codes?

met vriendelijke groet
Peter
 
Goedemorgen,

Op de schrijfwijze na tussen die twee codes die ik heb geschreven niets Peter.
In tegenstelling tot jouw code schrijven die twee codes alles in 1x weg i.p.v. 42x.
 
Voor de knop Select, twee mogelijkheden.
 

Bijlagen

  • planning.xlsb
    31,7 KB · Weergaven: 24
Beste Albert,

Bedankt voor je reactie en hulp.
Ik ga ermee aan de slag.

Met vriendelijke groet
Peter
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan