cel wijzigen ander ook mee wijzigen

[sloekie]

Hallo Harry

deze code moet de datum opschuiven naar links u3 naar g3 en de rest rechts van g3 t/m gb105 moet dan ook mee naar links geschoven worden.

als ik de tijd verander dan gaat hij naar het jaar 2122 hoe kan dat dan

Gr. Adrie

 

[HSV]

Is dit dan niet veel eenvoudiger?

Private Sub Nieuweweek_Click()
   Application.EnableEvents = False
     Range("G3") = Range("G3") + 7
   Application.EnableEvents = True
End Sub

 

[sloekie]

dit is wel makkelijker maar de cellen die er onder liggen moeten ook opschuiven. de 7 dagen zeg maar van g4 t/m v105 moeten als het waren verwijdert worden en de rest moet dan op geschoven worden.

gr. Adrie

 

[HSV]

Test deze even in een nieuw testbestandje.
Nu ben je ook van de formules af op rij drie.

Private Sub Nieuweweek_Click()
 Application.EnableEvents = False
  Range("G3") = Range("G3") + 7
   For kolom = 9 To 247 Step 2
    Cells(3, kolom) = Cells(3, kolom - 2) + 1
   Next
 Range("G4:V" & Cells.SpecialCells(xlCellTypeLastCell).Row).Delete (xlShiftToLeft)
Application.EnableEvents = True
End Sub

 

[sloekie]

Ik zou wel willen dat ik in g3 de datum kan veranderen en dat dan de andere datums ook meegaan b.v g3 komt 05-05-2011 moet in I3 en de rest datum automatisch veranderen want het kan een keer gebeuren dat men 2x op de knop klikt van nieuwe week.

Adrie

 

[HSV]

Ik heb hier en daar wat aangepast Adrie.

 

[sloekie]

Hallo Harry

Als ik door klik op nieuwe week dan worden de cellen verwijdert kan dit ook anders zodat de cellen wel blijft staan want dat deed hij wel in die andere code.


Gr. Adrie

 

[HSV]

Wat je nu schrijft strookt niet helemaal met #23 van je.

 

[sloekie]

Sorry mij fout dit had inhoud moeten zijn die hij verwijdert en als het ware dat hij dan de rest kopieert en plakt rechts van V3 zo was mijn bedoeling met die code

Adrie

 

[HSV]

Adrie,

Kun je uitleggen wat de bedoeling is van hetgeen wat je wil bereiken, en om welke cellen het gaat.
Waarom worden er cellen verwijderd (kan ik nog inkomen, omdat de datum niet relevant meer is misschien), en waarom moet de rest naar rechts gekopiëerd worden Dan komt de data niet meer overeen met de datums toch?).

 

[sloekie]

Hallo Harry

heb je die andere code nog?
want als ik die gebruik dan wist hij de inhoud tot u3 en kopieert hij de inhoud vanaf v3 alles naar g3
ik hoop dat je er uit komt van mijn omschrijving.

Adrie

 

[HSV]

Hallo Adrie,

Nee daar kom ik helaas niet uit.
Je geeft geen antwoord op mijn gestelde vragen, dus kan ik er weinig mee.
De andere code zal ergens in mijn vorige schrijven moeten staan.

 

[sloekie]

Hallo Harry

ik zal proberen uit te leggen wat ik bedoel.
Hij moet de datum uit u3 kopieren naar g3 hierdoor veranderd de datums als het goed is automatisch.
En hij wist ook de inhoud van G4 t/m S105 dit doet hij eerst.
En hij moet alle inhoud kopieeren wat in S4 t/m IN105 staat naar G4

De code die ik gebruikte:

Private Sub Nieuweweek_Click()
ActiveWindow.SmallScroll ToRight:=9
    Range("S4:in105").Select 
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-90
    Range("S4").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("U15").Select
    Application.CutCopyMode = False
    Range("u3").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("T17").Select
    Application.CutCopyMode = False
    Range("u3:in105").Select
    Selection.Copy
    Range("g3").Select
    ActiveSheet.Paste
    Range("I27").Select
    ActiveWindow.ScrollColumn = 212
    ActiveWindow.SmallScroll Down:=-15
    Range("HG4:in105").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-105
    Range("HU3").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.SmallScroll Down:=-30
   
    
End Sub

Ik hoop dat ik het nu wat beter heb uitgelegd.

Kun jij de code ook aanpassen?

Gr. Adrie

 

[HSV]

Dan zou het zo toch ook moeten kunnen?
Het verwijderd G3:U?? en alles schuift op naar links.
Achteraan op rij 3 wordt alles weer netjes aangevuld met datum en opmaak en op rij 2 wordt automatisch de dag van rij 3 bijgehouden.

 

[sloekie]

Hallo Harry

Sorry voor de late reactie de computer waar ik excel heb opstaan is mij gecrasht.
Ik reageer nu via een andere com die heeft dit er niet op staan
Ik ga vanmiddag of morgen ms office op deze zetten.
Dan hoor je het wel of het goed is.
Alvast bedankt :thumb::thumb::thumb:


Gr. Adrie

 

[sloekie]

Hallo Harry

ik heb jouw bijlage bekeken en geprobeerd maar als je een paar keer op nieuwe week klik dan verdwijnt aan het einde de opmaak en de tekst behandelstap.

Gr. Adrie

 

[HSV]

Waar staat in tabblad 'Voorraad' de tekst 'behandelstap', en in hetzelfde tabblad verdwijnt ook nergens de opmaak.

Ik denk dat ik het hierbij maar bij laat.
Ik heb geen zin meer in het heen en weer gedoe.
Het lijkt wel of alles van mijn kant moet komen, nergens een voorbeeld van jou met hoe of wat het moet worden.

Doch succes gewenst Adrie.

Met vriendelijke groet.

 

[sloekie]

Beste Harry

mag ik jouw van harte bedanken voor al je hulp.

:thumb::thumb::thumb:


Gr Adrie