hi,
cells(a,b):cells(a+4,b) have 1,9,9,0,5
cells(a,b+3):clells(a+4,b+3) have 1,9,0,emtpy,empty.
how to fill 9,5 to empty cells.
always thanks !!
Data Transfer
-
-
-
Re: Data Transfer
What????????????????????????
-
Re: Data Transfer
here's some example.
-
Re: Data Transfer
Code
Display MoreSub K() Dim I As Integer, J As Integer, K As Integer, A As Integer, B As Integer, m As Integer m = Not I m = Not J m = Not K m = A Or A + 1 Or A + 2 Or A + 3 Or A + 4 For A = 2 To 7 Step 5 For B = 3 To 4 For I = A To A + 2 For J = I + 1 To A + 3 For K = J + 1 To A + 4 If Cells(I, B) + Cells(J, B) + Cells(K, B) = 10 Or _ Cells(I, B) + Cells(J, B) + Cells(K, B) = 20 Then Cells(A, B).Offset(0, 3) = Cells(I, B) Cells(A, B).Offset(1, 3) = Cells(J, B) Cells(A, B).Offset(2, 3) = Cells(K, B) If I = A + 1 Then m = A ElseIf I = A + 2 Then m = A ElseIf I = A And J = A + 2 Then m = A + 1 ElseIf J = A + 1 And K = A + 3 Then m = A + 2 ElseIf K = A + 2 Then m = A + 3 End If Cells(A, B).Offset(3, 3) = Cells(m, B) Cells(A, B).Offset(4, 3) = Cells(5 * A + 10 - I - J - K - m, B) End If Next Next Next Next Next End Sub
-
Re: Data Transfer
Junho lee,
You need to take more time/care with explaining your problem please. You have not yet given an explanation as to what you want and people here get frustrated with playing guessing games.
I understand that english may not be your first language but please try with an explanation and provide clear samples with expected results.
-
-
Re: Data Transfer
I made this just for fun.
ie. if 3 of 5 numbers make 10 or 20 then what is the other 2 number.1.'make 10 or 20' is two. is not yet solve.
eg.(6,7,6,8,7) = ((6,6,8),7,7),((7,7,6),6,8) then choose first one.
same number has priority to not same 2 numbers.2.in case (3,3,4,8,8),(2,2,6,7,7),(4,4,2,9,9).. also not yet solved.
eg. (3,3,4,8,8)=((3,3,4),8,8),((8,8,4),3,3) then choose first one.
big number has priority to small numbers.regards,
p.s i used andy pope's code.
-
Re: Data Transfer
solved!!!!!.
http://%22http//www.ozgrid.co….php?t=69073%22
thanks. -
Re: Data Transfer
Quote from junho leesolved!!!!!.
http://%22http//www.ozgrid.co….php?t=69073%22
thanks.It looks to me as i you chose to totally ignore the Forum Rules about duplicate posts. You also cannot be bothered to explain clearly what you are trying to do nor respond to requests for more information
I am removing your posting rights whilst you read the Rules & re-consider whether you intend to follow them. When you PM me with an explanation why you have acted like this and that you will follow the Rules in future I will re-instate you.
Participate now!
Don’t have an account yet? Register yourself now and be a part of our community!