02. december 2010 - 17:31Der er
3 kommentarer og 1 løsning
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
Til Sp.1: Forstår ikke helt hvad det er for en "afmærkning" du vil fjerne. Men du skal vel bare have en eventhandler som trigger på at du ændrer/fjerner din "afmærkning", som så slette det du vil have slettet.
Til Sp.2: Går ud fra at du tænker på din If Range("c4").Value = "50" Then
Den skal vel bare laves om til
If (intTest >= 80 And intTest <= 90) Then 'Do something End If
Du kan også bruge cases
Select Case myNumber
Case 10 To 20 'do something Case 21 To 30 'do something . . . Case 81 To 90 'do something End Select
Hej undskyld at jeg ikke har svaret, men jeg har ikke set at der var en kommentar men jeg har løst problemet ved at dataerne først bliver overført når der trykkes ok
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.