adjust button output

change the source" workbook. Currently when the 'One Column' button is clicked the data is transferred


should also be transferred to the COUNT sheet,
29119954c--1-_change_data_sources.xlsm
ADRIANA PACCOUNTING ASSISTANTAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
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:
Try this.
29120038.xlsm
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
Fabrice LambertFabrice LambertCommented:
Well, well….

First: Give up hungarian notation, it provide nothing usefull.

Second, can you explain more about what you're trying to achieve ? I'm not sure to completly understand.
Where in the "Count" worksheet do you want your data ?

Third, this might be a better start:
Sub MultToOne()
    On Error Resume Next
    Dim rng As Excel.Range
    Set rng = Application.InputBox("Please select the range to be copied", , Range("C14").Address, Type:=8)
    On Error GoTo 0
    
    If rng Is Nothing Then
        MsgBox "No columns selected"
        Exit Sub
    End If
    If rng.Cells.Count < 2 Then
        MsgBox "No columns selected"
        Exit Sub
    End If
    
        '// retrieve input range values
    Dim data() As Variant
    data = rng.Value
    
        '// how many rows from input range
    Dim rows As Long
    rows = UBound(data, 1) - LBound(data, 1)
    
        '// how many columns from input range
    Dim columns As Long
    columns = UBound(data, 2) - LBound(data, 2)
    
        '// set target range start
    Dim trg As Excel.Worksheet
    Set trg = ThisWorkbook.Sheets("DTA")
    Set rng = trg.Range("A5")
        '// set target range the same size (rows and columns) as the data
    Set rng = trg.Range(rng, rng.Offset(rows, columns))
        '// write data
    rng.Value = data
End Sub

Open in new window

0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
thanks   Martin and  Fabrice Lambert

for the fast and great response
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:
Second, can you explain more about what you're trying to achieve ?

trying to have the

b2.PNG
0
Martin LissOlder than dirtCommented:
trying to have the [followed by picture]
I think you are giving Fabrice incorrect information. The COUNT sheet column 'L' problem was fixed in your previous question. He's asking what you want to have done in this question, which if I understand correctly, is to have the same data that goes to column 'A' on the DTA sheet, also go to column 'A' on the COUNT sheet and that is what my workbook attached above already does.
0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
my correction

like  Martin say

this file adjustment was in the beginning as i say
0
Fabrice LambertFabrice LambertCommented:
I see.

Please, keep in mind that the more details in your question, the better our answer.
0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Fabrice Lambert you welcome !

im working on
0
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Great Job!

Best Experts!!
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.