megoldást keresek erre a problémára
-
#2187
Nem nagyon értem, ha 3 féle adat van a G oszlopban, akkor miért kell hármat választani közülük véletlen szerűen? Csakis ugyanazt a hármat választhatod minden esetben.
Sub Harom()
Dim sor As Integer, ide As Integer
ide = 6
Do While ide < 9
Ujra:
sor = Round(Rnd() * (69 - 10) + 10, 0)
If Application.WorksheetFunction.CountIf(Range("B3:B6"), Cells(sor, "G")) = 0 Then
Cells(ide, "B") = Cells(sor, "G")
ide = ide + 1
Else
GoTo Ujra
End If
Loop
End Sub
Ügyelj, hogy az Ujra címke a sor elején legyen. Nagy kár, hogy itt nem lehet tabulátorral tagolni a bemásolt makrót.
Utoljára szerkesztette: Delila1, 2016.03.15. 14:03:26