Indsæt kopieret tekst i userform
Jeg har en userform, hvor jeg gerne vil have indsat et tal fra den aktive celle, eller cellen 3 til højre for den aktive celle (hvordan vælger jeg cellen 3 til højre? activecelle.select (0,-3).copy) eller?Jeg har lavet en makro der tager en kopi af den aktive celle, men kan ikke få den til at sætte værdien ind i userformen?
Først kører jeg "Kopi" makroen, derefter "Userformen"
Min makro der er knyttet til knappen ser sådan ud
Sub ShowUserInfoForm()
ActiveCell.Copy
' Vis dialogboks
frmUserInfo.Show
ActiveCell.PasteSpecial
' Luk pænt ned
Set frmUserInfo = Nothing
Application.CutCopyMode = False
End Sub
********
Min Userform ser sådan ud
Dim dTal As Double
'Indtastningfelt 1
With txt1
If IsNumeric(.Text) = False Or Len(.Text) = 0 Then
.Text = ""
MsgBox "Det skal være et tal"
.SetFocus
Exit Sub
Else
'Teksten konverteres til et tal
dTal = CDbl(.Text)
End If
End With
'Tallet indsættes i celle B2
Range("B2").Value = dTal