Cel moet andere cel overschrijven en kleuren

[fredo2805]

De bedoeling is als ik op ("sheet uitgaven" cel d8)een getal ingeef,dat dit getal het getal in ("sheet Jaarlijkse" cel c7)gaat vervangen en dat deze automatisch een gele opvulkleur gaat krijgen als dit gebeurt is.

 

[jolivanes]

Zo iets?
In het VBA blad van Uitgaven zetten.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Address = "$D$8" Then
With Sheets("Jaarlijkse").Range("C7")
.Value = Sheets("Uitgaven").Range("D8").Value
.Interior.ColorIndex = 27
End With
End If

End Sub

BTW Eerst de extra space aan het einde van de naam van het tweede (Uitgaven) blad halen

 

[fredo2805]

Zo iets?
In het VBA blad van Uitgaven zetten.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Address = "$D$8" Then
With Sheets("Jaarlijkse").Range("C7")
.Value = Sheets("Uitgaven").Range("D8").Value
.Interior.ColorIndex = 27
End With
End If

End Sub

BTW Eerst de extra space aan het einde van de naam van het tweede (Uitgaven) blad halen

Begrijp er niets van,zou je mijn voorbeeld aangepast kunnen terugposten

 

[jolivanes]

Kijk of dit werkt voor je.
Mijn Nederlands is niet al te goed meer. Mijn verontschuldiging daarvoor.

 

[fredo2805]

Kijk of dit werkt voor je.
Mijn Nederlands is niet al te goed meer. Mijn verontschuldiging daarvoor.

Dit is perfect

Alle dank

 

[fredo2805]

Hoe kan ik dit nu snel doen voor de volgende maanden,want dit is maar één van de zoveel?

 

[Roncancio]

Hoe kan ik dit nu snel doen voor de volgende maanden,want dit is maar één van de zoveel?

In plaats van VBA kan je ook verwijzen naar de betreffende cel.
Dus:
- selecteer C7 van "jaarlijkse"
- Type in =
- Ga naar cel D8 van "Uitgaven"
- Klik op Enter

De waarde van cel D8 wordt nu automatisch overgenomen in cel C7 (van jaarlijkse).

Met vriendelijke groet,


Roncancio

 

[fredo2805]

In plaats van VBA kan je ook verwijzen naar de betreffende cel.
Dus:
- selecteer C7 van "jaarlijkse"
- Type in =
- Ga naar cel D8 van "Uitgaven"
- Klik op Enter

De waarde van cel D8 wordt nu automatisch overgenomen in cel C7 (van jaarlijkse).

Met vriendelijke groet,


Roncancio

Het zou de bedoeling moeten zijn zoals hierboven(bij jolivanes),Dan blijft het oude getal staan tot ik een nieuw ingeef.
Alleen begrijp ik niet veel van het visual basic gebeuren,Ik kan dit wel helemaal over typen maar ik heb dit nodig voor alle maanden en nog in veel meer sheets.
Daarom zoek ik een snelle manier van ingeven,of moet ik dit helemaal overtypen voor elke cel waar dit van toepassing moet zijn?

 

[jolivanes]

Dit is zoals Roncancio voorstelde. Beter geloof ik dan met een macro. Het maakt ook gebruik van Conditional Formatting.
Probeer het maar eens en zie wat je er van denkt.

HTH
John

 

[fredo2805]

Dit is zoals Roncancio voorstelde. Beter geloof ik dan met een macro. Het maakt ook gebruik van Conditional Formatting.
Probeer het maar eens en zie wat je er van denkt.

HTH
John

Nee dit is niet de bedoeling,de bedoeling is zoals jij gefixt hebt met je eerste oplossing.
De blijven de oude getallen in jaarlijkse behouden tot ik nieuw ingeef in uitgaven.

 

[Roncancio]

Onderstaande code werkt voor alle maanden.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
    If Not Intersect(Target, Range("D8:O8")) Is Nothing Then
        With Worksheets("Jaarlijkse").Cells(7, Target.Column - 1)
            .Value = Target.Value
            .Interior.ColorIndex = 27
        End With
    End If
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[fredo2805]

Onderstaande code werkt voor alle maanden.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
    If Not Intersect(Target, Range("D8:O8")) Is Nothing Then
        With Worksheets("Jaarlijkse").Cells(7, Target.Column - 1)
            .Value = Target.Value
            .Interior.ColorIndex = 27
        End With
    End If
End If
End Sub

Dit is precies wat ik bedoelde,maar mijn eigenlijk werkblad is een stuk groter en daar ga ik deze code regelmatig willen in toepassen,maar daarom zou ik iets meer uitleg willen.
Zou je me de bovenstaande code nu eens in mensentaal kunnen uitleggen?

 

[Roncancio]

Dit is precies wat ik bedoelde,maar mijn eigenlijk werkblad is een stuk groter en daar ga ik deze code regelmatig willen in toepassen,maar daarom zou ik iets meer uitleg willen.
Zou je me de bovenstaande code nu eens in mensentaal kunnen uitleggen?

Eerst wordt gecontroleerd of 1 cel is gewijzigd.
Vervolgens wordt gekeken of de gewijzigde cel in het bereik D8 t/m O8 is.
Is dat het geval dan wordt in het werkblad Jaarlijkse op de 7e rij van de gewijzigde kolom -1 (dus D8 --> C7, E8 --> D7, F8 --> E7, etc.
Tevens krijgt het de gele kleur.
Je zou overigens ..

.Interior.ColorIndex = 27

..kunnen wijzigen in ..

.Interior.Color = vbYellow

Met vriendelijke groet,


Roncancio