Verplaatsen met een controle ingebouwd

[HWV]

Beste,

Ik ben bezig met een conversie van Prijsafspraken.
Ik moet dus rekening houden met artikelnummer en debiteurennummer.
Om een uniek nummer daardoor te krijgen heb ik Artikelnummer ( kolom C ) en Debiteurenummer ( kolom B ) samengevoegd.
Met dit unieke nummer wil ik vertikaal zoeken om gegevens te verplaatsen naar de sheet "PAA".
Ik moet eerst deze samengevoegde cellen Definitief maken want anders kan ik niet vertikaal zoeken.

Hoe kan ik dit via een VBA script inpassen, zodat dit niet handmatig gedaan hoeft te worden

Ik heb in de sheet "OpslagPrijsafspraken" in kolom H aangegeven of deze "bestaat" en dus moet worden ingelezen naar sheet "PAA", in kolom J staat of deze niet moet worden ingelezen.

Wat ik graag wil bereiken is dat ik de juiste Prijs van Kolom I transporteer met vertikaal zoeken naar de sheet "PAA" kolom R.
Maar hij moet wel rekening houden met kolom H uit de sheet "OpslagPrijsafspraken"
Want anders moet hij geen prijs neerzetten.

Ik heb de volgende VBA script wat wel al de prijs verplaatst maar nog geen rekening houd of het wel of niet moet worden ingelezen:

Sub Verplaatsen_OpslagPrijsafspraken()
On Error Resume Next
    For j = 2 To Sheets("PAA").Cells(Rows.Count, 1).End(xlUp).Row
   With Sheets("OpslagPrijsafspraken").Columns(1).Find(Sheets("PAA").Cells(j, 1).Value)
     .Offset(, 8).Copy Sheets("PAA").Cells(j, 17)
    End With
  Next
End Sub

Ik pas deze VBA script in een bestaand script, die automatische de sheet PAA heeft gegenereerd. Vandaar dat ik de oplossing ook graag in VBA wil hebben.

Bovenstaand script is verwerkt in het voorbeeld

Groet HWV

 

[snb]

Als je de regel

  .Offset(, 8).Copy Sheets("PAA").Cells(j, 17)

begrijpt, weet je ook het antwoord op je vraag.

 

[HWV]

Begrijpen , nog niet helemaal

Beste SNB,

Bedankt weer voor uw reactie.

Begrijpen is een groot woord.

Offset(, 8).Copy Sheets("PAA").Cells(j, 17)

Copy de 8ste kolom naar Sheet kolom 17.
Dat haal ik er uit en dat begrijp ik.
Maar waar de offset en de Cells(J voor staan begrijp ik nog niet nee.

Ik zie ook niet het verband om daar, in te verwerken zodat hij in andere kolomen kijk of het voldoet aan een bepaalde waarde.

Groet HWV

 

[snb]

Zoek in de hulpfunktie van de VBEditor op Find (methode) en op Offset.
Word je een hoop wijzer van.

 

[HWV]

Niet veel wijzer

Beste SNB,

Helaas kan ik niet binnen een dag , week , maand VBA onder de knie krijgen.
Wat ik wel probeer is het te begrijpen.
Ik heb u al eerder uit gelegd waarom dit niet altijd mogelijk is.
Ik blijf het proberen, om het te begrijpen.
Soms lukt het, en soms is het gewoon koffiedik kijken voor me dat ik er helemaal niks van begrijp.Maar sta elke keer weer verbaasd dat het mogelijk is.

Ik kom er vaak wel uit maar dat zal met formule`s in excel en duurt wat langer, terwijl VBA zoveel sneller werkt.Daarom zit ik ook hier op het forum om te kijken of er mensen zijn zoals u die mij willen helpen.

Groet Henk

 

[Warme bakkertje]

Henk, onderstaande maakt al je formules in de Akolom definitief

Sub Definitief()
    For j = 4 To Sheets("OpslagPrijsafspraken").Cells(Rows.Count, 1).End(xlUp).Row
        Sheets("OpslagPrijsafspraken").Cells(j, 1).Value = Sheets("OpslagPrijsafspraken").Cells(j, 1).Value
    Next
End Sub

Mvg

Rudi

 

[HWV]

Bedankt

Rudi,

Wederom weer bedankt voor jou bijdrage.
Ik heb het getest, maar zal morgen het tetsten op het orginele bestand.

Bedankt voor de genomen moeite, ik ben erg blij dat er toch nog mensen zijn die mij hiermee wille helpen.

Groet Henk:thumb: