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?
0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
DTA
0
Martin LissOlder than dirtCommented:
Please supply a workbook that has data in the DTA sheet.
0
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
ok
0
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?
0
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
0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
0
Martin LissOlder than dirtCommented:
Try this.
29117392.xlsm
0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
sorry

but the guides lines numbers disappears

Best Expert!

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

why ?
the guides numbers  disappears
0
Martin LissOlder than dirtCommented:
Please describe the steps, one by one, that you do.
0
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
0
Martin LissOlder than dirtCommented:
0

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 !
0
Martin LissOlder than dirtCommented:
Thank you for my 6 millionth point!
0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Here to help !
0
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
0
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
0
Martin LissOlder than dirtCommented:
Please attach the workbook that has the new data.
0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
0
Martin LissOlder than dirtCommented:
This should fix it.
29117392c.xlsm
0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Working as needed
 Great JOb !
0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
now the count button is not working

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

llllll111111.PNG3n_permutation_need_fix.xlsm
0
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

0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Great Job !
 Best Expert !
0
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.
0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
;)
0
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.