Beste Forumleden,
Met de volgende formule laat ik door rBereik een sheet aanmaken.
Nou wil ik iets aanpassen om de formule compleet te maken.
De volgende functies moeten erin gemaakt worden en ik weet echt niet hoe
Kan iemand mij helpen >?
Alvast bedankt,
Met de volgende formule laat ik door rBereik een sheet aanmaken.
Nou wil ik iets aanpassen om de formule compleet te maken.
De volgende functies moeten erin gemaakt worden en ik weet echt niet hoe
- Als B = leeg of 0 dan volgende
- Als Range(B).Value >= rBereik.Value dan melding sheet is aanwezig
- De melding dat de sheet(s) aangemaakt zijn pas aan het einde
Code:
Sub sheetsaanmaken()
Dim rBereik As Range
Dim A As Integer
Dim B As String
Dim C As Integer
For Each rBereik In Range("D64: D68")
A = rBereik.Value
B = rBereik.Offset(0, -2)
If Not Range(B).Value >= rBereik.Value Then
C = rBereik.Value - Range(B).Value
Range(B).Value = A
For numtimes = 1 To C
Worksheets(B).Visible = True
Worksheets(B).Copy After:=Worksheets(B)
Worksheets(B).Visible = False
Next
MsgBox "Loadcell sheet(s) word(en) aangemaakt"
Else
If Range(B).Value = "0" Or Empty Then
Else
If Not Range(B).Value >= rBereik.Value Then
MsgBox "Loadcellsheet reeds aanwezig"
End If
End If
End If
Next
End Sub
Kan iemand mij helpen >?
Alvast bedankt,