kopiëren bij een macro

[Havana100]

beste,

Weet er iemand waarom bij deze macro ( zie bijlage in word) er volgend probleem te voorschijn komt?

de file beginnend met 2044 is de orginele file zoals wij deze ontvangen. Als we deze file willen kopiëren in een tabblad ( data) dan krijgen we resultaat1. Dus de waarde in cel B1 is niet mee overgenomen. Idem voor de waarde in cel B10, B1212, B1313, enz. De waarden in bijvoorbeeld cel A12 en A13 worden wel meegenomen. De getallen in bijvoorbeeld cel J20 worden omgezet in tekst waarde, dus niet te gebruiken om te rekenen ( of je moet ze eerst allemaal gaan omzetten).

Ik dacht dat het probleem misschien te maken had met de file die we ontvangen. In file beginnend met 2000 heb ik dan de waarden manueel ingeven. Resultaat is echter een volledig blanco blad???Bekijk bijlage macor.docx

Iemand een idee waarom en hoe je dit kunt oplossen?

Alvast bedankt ! Bekijk bijlage 2044_Gas_YMR_541448812000498756.xlsxBekijk bijlage 2000_Gas_YMR_541449206006819292.xlsxBekijk bijlage resultaat1.xlsx

 

[JanBG]

Havana,

Het zou wat handiger zijn geweest als je de code niet in WORD, maar tussen tags (#) had gezet. Nu moet ik hem gaan overtypen om te testen.

 

[Havana100]

Beste Jan,

sorry hoor, zie je onmiddellijk dat je zeker niet met een specialist te maken hebt. Hopelijk is dit voor jou makkelijker?


Sub Dataophalencopypaste()
'
' Dataophalencopypaste Macro
'
Application.DisplayAlerts = False
'
Workbooks.Open Filename:="C:\Dropbox (EVS)\E CFG_DATA" & Datafile, _
UpdateLinks:=3

Sheets("Evsenergy").Select
Range("A1:N100").Copy
Windows(CFfile).Activate
Sheets("Data").Select
[A1].Select
ActiveSheet.Paste
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Windows(Datafile).Activate
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

 

[JanBG]

Kan gebeuren en als je de code even tussen tags zet, wordt het allemaal wat leesbaarder:

Sub Dataophalencopypaste()
'
' Dataophalencopypaste Macro
'
Application.DisplayAlerts = False
'
Workbooks.Open Filename:="C:\Dropbox (EVS)\E CFG_DATA" & Datafile, _
UpdateLinks:=3

Sheets("Evsenergy").Select
Range("A1:N100").Copy
Windows(CFfile).Activate
Sheets("Data").Select
[A1].Select
ActiveSheet.Paste
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Windows(Datafile).Activate
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

 

[JanBG]

Havana,

Als ik de volgende code gebruik, wordt alles gewoon gekopieerd. Ik heb de Windows(CDFile).Activate en de Windows(DataFile).Activate er uit gehaald, want die files heb ik niet.

Sub Macro2()
'
' Dataophalencopypaste Macro
'
Application.DisplayAlerts = False
'
Sheets("Evsenergy").Range("A1:N100").Copy
Sheets("Data").Select
[A1].Select
ActiveSheet.Paste
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Bekijk bijlage Kopie van 2044_Gas_YMR_541448812000498756-1.xlsx

Is dit wat je bedoeld?

 

[VenA]

Maak er eerst eens een vraag van en zorg ervoor dat alles wat je benoemt ook aanwezig is in de voorbeeld bestanden. Zoals door JanBG terecht opgemerkt zijn er bepaalde zaken niet te vinden.

De rood gemarkeerde zaken ontbreken

Sub Dataophalencopypaste()
  Workbooks.Open Filename:="C:\Dropbox (EVS)\E CFG_DATA" & [COLOR="#FF0000"]Datafile[/COLOR], UpdateLinks:=3
  Sheets("[COLOR="#FF0000"]Evsenergy[/COLOR]").Range("A1:N100").Copy Workbooks([COLOR="#FF0000"]CFfile[/COLOR]).Sheets([COLOR="#FF0000"]"Data"[/COLOR]).Cells(1)
  Workbooks([COLOR="#FF0000"]Datafile[/COLOR]).Close
End Sub

Leg ook even uit wat het resultaat moet worden.

 

[VenA]

beste,
Ik plaats niet graag de files hier zomaar. ( zou niet graag mijn job verliezen) Maar ik zie niet waar ik ze via een prive bericht kan doorsturen?
En sowieso al bedankt voor de hulp.
@ VenA : jou verandering juist geprobeerd maar krijg nog steeds cellen waar de getallen veranderd zijn in tekst.
Dus de bedoeling is om de data in de datafile identiek in de CF file te krijgen.
beste groeten

Het communiceren via privéberichten heeft bij weinig nut. En voor dit forum nog minder als het om een vraag gaat.

Dat mijn code het niet doet lijkt mij evident. Het is alleen een inkorting van het geheel dat al geplaatst is. In de geplaatste voorbeeldjes zijn het getallen en .copy zal er geen tekst van maken.

Misschien zo

Workbooks.Open Filename:="C:\Dropbox (EVS)\E CFG_DATA" & Datafile, UpdateLinks:=3,Local:=True