Dear forummembers,
Sameone can create a macro for my excel file:
As i have 3 tabs: denemarken, engeland, finland
These are datas for 1 day
Now i want to collect these data in the data tab for many days.
Can sameone create a macro that all those 3 tabs goes to the data tab.
These 3 tabs change evryday but i want those datas in one big overview for many days.
Sameone can create a macro inside the data tab?
Thanks in advance,
Jeroen Dijkwel
You could copy all the data from each sheet using UsedRange, from your post its unclear what you want to do.
From the post it sounds like you want to copy all 3 sheets data to one sheet. I'd record a macro of you doing this, then view the code for the best place to start.
Hope this helps
Sometimes its best to start at the beginning and learn VBA & Excel.
Please dont ask me to do your work for you, I learnt from Reading books, Recording, F1 and Google and like having all of this knowledge in my head for the next time i wish to do it, or wish to tweak it.
Available for remote consultancy work PM me
These 3 tabs, Engeland,Finland and denmark i want to collect these 3 temperatures into one data tab.
For now its only mentioned for 1 day but i want these data into one tab for more days then one.
So is there a way that the data is collecting into one data tab. Or i need to cntrl c and cntrl v these data evryday ?
Notice my main language is not English.
I appreciate it, if you reply on my solution.
If you are satisfied with the solution, please mark the question solved.
You can add reputation by clicking on the star * add reputation.
Tja daar wordt geen zinnig antwoord opgegeven
Please Login or Register to view this content.
You are on an englisch forum, so please respond in english.Please Login or Register to view this content.
Dear oeldere,
I understand the macro now. but it only records for one day.
I want these seperate dates in one big data tab.
Now it only copy's the 3 data tabs for one day. And he is not collecting this information
Last edited by jeroendijkwel; 06-30-2014 at 06:01 AM.
each day is a differant file?
No, This tab engeland finland and denmark changes evryday.
These tabs are forwarded by email.
But i want these records in one big tab(summary)
So when i click on the macro he is collecting these data in the summary tab.
Also can you create that he takes the date =Today()
to seperate these data in dates.
And it is not neccesary to copy Onderverdeling cellen Gewenste opslag temperatuur Kritische opslag temperatuur Afwijking (werkelijke temperatuur) Oorzaak afwijking Actie
Only the first collum needs that + mentioned with copied data.
Its needs to look like this:
Date:30-06-2014
Onderverdeling cellen Gewenste opslag temperatuur Kritische opslag temperatuur Afwijking (werkelijke temperatuur) Oorzaak afwijking Actie
data
data
data
data
etc
So now tomorrow these temperatures has changed and i will adjust them into the file engeland,finland,denmark
Then i click again on the macro and it will copy the cells with the new date
date: 31-06-2014
Onderverdeling cellen Gewenste opslag temperatuur Kritische opslag temperatuur Afwijking (werkelijke temperatuur) Oorzaak afwijking Actie
data
data
data
data
etc.
hope's this makes it clear.
Last edited by jeroendijkwel; 06-30-2014 at 06:16 AM.
It needs to look this this:
ub Macro7()
'
' Macro7 Macro
'
'
Sheets("Denemarken").Select
Range("A4:G4").Select
Selection.Copy
Sheets("Summary").Select
ActiveSheet.Paste
Range("A2").Select
Sheets("Denemarken").Select
Range("A10:G56").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Summary").Select
ActiveSheet.Paste
Sheets("Engeland").Select
Range("A10:G29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Summary").Select
ActiveWindow.SmallScroll Down:=12
Range("A49").Select
ActiveSheet.Paste
Sheets("Finland").Select
ActiveWindow.SmallScroll Down:=-9
Range("A10:G57").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Summary").Select
ActiveWindow.SmallScroll Down:=30
Range("A69").Select
ActiveSheet.Paste
Range("H69").Select
ActiveWindow.SmallScroll Down:=33
End Sub
But now he needs to seperate these dates under each other and not subsitute
It needs to look this this:
ub Macro7()
'
' Macro7 Macro
'
'
Sheets#"Denemarken"##Select
Range#"A4:G4"##Select
Selection#Copy
Sheets#"Summary"##Select
ActiveSheet#Paste
Range#"A2"##Select
Sheets#"Denemarken"##Select
Range#"A10:G56"##Select
Application#CutCopyMode = False
Selection#Copy
Sheets#"Summary"##Select
ActiveSheet#Paste
Sheets#"Engeland"##Select
Range#"A10:G29"##Select
Application#CutCopyMode = False
Selection#Copy
Sheets#"Summary"##Select
ActiveWindow#SmallScroll Down:=12
Range#"A49"##Select
ActiveSheet#Paste
Sheets#"Finland"##Select
ActiveWindow#SmallScroll Down:=-9
Range#"A10:G57"##Select
Application#CutCopyMode = False
Selection#Copy
Sheets#"Summary"##Select
ActiveWindow#SmallScroll Down:=30
Range#"A69"##Select
ActiveSheet#Paste
Range#"H69"##Select
ActiveWindow#SmallScroll Down:=33
End Sub
But now he needs to seperate these dates under each other and not subsitute
@Jeroendijkwel
Please use tag # around your code.
This date doesn't existPlease Login or Register to view this content.
ok 01-07-2014 then, but can you adjust this macro wich you made for me.
because i dont understand to adjust this one..
I hope it is clear what i mentioned in my latest posts how it should look like when i run the macro !
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks