terug plaatsen van gegevens

[Norbert1964]

Hoi allemaal.
Ik ben hier prima geholpen met een wegschrijf macro.
Nu zou ik graag het volgende willen:

hoe krijg ik de gegevens vd eindtellerstand in tabblad gegevens (kolom D ) weer terug bij het goede matrijsnummer in tabblad PO (kolom G)?
Dus eigenlijk de actuele tellerstanden.

Norbert

 

[emields]

Lees ik goed dat je een bestaande nummer wil vervangen door een nieuwe zonder anders iets te veranderen?

 

[Norbert1964]

Hoi Emields
Ja dat klopt.
In tabblad gegevens worden de gegevens verzameld.
De gewijzigde tellerstand zou ik graag weer in tabblad PO zien bij het goede matrijsnummer.
Ik weet niet of dit geregeld kan worden in de bestaande macro?

Norbert

 

[emields]

voldoet dit?

 

[Norbert1964]

terugplaatsen gegevens

Hartstikke goed. Ik snap het nog niet helemaal, maar ik duik er nog in (carnaval).
Heel erg bedankt.
Norbert

 

[HSV]

Dit zal beter werken.

Sub Knop1_Klikken()
Dim cl As Range, c As Range
 For Each cl In Sheets("gegevens").Range("a6", Sheets("gegevens").Cells(Rows.Count, 1).End(xlUp))
  If cl.Offset(, 3) <> "" Then
   Set c = Sheets("PO").Columns(1).Find(cl.Value)
     If Not c Is Nothing Then c.Offset(, 6) = cl.Offset(, 3).Value
  End If
 Next cl
End Sub

 

[Norbert1964]

terugplaatsen gegevens

beste HSV
Waarom zou dat beter werken?
Norbert

 

[HSV]

Vul maar eens iets in kolom A van blad 'gegevens' in wat niet in blad 'PO' staat.

Dit stukje code van @emields zal niets uithalen.

If Not c Is Nothing Then
                 End If

En: Ik ben ook geen voorstander van vaste bereiken in codes.

 

[Norbert1964]

ja ik zie wat je bedoeld.

Norbert

 

[Norbert1964]

terugplaatsen gegevens

Hoi Harry.
Als ik hetzelfde wil voor een aantal andere gegevens b.v. in kolom N in tabblad gegevens (vervaldatum)
hoe moet ik de code dan eventueel aanpassen?

Norbert

 

[HSV]

Om in hetzelfde structuur te blijven.

Sub Knop1_Klikken()
Dim cl As Range, c As Range
 For Each cl In Sheets("gegevens").Range("a6", Sheets("gegevens").Cells(Rows.Count, 1).End(xlUp))
  If cl.Offset(, 3) <> "" Then
   Set c = Sheets("PO").Columns(1).Find(cl.Value)
     If Not c Is Nothing Then
         c.Offset(, 6) = cl.Offset(, 3).Value
         c.Offset(, 12) = cl.Offset(, 13).Value
     End If
  End If
 Next cl
End Sub

 

[Norbert1964]

terugplaatsen gegevens

bedankt maar weer. het helpt me flink op weg.
Norbert