Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste Helpmij'ers,
Ik heb een code die geactiveerd wordt als kolom A (per regel) gevuld is en kolom AE (per regel) leeg is. Wanneer dat het geval is, kijkt deze in kolom C (per regel) waar een datum staat. Nu is het de bedoeling dat kolom AE gevuld wordt met het betreffende kwartaal behorende bij de datum in kolom C. M.a.w. als in kolom C "1-1-18" staat, dan moet in kolom AE van dezelfde regel "1" geplaatst worden.
Bovenstaande code (in het rood) plaatst nu de datum i.p.v. de kwartaalaanduiding (1, 2, 3 of 4).
Alvast heel hartelijk dank.
Robert
Ik heb een code die geactiveerd wordt als kolom A (per regel) gevuld is en kolom AE (per regel) leeg is. Wanneer dat het geval is, kijkt deze in kolom C (per regel) waar een datum staat. Nu is het de bedoeling dat kolom AE gevuld wordt met het betreffende kwartaal behorende bij de datum in kolom C. M.a.w. als in kolom C "1-1-18" staat, dan moet in kolom AE van dezelfde regel "1" geplaatst worden.
Code:
Sub test()
Dim cell As Range
For Each cell In Range("AE13:AE1500")
If cell.Value = "" Then
If cell.Offset(, -30).Value <> "" Then
cell.Offset(, 0) = [COLOR="#FF0000"]cell.Offset(, -28).Value[/COLOR]
Else
cell.Offset(, 1) = ""
End If
End If
Next
End Sub
Bovenstaande code (in het rood) plaatst nu de datum i.p.v. de kwartaalaanduiding (1, 2, 3 of 4).
Alvast heel hartelijk dank.
Robert
Laatst bewerkt: