copy data to specific cell based on user input

[jamshoot]

Hi all

I struggling to have a macro that allow me to copy data to specific cell based on user input.
Example:

I have "X" data in A2
I need a macro prompt to enable user to input how many "X" to copy & paste to cell
I am looking at the user will first have the cursor at A2 & then click a button (with macro) which prompt how many X to copy & paste.
The offset to paste is fixed, ie. in column C, E & G
Then if the User want to repeat for A3, the process is repeat as above.


A1 B1 C1 D1 E1 F1 G1 H1
A2 X X X X
A3 X X

Anyone can help me

Cheers

 

[jim may]

Not sure I'm understanding your request, but here's how your would show Only records with numerics in Column A. After running, you would have to, of course "unhide" the hidden rows manually, unless you do another macro to accomplish this for you. Good Luck Jim

Sub ShowNumbersOnly()
LR = Range("A" & Rows.Count).End(xlUp).Row
Set Rng = Range("A1:A" & LR)  'assumes your data starts on row 1
For Each C In Rng
    If Not IsNumeric(C) Then
    C.EntireRow.Hidden = True
    End If
Next C
End Sub

 

[jamshoot]

Not sure I'm understanding your request, but here's how your would show Only records with numerics in Column A. After running, you would have to, of course "unhide" the hidden rows manually, unless you do another macro to accomplish this for you. Good Luck Jim

Sub ShowNumbersOnly()
LR = Range("A" & Rows.Count).End(xlUp).Row
Set Rng = Range("A1:A" & LR)  'assumes your data starts on row 1
For Each C In Rng
    If Not IsNumeric(C) Then
    C.EntireRow.Hidden = True
    End If
Next C
End Sub

Hi Jim

The macro works perfectly. But I am stuck on how to use macro to unhide it.
Appreciate if u can help.
cheers