Beste,
Ik zit met een probleempje op mijn werk. Ik heb een voorraadlijst en daarin staan ook verwachte voorraad (niet bij alle producten), en deze moet dan verplaatst worden naar de plek waar de huidige voorraad staat.
Ik heb nu deze macro, maar krijg hem niet werkend.
Sub Macro2()
[If ("B:b")="verwachte kostprijs inbegrepen" Then Range("D:H").Select Range("D:H").Cut Destination:=Range("G:K") Range("G:K").Select]
Delete.row ("B:b")
End Sub
Hij moet zeg maar kijken of er in kolom B de tekst "verwachte kostprijs inbegrepen" staat. Als dit zo is moet hij in die rij D:H kopieren en plakken in de rij daarboven in G:K (voorbeeld als B12 ="tekst" dan copie D12:H12 en dat plakken in G11:k11, over de waarde die er al staan heen). Daarna als hij dit gedaan heeft moet hij rij B12 verwijderen.
Is er iemand die mij hierbij kan helpen? Dan kan ik eventueel een voorbeeld bestand er bij zetten als dat makkelijker is.
Met vriendelijke groeten,
Mark
Ik zit met een probleempje op mijn werk. Ik heb een voorraadlijst en daarin staan ook verwachte voorraad (niet bij alle producten), en deze moet dan verplaatst worden naar de plek waar de huidige voorraad staat.
Ik heb nu deze macro, maar krijg hem niet werkend.
Sub Macro2()
[If ("B:b")="verwachte kostprijs inbegrepen" Then Range("D:H").Select Range("D:H").Cut Destination:=Range("G:K") Range("G:K").Select]
Delete.row ("B:b")
End Sub
Hij moet zeg maar kijken of er in kolom B de tekst "verwachte kostprijs inbegrepen" staat. Als dit zo is moet hij in die rij D:H kopieren en plakken in de rij daarboven in G:K (voorbeeld als B12 ="tekst" dan copie D12:H12 en dat plakken in G11:k11, over de waarde die er al staan heen). Daarna als hij dit gedaan heeft moet hij rij B12 verwijderen.
Is er iemand die mij hierbij kan helpen? Dan kan ik eventueel een voorbeeld bestand er bij zetten als dat makkelijker is.
Met vriendelijke groeten,
Mark