How to add today data to a summary using button.

[PRAVEENBAGWAN]

I have two sheets in attached sample file.
"today" & "summary"

I have to send data from "today" worksheet to "summary" worksheet on clicking add button. For example in attached sheet, data from "today" sheet to be entered on clicking add button.

how to send data from one sheet to empty row of another sheet?

 

[vletm]

one possible like this

 

[SirJB7]

Hi, PRAVEENBAGWAN!

Welcome to Chandoo forums!
Checked this yet?
http://chandoo.org/forum/forums/new-users-please-start-here.14/

About your question, try this code and assign it to the button action:

Option Explicit

Sub A()
    Dim I As Long
    Worksheets("Sheet2").Select
    I = Range("A6").End(xlDown).Row + 1
    With Worksheets("Sheet1").Range("A7:D7")
        ' copy
        .Copy Worksheets("Sheet2").Range("A" & I)
        ' delete
        .ClearContents
    End With
End Sub

Regards!

 

[PRAVEENBAGWAN]

Thank you so much sir,

 

[SirJB7]

Hi, PRAVEENBAGWAN!
Glad you solved it. Welcome back whenever needed or wanted.
Regards!

 

[PRAVEENBAGWAN]

Please share macro for the add button in attached excel sheet to add data range A29:E29 in empty row of "sheet2".

 

[vletm]

PRAVEENBAGWAN
Okay ... You didn't test my version; #2 Reply.

 

[PRAVEENBAGWAN]

Public Sub Copy_Values_Formats_and_Column_Widths()

Dim destCell As Range

Set destCell = Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp)
If destCell.Row > 1 Then Set destCell = destCell.Offset(1)

Worksheets("Bagwan Compu Data Entry").Range("A29:E29").Copy

destCell.Worksheet.Select
destCell.Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
destCell.Select

Application.CutCopyMode = False

End Sub



THIS IS NOT WORKING

 

[PRAVEENBAGWAN]

PRAVEENBAGWAN
Okay ... You didn't test my version; #2 Reply.

SAME is not working on the sheet.

 

[vletm]

Yes, that would be more than Miracle it #2 would work!
Your samples have some differences!
(above 1st sample and below 2nd sample)

how to send data from one sheet to empty row of another sheet?

 

[PRAVEENBAGWAN]

As per your shared VBA CODE, formulaes are getting copied instead of value.

 

[vletm]

As I wrote:
Yes, that would be more than Miracle it #2 would work!

Welcome to use VBA.
There have to be just correct (ALL) settings that it would work as a dream!

Did You change my code? if not then it cannot work!