count each digit 3n permutation

count each digit  in column A

in DTA sheet area
29117390_to_count_eah_digit_to_3n_p.xlsm
ADRIANA PACCOUNTING ASSISTANTAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Martin LissOlder than dirtCommented:
On what sheet?
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
DTA
Martin LissOlder than dirtCommented:
Please supply a workbook that has data in the DTA sheet.
Price Your IT Services for Profit

Managed service contracts are great - when they're making you money. Yes, you’re getting paid monthly, but is it actually profitable? Learn to calculate your hourly overhead burden so you can master your IT services pricing strategy.

ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
ok
Martin LissOlder than dirtCommented:
Which sheet should the output go to?
Is there an existing button you want to use?
If not then on which sheet should the button be?
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Which sheet should the output go to?

dta

Is there an existing button you want to use?

no. an new one is needed

If not then on which sheet should the button be?

dta
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Martin LissOlder than dirtCommented:
Try this.
29117392.xlsm
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
sorry

but the guides lines numbers disappears

Best Expert!

d111.PNG
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
when test it with data
Martin LissOlder than dirtCommented:
Is this better?
29117392a.xlsm
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
sorry  still the same issue

why ?
the guides numbers  disappears
Martin LissOlder than dirtCommented:
Please describe the steps, one by one, that you do.
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
1- clean old data -- clean all in  DTA  -- the guides numbers too

2- add new data

3- click PAIR

4 click count

5- count show but guides are gone
Martin LissOlder than dirtCommented:

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Working as needed !
Great JOb !
 The Best !
Martin LissOlder than dirtCommented:
Thank you for my 6 millionth point!
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Here to help !
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
sorry im getting this error
when i paste the data then press onecolumn button to make the one column in DTA column A

d1111.PNG
f1111.PNG
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Also when i try to clean the data in MtoONEsheet

i press the clean button but

stll data like show here
g11111.PNG
Martin LissOlder than dirtCommented:
Please attach the workbook that has the new data.
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Martin LissOlder than dirtCommented:
This should fix it.
29117392c.xlsm
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Working as needed
 Great JOb !
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
now the count button is not working

and take long tine to find the pairs when press pair button
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
why  05 is not counting ??

llllll111111.PNG3n_permutation_need_fix.xlsm
Martin LissOlder than dirtCommented:
Change line 20 as shown.
Sub Clean()
Dim ws As Worksheet
Dim lngColCount As Long
For Each ws In ThisWorkbook.Sheets
    Select Case ws.Name
        Case "COUNT", "PERMUTATIONS"
            lngColCount = ws.UsedRange.Columns.Count
            If lngColCount = 0 Then
                lngColCount = 1
            End If
            ws.Range(ws.Cells(5, 1), ws.Cells(ws.UsedRange.Rows.Count, lngColCount)).Clear
        Case "DTA"
            lngColCount = ws.UsedRange.Columns.Count
            If lngColCount = 0 Then
                lngColCount = 1
            End If
            ws.Range(ws.Cells(5, "A"), ws.Cells(ws.UsedRange.Rows.Count, "I")).Clear
            ws.Range(ws.Cells(5, "K"), ws.Cells(ws.UsedRange.Rows.Count, lngColCount)).Clear
        Case "MtoONE"
            ws.UsedRange.Cells.Offset(4, 0).Clear
   End Select
Next ws

End Sub

Open in new window

ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Great Job !
 Best Expert !
Martin LissOlder than dirtCommented:
None of the pivot tables work. They were not my code and I know very little about them so if you want to get them working you'll need to ask a new question and hope the person who coded them or some other Expert can help you.
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
;)
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VBA

From novice to tech pro — start learning today.