Flux rss
Search : in
By : Relevance Date Username
Statut : Not resolved

Copy data into next empty cell in new sheet

nikwak, on Thursday 24 July 2008 à 15:23:42
Hello,

I am trying to make a 2 sheet workbook which has the input details in Sheet1
A1 and this is changed weekly but the info in this cell should then be
inserted into the first blank cell in Column A in Sheet 2.

I have tried this code (below) but it doesn't seem to work and maybe I am
doing something wrong. Could someone let me know if this code should work
for this purpose or is there another code I could try?

Code used at present:

Sub copytonextsheet()
With Sheets("Sheet2")
n = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(n, "A").Resize(, 4).Value = _
Cells(1, "A").Resize(, 4).Value
End With
End Sub


Thanks
Nick
Configuration: Windows XP
Opera 9.51
Reply to nikwak  Report this message to moderators Go to last message

1


  • This message seems useful, vote!
  • Report this message to moderators
shinny, on Friday 24 October 2008 à 11:03:58
Hello Nick,

I am not getiing the result using ur code, I am also facing the same problem, I am unable to copy data from 1 sheet to another sheet which has empty columns, i want to paste the values from one excel to another excel which has first column whihc is empty, please help me ASAP.

Regards,
Shinny dead.
Reply to shinny

2


  • This message seems useful, vote!
  • Report this message to moderators
Kioskea_1, on Monday 27 October 2008 à 12:32:24
Sub CopyRowsWithNumbersInG()
Dim X As Long
Dim LastRow As Long
Dim Source As Worksheet
Dim Destination As Worksheet
Dim RowsWithNumbers As Range
Set Source = Worksheets("name")
Set Destination = Worksheets("name")
With Source
LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
For X = 2 To LastRow
If IsNumeric(.Cells(X, "E").Value) And .Cells(X, "E").Value <> "" Then
If RowsWithNumbers Is Nothing Then
Set RowsWithNumbers = .Cells(X, "E")
Else
Set RowsWithNumbers = Union(RowsWithNumbers, .Cells(X, "E"))
End If
End If
Next
If Not RowsWithNumbers Is Nothing Then
RowsWithNumbers.EntireRow.Copy Destination.Range("A4")
End If
End With
MsgBox "Data has been updated !!", vbExclamation + vbInformation, "Company Name"
End Sub
Reply to Kioskea_1

6


  • This message seems useful, vote!
  • Report this message to moderators
 VBA novice, on Thursday 30 October 2008 à 17:21:00
what if i only wanted to copy a certain date range from the source data to the destination data? Say 11/1/2006 through 11/30/2006?
Reply to VBA novice

3


  • This message seems useful, vote!
  • Report this message to moderators
Kioskea_1, on Monday 27 October 2008 à 12:34:14
Replace "E" with your column and the destination and source names and the company name for the message box - this should work for what you need
Reply to Kioskea_1

4


  • This message seems useful, vote!
  • Report this message to moderators
Kioskea_1, on Monday 27 October 2008 à 12:35:38
P.S "A4" is the row the new data is transfererred to
Reply to Kioskea_1

5


  • This message seems useful, vote!
  • Report this message to moderators
dbrown, on Wednesday 29 October 2008 à 17:23:59
Hello,

I have aquestion you may be able to help with based on one of your post.

I have a worksheet in which i copy data that fit a certain criteria onto another sheet. From the original sheet, the one where the original data is copied from, I then go back and do some filtering. After I do the filtering I want copy and that info and put it on the sheet with the previous data I had copied. How do I put that new data into the next available row in the new sheet.

Thanks!
Reply to dbrown

Résultats pour Copy data into next empty cell in new sheet

Compare cell a1 to entire A col in sheet2 (Solved) Hello, I have been trying to compare sheet1 A2 to sheet2 A2 through A500 and if it exists somewhere in sheet2's a col then copy that entire row to a new sheet. I have experimented with many bits of macro code from others but so far no real... en.kioskea.net/forum/affich-21245-compare-cell-a1-to-entire-a-col-in-sheet2
Copy rows into asheet when checkbox is select Hello, I am setting up a workbook to track software as part of a project, I need a macro that will copy data from a row if a checkbox in coulum j is selected into a sheet called("CheckIn"). If a checkbox in column k is seleceted then the data from... en.kioskea.net/forum/affich-30339-copy-rows-into-asheet-when-checkbox-is-select
Lumping Data into Ranges in Excel Hello, I need some help dumping a list of numberical data into ranges in Excel. I basically have an Excel worksheet with over 10,000 numerical lines that I need to list into ranges. My worksheet looks something like this: 1 2 3 5 6 8 12 13 14 I need... en.kioskea.net/forum/affich-17435-lumping-data-into-ranges-in-excel

Résultats pour Copy data into next empty cell in new sheet

Excel tips : How to insert date In an Excel cellExcel tips : How to insert date In an Excel cell Below are some tips on how to insert date and time in an excel cell for a specific purpose:- To insert current date, press “CTRLâ€+ “;†in the chosen cell. To insert current... en.kioskea.net/faq/sujet-313-excel-tips-how-to-insert-date-in-an-excel-cell
How to convert Excel into PDF?How to convert Excel into PDF? Here is a small tips about how to convert your excel files into PDF for your presentation. PDF995 is software that gets installed on your computer which enables you to print any sources of document to PDF.... en.kioskea.net/faq/sujet-552-how-to-convert-excel-into-pdf

Résultats pour Copy data into next empty cell in new sheet

Need help in copying dataHello, can anyone help me in copying data (dont know the usedrange) from an excel and paste it in the activesheet Thanks in advance en.kioskea.net/forum/affich-29137-need-help-in-copying-data
HOW TO COPY THE DATA FROM EXCEL BY USING MACRHello, My query is, How to copy Data from excel sheet in to new excel file by useing Macro. Regards, Kris en.kioskea.net/forum/affich-31122-how-to-copy-the-data-from-excel-by-using-macr
Macro to populate worksheet tabs (Solved)Hello, Can somebody post the code necessary to copy a template tab into X new sheets, and renaming each sheet Test 1, Test 2, to Test X ? Thanks! en.kioskea.net/forum/affich-4266-macro-to-populate-worksheet-tabs

Résultats pour Copy data into next empty cell in new sheet

Download Excel ViewerWith Excel Viewer, you can open, view, and print Excel workbooks, even if you don't have Excel installed. You can also copy data from Excel Viewer to another program. en.kioskea.net/telecharger/telecharger-52-excel-viewer

Résultats pour Copy data into next empty cell in new sheet

Computer - Graphics card A graphics card, sometimes called a graphics adapter, video card or graphics accelerator, is a computer component which converts digital data into a graphical form which can be displayed on a monitor. The initial role of a graphics card was to send... en.kioskea.net/pc/carte-graphique.php3
BinHex encoding BinHex encoding (a contraction of binary-to-hexadecimal) is a proprietary algorithm owned by Apple for converting 8-bit binary data into a 7-bit format. BinHex encoding, designed for Macintosh systems, is used to preserve file attributes, and... en.kioskea.net/base/binhex.php3
Uuencode/Uudecode UUencode encoding (a contraction of Unix-to-Unix encode) is an algorithm for converting 8-bit binary data into a 7-bit format. Uuencoding was originally created for sending binary files using the email protocol uucp. The uucp system translated the... en.kioskea.net/base/uuencode-uudecode.php3