Find the strings of only the last digits of the numbers in the 5 sectors, please!
link=http://www.mediafire.com/file/eb42j93sg4n5s4c/pasta_string_hoje.xlsx
Find the strings of only the last digits of the numbers in the 5 sectors, please!
link=http://www.mediafire.com/file/eb42j93sg4n5s4c/pasta_string_hoje.xlsx
So what do you want the result to be?
54 or eb42j93sg4n5s4c
Thanks,
Mike
If you are satisfied with the solution(s) provided, please mark your thread as Solved.
Select Thread Tools-> Mark thread as Solved.
Ok, MIKE! you, have to sort as was in the example = have put the corresponding colors in the draws, my lottery is 100/20
You have each sector vector the strings, have the option to put new draws the macro go doing as it puts new draws of course
Can you put the planilia in a link, please?
Try this for starters:-
Your data starts "A3",Results start "W3".
Regards MickPlease Login or Register to view this content.
http://www.dec.org.uk/
Hello,MICK it's not like that, mick
You have to make each of the 5 colors, only last digit from 0 to 9 the strings
You have to see the strings for each of the 5 sectors. You have to mark the corresponding color in the draw list
Try this:-
NB:- The last Group of numbers has 99 instead of 89 and I've altered the the first "00" to 90
ONLY LAST DIGIT
1 2 3 4 5 6 7 8 9 0
81 82 83 84 85 86 87 88 99 00
91 92 93 94 95 96 97 98 99 00
Regards MickPlease Login or Register to view this content.
http://www.dec.org.uk/
Sorry the corret please is 89 90
99 00 error = is corret 89 90
Sub MG15Apr22()
Private Sub CommandButton2_Click()
error =Sub MG15Apr22()
Private Sub CommandButton2_Click()
Hello, MICK please can you put the code in the worksheet? When I try to activate, it shows error
Give this a try
Please Login or Register to view this content.
error=Else
tmp = Application.Evaluate("=MATCH(" & Cells(i, ii).Value & ",4:4,0)")
Cells(i, tmp).Value = IIf(Cells(i, tmp).Value = "", "x", Cells(i, tmp).Value & ",x")
End If
excel 2014 Windows 7
Did you change 89 and 90?
YES,MIKE you have to make this correction in the sector,
Logically, 89.90 is correct! Sorry
When I change those on your workbook it works fine for me
Also I'm guessing you'll want the strings sorted
Please Login or Register to view this content.
Hello, mike de best, great, very good job, spectacular
It looks great.
Mike you did the 5 lines, now I'm going to link the 5 columns,
Is to do everything equal, just changed the sectors wait until I put the link
Use the same macro for the 5 columns or sectors
Okay, gonna grab something to eat and walk the dog. Be back shortly
Hello, mike is now only first digit only
Use the same formula or previous macro, so it changes
Now the scan is from the first digit ok.
Do the same, but with the first digit of the number
Option to go putting new draws of course
But changed the letters in the new worksheet, changed the reference, is the colors? please
Change out this section of the code
Please Login or Register to view this content.
Please Login or Register to view this content.
Last edited by mike7952; 04-15-2017 at 07:26 PM. Reason: Fixed code
error=or ii = LBound(sCols) To UBound(sCols)
Cells(i, sCols(ii)).Value = BubbleSrt(sMyStrings(ii), True)
Must be doing something on your end, works fine for me.
Function not defined compilation error
I didn't post the function with the last code, thinking you would have left the function in the module.
Please Login or Register to view this content.
Mike can not ride, hiker does not have much talent in excel
I will not be able to ride for years.
Lol, So have you got it working now, or you still needing a ride?
Try your returned file:-
See sheet2.
Check results that are showing, then remove and run code again to test.
Link doesn't drive. You still needing a solution?
But it's another spreadsheet with groups for the columns! Another planilia with the same conditions only changed the groups
This don't work? Color of cell is self adjusting
Please Login or Register to view this content.
Last edited by mike7952; 04-16-2017 at 07:53 AM.
new link=http://www.mediafire.com/file/s25p175day697kq/string%2Cnova_planilia__columm.xlsx
Code in this link works for me
Click here
k? Color of cell is self adjusting
new link=http://www.mediafire.com/file/s25p175day697kq/string%2Cnova_planilia__columm.xlsx
What's not working now?
Click the button. I guess I'm not understanding your request and why the new links?
OK man! Mike, great job congratulations, works perfect,
Mike, you're great at excel, congratulations, thank you,
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks