Posts by junho lee

Re: Calling A Subroutine

hi,
what is the red [COLOR="Red"]x[/COLOR] in the left text of add item buttons?

Re: Data Transfer

solved!!!!!.
http://www.ozgrid.com/forum/showthread.php?t=69073
thanks.

Re: Define Numerical Variables

hi,shg
thanks for your help.
regards,

hi,guys
i,d like to define variables,
a=2,7
i<j<k,m<n
5*a+10=i+j+k+m+n
i,j,k is defined in the process (i,j,k are three elements of a,a+1,a+2,a+3,a+4)
how do i define m,n.(two elements of a,a+1,a+2,a+3,a+4)
regards,

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

Sub 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

works fine.

Re: Data Transfer

here's some example.

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 !!

Re: Group Numbers By Sum Value

Sorry for this problem.
If ((6,6,8)7,7), ((7,6,7),6,8) both meets ,then choose ((6,6,8)7,7) i.e other two 7,7 is same.

For A = 2 To 7 Step 5

I delete a=a+5.
Add 'step 5' to 'a=2 to 7' .
This is better then previous result.
Now how to insert other 2 numbers.
Many thanks.

Re: Group Numbers By Sum Value

nice to meet,Ger.
i noticed problems.
1.. 6,7,6,8,7 (6,6,8) and (7,6,7) make 20. case this residues big 7,i'd like rearrange lower row.
except this i noticed nothing.

I have 4sets of 5 numbers.
In each set if 3 numbers make 10 or 20 then i'd like to rearrange these to upper row.
But results are not like desired.
Thanks in advance.
Regards, junho lee

Re: Did This Macro Delete Data In Column 'd' In Sheet 's2'?

If Not MgDL(iZw, 1) < 1 Then
                    .Offset(0, 3 + MgDL(iZw, 1)).Value = MgDL(iZw, 2)
                    End If

I tested this then not deleted in column 'd'.

Re: Automatic Entry When Selecting A Cell

Private Sub Worksheet_selectionChange(ByVal Target As Excel.Range)
Dim x As String
        If Not Intersect(Target, Range("a1:a10")) Is Nothing Then
        With Target
           If Not .Value <> "" Then
           .Offset(0, 0).Value = "x"
           ElseIf .Value = "x" Then
           .Offset(0, 0).Value = ""
           End If
        End With
        End If
    End Sub

Re: Automatic Entry When Selecting A Cell

can't use worksheet change event?
select a1=x,select also a1="" etc.

Re: Run Except Particula Sheet

hi,Reafidy.
nice to meet you.
i got answer.
thanks for your help.

is there a way to run procedure except particula sheets ?
eg. run all sheets except sheet4,5,6
regards,

Re: Sumif By Month

Thank you for kind help ,Ger.

Re: Sumif By Month

nice to meet you.

Column A have random dates and column B have numbers.
How can sum numbers for each month By sumif function ?
Regards, Junho.