Ga naar inhoud

Afe1

Lid
  • Items

    5
  • Registratiedatum

  • Laatst bezocht

Recente bezoekers van dit profiel

De recente bezoekers block is uitgeschakeld en zal niet meer getoond worden aan gebruikers.

Afe1's prestaties

  1. Hallo, In onderstaande macro wordt een range van 1 file met verschillende bladen gekopieerd naar een andere file waar al die gegevens onder elkaar staan. Nu wordt alles gekopieerd en de opmaak overschreven, dus zou ik enkel de waarden + de Formules en getalnotaties willen kopiëren ipv alles zoals : Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Kan iemand mij hier de oplossing voor geven? Alvast bedankt. ' Macro1 Macro ' Sneltoets: Ctrl+m Dim varCellvalue As String varCellvalue = Range("T11").Value ChDir "C:\Users\Gebruiker\OneDrive\Quinntra" Workbooks.Open Filename:=varCellvalue Windows("QuinntraTransfert.xlsm").Activate With Workbooks(varCellvalue).Sheets(1) Set a = .Cells.Find("Datum") For Each sh In ThisWorkbook.Sheets sh.Range("B2:K" & Range("a50").End(xlUp).Offset(0, 0).Row).Copy .Cells(a.Row, 3).Offset(2) Set a = .Cells.FindNext(a) Next End With End Sub
  2. Sorry voor je tijd, maar in maart zullen er steeds 31 dagen zijn, dus kopieer ik 31 lijnen naar de file waar ook 31 lijnen zullen staan en in april 30 enz... Maar toch bedankt voor je moeite. Gr.
  3. Even de volledige uitleg: Maandelijks download ik een file van een extern bureau waarin ik prestaties van die maand in kopieer. File van het bureau is hier "Februari" en mijn file is "DataJuist" In mijn file draait een macro die een hele reeks data oplaadt en die klaarzet om naar bijv. "Februari" te kopiëren. Volgende maand is dit dus naar de file "Maart". Daarom wil ik ook de naam van de te openen file variabel maken. In bijlage een kopie van de betrokken file "Februari(2)" Hier staan alle personeelsleden onder elkaar en moeten mijn gegevens achtereenvolgens naar C63, C120 , C177, C234, C291 komen. Vermits ik niets aan die file kan en mag wijzigen zou het ideaal zijn om die bestemmingen ook aanpasbaar te maken, zonder telkens mijn macro te wijzigen. Ik denk dan aan een lus die het aantal werkbladen in mijn file telt en zoveel maal kopieert naar hun file. Maar volgende maand zijn die adressen uiteraard niet gelijk aan deze maand. Ik zou bijv. In de file "Februari(2)" telkens naar de cel "Datum " gaan, daarna 2 posities naar beneden en dan 2 posities naar rechts. Hier kom ik op de juiste cel om mijn data in te kopiëren. Mijn kennis van VBA is te basic om dit te realiseren, dus zie je de mogelijkheid om dit gedaan te krijgen? Alvast bedankt. Februari(2).xlsx
  4. Hallo Emiel, hier een simpel voorbeeld. In "Datajuist" werkt de code 'Windows("varCellvalue").Activate' niet. DataJuist.xlsm Februari.xlsx
  5. Hallo, ik ben nieuw op dit Forum en heb volgend probleem : ik open een bestand via een celwaarde in "3Transfert" in "3Transfert" selecteer ik een range die ik wil kopiëren naar het geopend bestand "varCellvalue" In mijn macro wordt de file goed geopend, maar ik kan de juiste instructie om naar de andere file te gaan niet aan de praat krijgen. Ziehier mijn code : Dim varCellvalue As String varCellvalue = Range("T11").Value ChDir "C:\Users\Gebruiker\OneDrive\Quinntra" Workbooks.Open Filename:=varCellvalue Windows("3Transfert.xlsm").Activate Sheets("Dorawa").Select Range("B2:K36").Select Selection.Copy Windows(varCellvalue).Activate Range("C63").Select Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False "Windows(varCellvalue).Activate" werkt niet. Hoe kan ik dit oplossen? (de originele macro doet daarna nog een hele reeks verder)
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.