user form i opstart

- "Det men"

Hvis det kun er navnet, det skal skrives, intet andet, er der ingen grund til at bruge en userform.

Så kan du næjes med at lægge denen kode i ThisWorkbook modulet:

Private Sub Workbook_Open()
    Sheets(1).Range("d1").Value = InputBox("Indtast dit navn og klik OK", Navn)
End Sub

den skal åbne for arket...

I kodemodulet ThisWorkbook placerer du følgende

Private Sub Workbook_Open()
    Sheets("L").Range("D1").Value = InputBox("Indtast dit navn og klik OK", Navn)
End Sub

Hvis brugeren har skrevet sit navn under Tools->Options...fanebladet 'General' ... feltet 'User name' så kan det gøres pr. automatik.

Private Sub Workbook_Open()
    Sheets("L").Range("D1").Value = Application.UserName
End Sub

Hvis Jeg laver en User form Med navn "Navn" Der er et tekst felt og en ok knap.
Så den kun åbner user formen og hvis ikke man har skrevet noget i det tekst felt men bare trykker ok eller på det røde krys, skal den ikke åbne for arket... Kun hvis man skriver noget og trykker ok

Private Sub Workbook_Open()
    Navn.Show
End Sub

Hvordan forbinder jeg tekst flet og ok knappen

Du skriver at USerformen skal åbne arket, er du nødt til at placvere userformen et andet sted. Den kan ikke svæve i luften. Og hvis den skal åbne et ark, kan den ikek selv ligge i samme ark.

Så du er nødt til at lade Userformen lukke arket, hvis feltet ikke er udfyldt i stedet for at åbne det.

Men du kan forbinde OK knap og tekst felt med fx at lægge denne kode på OK knappen:

If isempty(me!textbox1) then
    workboook.close
else
    sheets(1).range("d1").value = me!textbox1
end if

Glem det. Virker ikke.

Denne er bedre:

Private Sub CommandButton1_Click()
    If Len(Me!TextBox1.Value) = 0 Then
        UserForm1.Hide
        ActiveWorkbook.Close
    Else
        Sheets(1).Range("d1").Value = Me!TextBox1
        UserForm1.Hide
    End If
End Sub

Nej virker ikke

Hvad er det, der ikke virker?

Hvor skal denne være... Hvis et modul virker den ikke i ark1 virker den ikke på Sheet virker den ikke...

Private Sub CommandButton1_Click()
    If Len(Me!TextBox1.Value) = 0 Then
        UserForm1.Hide
        ActiveWorkbook.Close
    Else
        Sheets(1).Range("d1").Value = Me!TextBox1
        UserForm1.Hide
    End If
End Sub

:S glem det har funder ud af det... jkrons kom med et svar

Ok :-)