vba regel kopieren hoe doe je dat zie bijlage

[gast0211]

ik wil dat bij random numbers de winnaar er ook bij komt te staan dus random getal is 3,8,15 ook de gegevens kopieren in textbox naam+email
als dat niet kan op een andere manier is dat mogelijk?


zie tabblad winnaars

 

[HSV]

Zet ColumnCount op 3.

Next ii
 
End If
 
If FndNumber = False Then
[COLOR=#FF0000] With lstnumbers
       .AddItem RndNumber
    Set c = Columns(1).Find(RndNumber, , xlValues, xlWhole)
       .List(.ListCount - 1, 1) = c.Offset(, 1)
       .List(.ListCount - 1, 2) = c.Offset(, 2)
   End With[/COLOR]
End If
'save the number to listbox if no duplicate found
 
Loop Until lstnumbers.ListCount = Blad2.Cells(4, 1)

 

[Warme bakkertje]

Voeg onderaan toe aan je cmdrandomize-macro.

With lstnumbers
    .ColumnCount = 3
    .ColumnWidths = "20;140;70"
     For i = 1 To .ListCount
        .List(i - 1, 1) = Columns(1).Find(.List(i - 1), , xlValues, xlWhole).Offset(, 1).Value
        .List(i - 1, 2) = Columns(1).Find(.List(i - 1), , xlValues, xlWhole).Offset(, 2).Value
    Next ii
End With

Je moet dan uiteraard ook je Listbox op je werkblad verbreden.

 

[gast0211]

bedankt voor jullie reacties ik ben een leek in vba heb geprobeerd om de tekst juist te plakken maar krijg foutmeldingen

Private Sub cmdrandomize_Click()

Dim RndNumber As Integer  'declare the variable as integer
Dim ii As Integer  'declare the variable as integer
Dim FndNumber As Boolean   'Number was Found, YES or NO?
 
lstnumbers.Clear

Do

RndNumber = Int((Blad2.Cells(2, 8) - Blad2.Cells(1, 8) + 1) * Rnd + Blad2.Cells(1, 8))

' :) Generate the first Number

If lstnumbers.ListCount <> 0 Then 'If First Number, No need to check
 
     For ii = 1 To lstnumbers.ListCount

'check to listbox if the number is existing
          If RndNumber = lstnumbers.List(ii - 1) Then
               FndNumber = True
               Exit For 'Gotcha, Duplicate, EXIT now
          Else
               FndNumber = False  'NOT FOUND
          End If
 
     Next ii
 
End If
 
If FndNumber = False Then lstnumbers.AddItem RndNumber

'save the number to listbox if no duplicate found
 
Loop Until lstnumbers.ListCount = Blad2.Cells(4, 1)
 
'generate until the last number.

'Do loop means read until the TOTAL no. of data to be randomize

End Sub

dit is de originele code uit mijn sheet voor als ik op randomize klik welke tekt hoort er werkelijk te staan als ik jullie code plak?

 

[HSV]

Bij mijn code ben ik er van uitgegaan dat je handmatig 'ColumnCount' op 3 zet in de eigenschappen van de listbox, vandaar misschien de foutmelding.

In de code van Rudi (overigens niet getest) gebeurd die handeling in de code zelf, maar wordt telkens als de code loopt ook weer uitgevoerd.

 

[gast0211]

het is inmiddels gelukt met jou code bedankt harry hij verslikte zich in de 1e 2 regels
Next ii

End If

de informatie word perfect gekopieerd nu in de listbox nogmaals bedankt voor de oplossing

 

[gast0211]

kan ik de afstand ook aanpassen dat er tussen de 3 kolommen zitten(tekst afstand) bij eigenschappen van listbox is alleen de 1e kolom mogelijk (de cijfers)

 

[HSV]

Kijk eens in de code van Rudi naar '.ColumnWidths.'
Kan ook ingevoerd worden in de eigenschappen.

 

[gast0211]

Hoi bedankt ik had net even dat zetje nodig het was vrij simpel hihi je moet het alleen weten he thx