Data frm one excel sheet to other excel sheet

sree - Oct 16, 2009 at 04:35 AM
 manoj - Dec 14, 2010 at 02:05 AM
I am trying to retrieve the data from one excel sheet to another excel sheet in separate work book.

how can i do this one. Please help.

4 responses

My question is i want to paste sum added data on other excel sheet so that data automatically make changes when i make value change it automatically change the other values in total.

Hi this rohan raut.
I really frustreted to solve my problem.
Please help me to solve this problem as early as possible.
Qestion--> I created "vsto" application . in that i took a excel file as form, now i added one button on excel sheet1 and gie the sheet1 name as "MAIN". whn i click on that button then i want to generate new sheet and that sheet i want to add a picture box on that new sheet.
I give u a code that i write on my Project.

CODE: Dim pic = New System.Windows.Forms.PictureBox
Dim m As Integer
' Dim excel As New Excel.Application
'Dim Sheets = excel.Sheets

Dim thsWB As New Global.Framewin.ThisWorkbook
Dim ActiveSheet = thsWB.ActiveSheet
'Dim thWS As Global.Framewin.Sheet1
'Dim skitap = Excel.Worksheets
Dim myform = New PictureBox

m = 5

For i = 0 To NoOfFloor - 1
Cells(m, 2).value = Floor(i).PlanFileName
m += 2
For i = 0 To NoOfFloor - 1

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image." & i, Link:=False, _
DisplayAsIcon:=False, Left:=192.75, Top:=90, Width:=384.75, Height:= _

'Dim thws = thsWB.ActiveSheet
'thws = thsWB.Worksheets("Sheet1").Activate
'Me.Controls.AddPictureBox(49, 44, 817, 563, "PB" & i)
'thsWB.ActiveSheet.controls.addpicturebox(49, 44, 817, 563, "PB" & i)

'Me.Controls.AddPictureBox(49, 44, 817, 563, "PB" & i)
'ActiveWorkbook.Sheets.Add After:=Worksheets("Start"), Count:=1, Type:=xlWorksheet

'shht = Me.Controls.AddPictureBox(49, 44, 817, 563, "PB" & i)
'shht.Name = "Level " & i 'Floor(i).PlanFileName

' Me.Application.Sheets("Level0").select()

'shht.Controls.AddPictureBox(49, 44, 817, 563, "PB" & i)
'Me.Shapes.AddPicture("C:\Documents and Settings\Admin\Desktop\Picture\taj.bmp", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, 50, 50, 700, 500)
'xlWorkSheet.Shapes.AddPicture("C:\\csharp-xl-picture.JPG", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, 50, 50, 300, 45)

Plz send reply if u know or having idea about that.
Thanking You.
I have make one master sheet and i want to trace data from mater sheet to another sheet.
Blocked Profile
Oct 16, 2009 at 11:02 PM
Dear Sree,

You manually copy and paste the data in the sheets or

still you can create a macro for copying it. Below is the

macro codes that you will have to use:

Sub CopyDataToPlan()

Dim LDate As String
Dim LColumn As Integer
Dim LFound As Boolean

On Error GoTo Err_Execute

'Retrieve date value to search for
LDate = Sheets("Rolling Plan").Range("B4").Value


'Start at column B
LColumn = 2
LFound = False

While LFound = False

'Encountered blank cell in row 2, terminate search
If Len(Cells(2, LColumn)) = 0 Then
MsgBox "No matching date was found."
Exit Sub

'Found match in row 2
ElseIf Cells(2, LColumn) = LDate Then

'Select values to copy from "Rolling Plan" sheet
Sheets("Rolling Plan").Select

'Paste onto "Plan" sheet
Cells(3, LColumn).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

LFound = True
MsgBox "The data has been successfully copied."

'Continue searching
LColumn = LColumn + 1
End If


On Error GoTo 0

Exit Sub

MsgBox "An error occurred."

End Sub

Thanks in advance.
hello can u please help me how to summary a set of forms in one excel sheets? pls help me....