11 Cellen plakken uit ander excel bestand

[Gotty]

Hoi allemaal,

Ik heb een excelbestand meegepost waar ik alle irrelevante informatie uit heb gehaald, wat ik over heb zijn 2 rijen met 11 cellen, als maand 12 voorbij is kopieer ik alle 11 cellen, dit zijn de eindsaldo’s. Dit werkt al.
In het nieuwe kasboek wil ik dan graag de waarden plakken daar waar de beginsaldo’s staan. Dit werkt nog niet. Ik hoop dat iemand mij hiervoor de juiste vba-code kan geven.

Als iemand mij een boek of site kan noemen met vba voor mac voor beginners o.i.d. Hou ik mij aanbevolen.

Bij voorbaat hartelijke dank.

 

[VenA]

Volgens mij heb je er een beetje teveel gegevens uitgehaald. Wat de bedoeling is kan ik uit de code en het bestand niet opmaken.

 

[Gotty]

Ik zie nu dat het inderdaad duidelijker had gemoeten, dank.

Ik heb een nieuw voorbeeldbestand meegepost, de saldo's in maand 12 worden gevormd door een formule. de opmaak is: Valuta, 2 decimalen, € symbool, Negatieve getallen: -€ 1.234,10

In dit tabblad kopieer ik de saldo's uit maand 12 naar het klembord van de pc, dit werkt al.

In het kasboek voor het volgende jaar (die er exact hetzelfde uitziet) plak ik de gegevens als 'waarden' met dezelfde opmaak, naar de range B68:L68 met de knop "Plakken". Hier zou ik graag een vba-code voor willen.

In het meegeposte voorbeeld laat ik zien hoe het er na het plakken uit zou moeten komen te zien.

Bij voorbaat dank voor het helpen.

 

[VenA]

Verhelderend. Je hebt blijkbaar 2 bestanden of zo? Maand 1 , 11 en 12 allemaal dezelfde getallen?

 

[cow18]

Sub PlakkenDataJanuari()
   With Sheets("Instellingen").Range("B68:L68")
   End With
End Sub

 

[Gotty]

"Verhelderend. Je hebt blijkbaar 2 bestanden of zo? Maand 1 , 11 en 12 allemaal dezelfde getallen?"

Dit is een tabel waar alle eindsaldo's samen komen, dit zijn statische verwijzingen. Ik neem bijvoorbeeld het eindsaldo van saldo 1 van Januari (Cel B69). Dit is ook het beginsaldo van saldo 1 van Februari.

In het tabblad van Februari wordt het beginsaldo van saldo 1 gezocht met de formule:

=VERSCHUIVING(instellingen!A68;SOM(Q2-1);1)

In ieder maand-tabblad staat een cijfer, die hetzelfde is als de maand, Q2 is hier gelijk aan 2.

Dus vanaf A68 gaat'ie 0 rijen naar beneden 1 kolom naar rechts, zodoende wordt in het tabblad van saldo 1 van Februari de waarde getoond uit instellingen!B69.

De reden dat ik dit doe is dat alle tabbladen nu hetzelfde zijn.

En de vba-code doet wat ik wil, hartelijk dank voor je hulp, ook de groene teksten. :thumb:

Edit: Oh, dat was Cow18, bedankt Cow18.

 

[HSV]

Misschien een regeltje minder?

Sub PlakkenDataJanuari()
 Sheets("Instellingen").Range("B68:L68").PasteSpecial Paste:=xlPaste[COLOR=#ff0000]values[/COLOR]AndNumberFormats
End Sub

 

[Gotty]

Ja dat kan dus ook HSV, bedankt. Ik vind het maar knap ingewikkeld dat'ie met een andere code hetzelfde doet. Alleen doordat de oplossing van Cow18 wat is uitgesplitst blijf ik die maar gebruiken, kan ik hem in de toekomst ook nog ergens anders wat makkelijker gebruiken als dat nodig is.

 

[snb]

Ik zie dat een van de beste helpers op Helpmij is verbannen ?
Wie zit hier achter ?

Is dit een misplaatste grap ?
Of gaat Helpmij Hongkong achterna ?

 

[Gotty]

Dat is inderdaad heel raar, de exacte code die Cow18 gaf is:

Sub PlakkenDataJanuari()
   With Sheets("Instellingen").Range("B68:L68")
      .PasteSpecial Paste:=xlPasteFormulasAndNumberFormats           'kopieren van de opmaak
      .PasteSpecial Paste:=xlPasteValues                             'kopieren van de waarden zonder de formules
   End With
End Sub

 

[Gotty]

Goedenavond allemaal,

De reden dat ik mijn vraag in dit topic stel is omdat ik hier een paar maand terug een bijna dezelfde vraag stelde, het antwoordt op die vraag komt hier ook weer terug.
Jammer dat ik bericht #1 niet kan aanpassen, anders had ik daar aangegeven dat men meteen naar bericht #11 toe kan.

Het gaat om het bestand wat ik later heb bijgevoegd, als ik het andere bestand open die ik niet heb meegepost, waarmee ik mijn gerechten plan krijg ik in een aantal cellen in het tabblad instellingen waarden te zien, dus de ingrediënten die ik nodig heb voor die dag voor ieder gerecht, de waarden uit de instellingen wil ik graag op het klembord zetten en plakken in het tabblad ingredientenlijst. het bestand staat al in de microsoft cloud en na opslaan kan ik het bestand openen op de telefoon en heb ik alles voor die dag bij de hand. Ik kan ook 1 range maken maar dan kopieert die de kolomkoppen & de rijnamen van de rechter tabel, en dat kost misschien meer tijd om te kopiëren, met 2 ranges kost het misschien ook wel meer tijd om te kopiëren. Maarja, dat weet ik niet want eigenlijk weet ik niets van vba. Maar nu zit ik met 2 problemen.

Ik heb een vba code om gegevens op het klembord te zetten:

Sub MTBenMTBPKopieren()
Sheets("instellingen").Range("E20:M325").Copy
Sheets("instellingen").Range("P22:X325").Copy
End Sub

Probleem 1 is dat de range E20:M325 schijnbaar niet op het klembord wordt gezet, want nadat ik op de kopiëerknop druk, is alleen P22:X325 omlijnd met dat bewegende zwart/witte streepje. Heeft iemand daar een oplossing voor?

Edit: Ik heb een onofficieel kopieerknopje gemaakt in de instellingen, en als ik daar op druk zie ik dat alleen de rechter tabel op het klembord is gezet.

Dan heb ik een vba code die de gegevens plakt in een zelfde bereik ander tabblad:

Sub PlakkenDataJanuari()
   With Sheets("ingredientenlijst").Range("E20:M325")
   With Sheets("ingredientenlijst").Range("P22:X325")
      .PasteSpecial Paste:=xlPasteFormulasAndNumberFormats           'kopieren van de opmaak
      .PasteSpecial Paste:=xlPasteValues                             'kopieren van de waarden zonder de formules
   End With
End Sub

In de oplossing die de vorige keer geboden wordt gaat het om 1 range waar geplakt moet worden (bericht #10). Probleem 2 is dat ik nu 2 ranges heb gekopiëerd en wil deze 2 ook weer graag plakken, dan denk ik aan bovenstaande oplossing maar deze code werkt niet. Ik zie nu ook dat de macronaam van de plakknop verkeerd is maar als ik kies voor PlakkenDataJanuari gaat het ook verkeerd.Kan iemand mij verder op weg helpen?