31. oktober 2005 - 19:48Der er
7 kommentarer og 1 løsning
Tekst felt = tal
Jeg søger en formel til at kopiere efter det tal som er i det tekstfelt ud for de 12 rækker som den så skal kopiere ned i cellerne B18:I29 Så et er øverst og 12 nederstdet skal gøres ved tryk på en knap F.eks Tekst Felt [2] B2:I2 [1] B3:I3
Public Sub Test() Dim c As Range Dim n As Long, i As Long Dim vDb(12, 9) As Variant
With ActiveSheet For Each c In Range(.Cells(2, 1), .Cells(13, 1)) For n = 1 To 9 vDb(c.Value, n) = .Cells(c.Row, n).Value Next Next Range(.Cells(18, 1), .Cells(29, 9)).Value = vDb End With End Sub
F.eks Hvis jeg har en userform med 5 tekstboxe man skal åbne den form med en knap... i den form er der 5 T-boxe og en knap hvis man trykker på den knap skal den tage de værdier som der er i U-formen og smide det ind i et ark
trykk Alt + F11 for å åpne vba editoren trykk Ctrl + R hvis du ikke kan se modulene i prosject exploreren dobbelklikk på din userform nå kommer userformen opp i et vindu, merk userformen og trykk F7
Nå kan du med piltastene i vinduet oppe til venstre velge din commandbuttom. det kan koden for 1. knapp se slik ut:
Private Sub CommandButton1_Click() ThisWorkbook.Sheets(1).Cells(1, 1) = TextBox1.Value End Sub
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.