Twee werkbladen, 1 informatie

[smapat19]

Hoi, ik heb een probleem waarbij ik geen oplossing kan vinden. Hopelijk dat jullie mij kunnen helpen:

het volgende heb ik tot nu toe:

WS1
DATE Number
18 jul 1234

WS2
DATE NUMBER ....
18 jul 1234

De volgende dag komt er via een macro de gegevens van 19 juli in WS1
Dan krijgen we :

WS1
DATE Number
19 jul 5678

Probleem is nu dat ik in mijn WS2 niet de gegevens van 18 jul kan behouden, maar deze worden ook geupdate naar 19 jul. Dus ik krijg in WS1 de gegevens van 19 jul, en in WS2 ook.
Maar ik zou het volgende willen zien :

WS1
DATE Number
19 jul 5678

WS2
DATE NUMBER
18 jul 1234
19 jul 5678
etc.......


Hoe kan ik dit doen?

Alvast bedankt.

Groeten,

Amit

 

[Wigi]

De volgende dag komt er via een macro de gegevens van 19 juli in WS1

Geef hier eens wat meer info over. Hoe "komt dat binnen"?

 

[smapat19]

Hoi,

Ik heb een temp worksheet waar ik de gegevens plak. En daarna kopieer ik de gegevens in WS1 met behulp van een macro.

Het probleem ligt echter bij WS2, waar ik de gegevens van 18 juli verlies als ik in WS1 de gegevens van 19 juli heb staan.
Ik weet niet hoe ik dit zou moeten voorkomen.

In principe zou ik alles moeten kunnen wijzigen in WS1, zonder dat WS2 gegevens geupdate zouden worden.

Groeten,

Amit

 

[Wigi]

Geef de huidige macro dan eens. Ik veronderstel dat we dat gewoon lichtjes kunnen aanpassen zodat het doet wat je wilt.

Wigi

 

[smapat19]

Eerst sorteer ik de data op volgorde, dan neem ik de twee bovenste als piek.


Sub Sort_Data()
'
' Sort_Data Macro
' De macro is opgenomen op 3-8-2006 door Amit Sampat.
'

'
Range("C2045").Select
Selection.Sort Key1:=Range("D21"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Sub Piek_Date_Time()
'
' Piek_Date_Time Macro
' De macro is opgenomen op 3-8-2006 door Amit Sampat.
'

'

Dim teller As Integer


Sheets("Blad2").Select
Range("I34").Select
Selection.Copy
Sheets("Blad1").Select
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Blad2").Select
Range("I32").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blad1").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

teller = [d1] + 1

Range("d1").Row = teller



End Sub

 

[smapat19]

Tue. 18 Jul. 2006
Total 953.519

Details

Time (CEDT) Selected Day
1. Total 953.519
2. 11 AM 72.910
3. 10 AM 70.755
4. 12 PM Jul 18 69.884

Dit heb ik in mijn geplakte versie. Deze versie verandert elke dag. De total en de max moet ik op WS2 zien te krijgen.

Maar als ik dan de gegevens van 19 julie krijg, moeten die van 18 juli er ook nog staan.

 

[Wigi]

En wat zou dit moeten doen?

teller = [d1] + 1
    
    Range("d1").Row = teller

 

[Wigi]

Is WS1 trouwens hetzelfde als Blad1 en WS2 hetzelfde als Blad2?

 

[smapat19]

ja die teller is verkeerd.

Ik probeerde dus een rij verder de informatie te zetten voor 19 juli. maar dit lukte niet.
WorkSheet 1 is hetzelfde als Worksheet 2, met het verschil dat worksheet 2 dagelijks een update krijgt met andere data. Worksheet 1 moet alle data vanaf 18 juli verzamelen.

 

[Wigi]

En hoe refereer je dan aan WS1 en WS2 in de code?

 

[smapat19]

uhm..niet...
daar moet er dus een code voor komen die de data kan bijhouden van dag tot dag.

Ik kom er tot nu toe niet uit

 

[Wigi]

Wat ik moet weten is

begincel:

- wat is de naam van het werkblad?
- over welke cel gaat het? rij? kolom?

doelcel:

- wat is de naam van het werkblad?
- over welke cel gaat het? rij en kolom?
(en hier denk ik dus: de cel onder de laatste gevulde. Klopt dit?)

Dan gaat het zeker lukken.

 

[smapat19]

Ik voeg hierbij een klein doc met voorbeeld, dan kan je zien wat ik precies bedoel.

Wegens security regels mag ik niet alles vrij geven


Groeten

 

[smapat19]

trouwens,

ik moet er nu vandoor.
alvast bedankt voor jou hulp.

Groeten,
Amit

 

[Wigi]

Als je het attachment nu in het begin had bijgevoegd...

Gebruik

Worksheets("Blad1").Range("IV4").End(xlToLeft).Offset(0, 1) = Worksheets("Blad2").Range("B4")
    Worksheets("Blad1").Range("IV6").End(xlToLeft).Offset(0, 1) = Worksheets("Blad2").Range("B3")

Wigi

 

[smapat19]

Hartstikke bedankt.

Ik ga het nu gelijk proberen.

Groeten

 

[smapat19]

Deze formule werk niet.

Ik krijg steeds een fout waarbij de RANGE niet goed is.

Weet ji jhier iets meer van?

Of zou je de formule in het temp bestandje kunnen plaatsen en terug sturen?
Alvast bedankt.

 

[Wigi]

Amit

ik weet niet wat jij doet, maar bij mij werkt het perfect. Ik heb de code trouwens opgesteld op basis van het attachment.

Gewoon in VBE een nieuwe Module invoegen, dan een naam geven, bv. Copying

Sub Copying()

End Sub

en mijn code ertussen plakken.

Wigi

 

[smapat19]

hey het werkt....

ik had iets verkeerds gedaan denk ik

Hartstikke bedankt, nu kan ik gelukkig verder...


Groeten,

Amit

 

[smapat19]

Trouwens...

Ik wil graag zulke dingen leren...met al die macro'c en formules te maken.

Hoe heb jij dit gedaan? Zijn er bepaalde cursussen ofzo die je kan volgen?
Ik wil een LOI cursus volgen, maar ik denk dat daar meer basis dingen worden behandeld

Heb jij nog ideeen?