Skriv/Læs til/fra Userform

Lidt hjælp på vejen (uddrag):

Private Sub UserForm_activate()                'Når Userformen aktiveres
    ActiveWorkbook.Sheets("Samle").Activate    'Aktivere samle-Arket
    Me.TextBox1 = Cells(2, 4)                  'hentes fra celle D2 - vises i TB1
   
End Sub
Private Sub Commandbutton1_click()              'Ved klik på knap i userform
    Cells(2, 2) = Me.TextBox2                  'Insæt værdien af TB2 i celle B2
End Sub

Ok vil lege lidt med, Så er du klar til at hjælpe mig igen, jeg lære det vel en af dagene.
Er ved at se hvormange geniale ting man kan med dette, og prøver at gøre hverdagen nemmere, for os der bruger disse regneark

Ok har fået hentet den dato der er i cell D2, kan den vises i andet format end MM/DD/ÅÅ ?
Når jeg skriver til cell B4 (din B2) så skriver den ok hvad den skal, men cellen der skrives til opfatter det ikke som en dato ligegyldigt hvilket dato seprator jeg bruger . -, eller / ?
Jeg ville gerne have hentet flere celler til text box 3, 4, 5 o.s.v. Jeg har sat denne ind:
Private Sub TextBox3_Change()
ActiveWorkbook.Sheets("Samle").Activate
    Me.TextBox3 = Cells(4, 5)
End Sub
Men den henter ikke noget, celle værdien er 36 men der står ingenting i textbox3 ??

Hej krohn.
Jeg har et forslag, prøv denne lærebog om VBA og Excel som du kan købe på linket her:

http://www.libris.dk/pcoginternet/oevrige_programmer/vis_produkt/shop/excel-2003-programmering-med-vba/?cHash=9c99a8228a

Ok har hentet det eksempel "demo"  som jeg vil kigge på. Men det ser ud til at det er sådan en jeg skal have fat i. Tak for tippet

Lidt mere.....

Rem I ThisWorkBook: - men det har du måske allerede
Rem ===============
Rem Sub workbook_activate()
Rem    Load UserForm1
Rem    UserForm1.Show 0
Rem End Sub

Private Sub TextBox3_Enter()                    'Når der klikkes i TB3 - hentes indhold fra E4
    Me.TextBox3 = Cells(4, 5)
End Sub

Private Sub UserForm_activate()                'Når Userformen aktiveres
    ActiveWorkbook.Sheets("Samle").Activate    'Aktivere samle-Arket
    Me.TextBox1 = Format(Cells(2, 4), "dd-mm-yy") 'hentes fra celle D2 - vises i TB1 - dato formatteres
End Sub

Private Sub Commandbutton1_click()              'Ved klik på knap i userform
    Cells(2, 2) = Me.TextBox2                  'Insæt værdien af TB2 i celle B2
End Sub

Den kommer med en fejl: Could not set the value property. Type mismatch
Og hvis jeg køre debug kommer den op og hiligther Me.TextBox3 = Cells(4, 5) fra Private Sub TextBox3_Enter()                    'Når der klikkes i TB3 - hentes indhold fra E4
    Me.TextBox3 = Cells(4, 5)
End Sub

OK - prøv enten at vis hele koden her - eller send din fil til: pb@supertekst-it.dk

Rem I ThisWorkBook: - men det har du måske allerede
Rem ===============
Rem Sub workbook_activate()
Rem    Load UserForm1
Rem    UserForm1.Show 0
Rem End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox3_Enter()                    'Når der klikkes i TB3 - hentes indhold fra E4
    Me.TextBox3 = Cells(4, 5)
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_activate()                'Når Userformen aktiveres
    ActiveWorkbook.Sheets("Samle").Activate    'Aktivere samle-Arket
    Me.TextBox1 = Format(Cells(2, 4), "dd-mm-yyyy") 'hentes fra celle D2 - vises i TB1 - dato formatteres
End Sub

Private Sub Commandbutton1_click()              'Ved klik på knap i userform
    Cells(4, 2) = Me.TextBox2                  'Insæt værdien af TB2 i celle B4
End Sub

Håber du får glæde af bogen hvis du køber den  - jeg har lært meget af denne bogen.

Den er bestilt.

Kæmper stadig med det, men jeg vil gerne lukke her, kommer der nogle svar?

Syntes det er lidt svært :)

Kommer der nogle svar

Hej
Jeg går ud fra at du har oprettet en Workbook hvori du vil have oprettet din Userform og  VBA-kode,
-eller
Opret f.eks en ny standard Workbook med 3 ark.

På Ark2 i celle A2 indtastes f.eks teksten "Test"

Opret en komandoknap på Ark2.

Opret i VBA en ny Userform.
Indsæt en textboks på Userformen.
Indsæt en komandoknap (ok) på userformen

Indsæt følgende kode under Userformen:

Private Sub UserForm_Activate()

  With TextBox1
    .Value = Sheets("Ark2").Range("A2").Value
  End With
 
  TextBox1.SetFocus
End Sub

Private Sub CommandButton1_Click()

  Sheets("Ark1").Select
   
  Range("A1").Select
  Selection.EntireRow.Insert
   
  Range("A1").Activate
   
  With ActiveCell
  .Value = TextBox1.Value
  .Offset(0, 2).Value = Date
  End With
   
  Sheets("Ark2").Select
   
  Range("A1").Select
   
  End

End Sub

Indsæt følgende kode i VBA under Ark2:

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

-Nu kan du teste din userform ved og trykke på knappen på Ark2.
Teksten i celle A2 på Ark2 kommer ind i textboksen når Userfomen startes.
Ved tryk på komandoknappen på formen indsættes teksten, eller den du skriver i textboxen i celle A1 på Ark1, og der indsættes dato i celle A3.
- Var det lidt i den retning du manglede ???

Skal vi lukke her, kommer der nogle svar?

??

Hej! Prøvede du aldrig mit forslag, eller var det ikke noget du kunne bruge ?????

Jeg endte med en anden, men jeg vil gerne give point for brugt tid :)
Private Sub CommandButton2_Click()
Worksheets("3").Activate


c = 15
Do Until Worksheets("3").Cells(c, 1) = ""
  c = c + 1
  Loop
Cells(c, 1) = UserForm1!TextBox2.Value



UserForm1!TextBox2.Value = ""

End Sub

Håber du fik dit problem løst, hvordan det blev løst gør ikke så meget, bare du er tilfreds, og så er der jo mulighed for her på siden og få nogle nye indput, så man kan komme videre med andre ting.