If cell is not empty then go to new line

[rjeeva]

HI,

I want call values from sheet1 to sheet2

but on sheet2 i have "Date, Description, amount" which i will enter manually

but if i enter anything on sheet1 "date description, amount" it should reflect on sheet2, but it should post it on next new line

Im trying this from last 2 days not able to figure it out.

Can anyone please help me?

 

[rollis13]

With your copy macro (Sheet1 to Sheet2) you could detect the last used row of Sheet2 and then do the Paste.

To check all columns of used rows:

LastRow = Cells.Find("*", Cells(Rows.Count, Columns.Count), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

or to check one column specifically:

LastRow = Range("A" & Rows.Count).End(xlUp).Row

 

[My Aswer Is This]

What columns are these values in:
date description, amount

 

[rjeeva]

What columns are these values in:
date description, amount

https://docs.google.com/spreadsheets/d/1Iw-s-lFV6ge5mm7EpH02ZHe1nJ4S6Yv4i5nz5qNLNUk/edit?usp=sharing

i have made an example sheet please go through that.

i have explained in detail in Paid sheet.


Thank you

 

[rjeeva]

https://docs.google.com/spreadsheets/d/1Iw-s-lFV6ge5mm7EpH02ZHe1nJ4S6Yv4i5nz5qNLNUk/edit?usp=sharing

Can you please go through and understand my problem.

 

[rollis13]

Have a try with this code. It's just a try since you don't say how and when you need to copy the data from one sheet to the other.

Option Explicit

Sub test()
    
    Dim nextrow As Long
    Dim ShOrig As Worksheet
    Dim ShDest As Worksheet
    
    Set ShOrig = Sheets("Paid")
    Set ShDest = Sheets("Transactions")
    nextrow = ShDest.Cells(Rows.Count, "B").End(xlUp).Row + 1
    Application.ScreenUpdating = False
    ShDest.Select
    ShOrig.Range("A3").Copy
    ShDest.Range("B" & nextrow).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    ShOrig.Range("B3").Copy
    ShDest.Range("D" & nextrow).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    ShOrig.Range("C3").Copy
    ShDest.Range("E" & nextrow).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    ShOrig.Range("D3").Copy
    ShDest.Range("C" & nextrow).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    ShOrig.Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

End Sub

 

[rjeeva]

Thank you for the support...
i tried that but its not showing proper reult which i need . so i changed my requirement accordding to what i can do. in this way i will learn slowly about excel