Canceler said:
It's starting to look that way.
If you happen to forget that aces can't be resplit, and only get one card when they are split o:laugh, you still get 48.
If you happen to forget that aces can't be resplit, and only get one card when they are split o:laugh, you still get 48.
hey Canceler, i finally broke down and used my first variable (well actually second i guess if you count that checkfirst while dohinkey, thingamajob.)
Sub consolidatecards()
'
' consolidatecards Macro
' gets rid of zeros & spaces in player & dealer hands
'
'
Dim Check, Counter
Check = True: Counter = 0
Do While Counter < 11
Counter = Counter + 1
If Range("D21").Value = 0 And Range("E21").Value <> "" Then
Range("E21").Select
Selection.Cut
Range("D21").Select
ActiveSheet.Paste
End If......................
Exit Do
Loop
'
' consolidatecards Macro
' gets rid of zeros & spaces in player & dealer hands
'
'
Dim Check, Counter
Check = True: Counter = 0
Do While Counter < 11
Counter = Counter + 1
If Range("D21").Value = 0 And Range("E21").Value <> "" Then
Range("E21").Select
Selection.Cut
Range("D21").Select
ActiveSheet.Paste
End If......................
Exit Do
Loop
what ever i'm still stuck on splits, it'll split consecutive pairs but if the pairs aren't consecutive (ie. the next pair arises from say the third hand) then it's a no go:cry:
oh yeah, and i got it to quit being a CSM.:whip:
then if i ever get that working, i got to get it to do DAS as well.
once all that's done i think the thing will at least play blackjack and record hands sorta thing.