fortryde data overførsel fra en userform
Spørsål 1:Jeg har lavet følgende programmering og det virker fint nok men hvordan skal min else sætning lyde for at de indtastede data bliver slettet igen hvis jeg fjerner afmærkningen
spørgsmål 2:
jeg vil indsætte et billede når dataene er inden for et bestemt interval det virker fint med et bestemt tal men jeg kan ikke få det til at virke hvis jeg siger at intervallet skal være f.eks mellem 80 og 90
Håber at der er nogen der kan hjælpe mig.
If Me.Chb_ja_1 = True Then
Me.Chb_Nej_1.Enabled = False
ActiveWorkbook.Sheets("48").Activate
Range("b7").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = "1"
ActiveCell.Offset(0, 1) = "0"
Else
Me.Chb_ja_1.Enabled = True
Me.Chb_Nej_1.Enabled = True
End If
If Range("c4").Value = "50" Then
Me.Image1.Picture = LoadPicture("c:\billeder\ja_80til90.jpg")
Else
Me.Image1.Picture = LoadPicture("")
End If