Printable View
Hi friends,
I am having an issue while, i am creating an excel sheet.I need to have copy one column from one sheet and to another.Can anyone tell me what steps i need to follow to do this.
I would be very thankful to that person.
PC Configuration
Intel Dual core 2.66 Ghz
915 MSI Motherboard with Intel chipset
512 mb RAM
80gb HDD
Sure i will help you out with this try to put this code it will work for you.
Code:Private Sub cmdTournament_Click()
Dim s As Range, i As Variant, t As Range, w As Range, _
cc As Range, c As Range, w2 As Range, j As Integer, Val As Integer
Val = Sheet3.Range("Tournament").Value
Set s = Sheet4.Range("Scores")
Set t = Sheet3.Range("Table")
Set w = t.Cells(1, 1).End(xlToRight).Offset(0, 1) 'first empty week
Set w2 = t.Cells(1, 1).Offset(0, 31).End(xlToRight).Offset(0, Val)
Application.Calculation = xlManual 'turn off calculations
For Each cc In s
For j = -1 To 4 Step 5
Set c = cc.Offset(0, j)
i = Application.Match(c.Offset(0, -3), t, 0) 'get player position
If IsError(i) Then
MsgBox "Cannot locate " & c.Offset(0, -3) & " in the table."
Else
w2.Cells(i, 1).Value = c
End If
Next j
Next cc
w2.Range("A1:A" & t.Rows.Count).Replace What:="", Replacement:="DNP", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False
Application.Calculation = xlAutomatic 'turn on calculations
End Sub
Thanks for our reply,but i don't know how to use by coding is there any formula type which i can use it very easily.
PC Configuration
Intel Dual core 2.66 Ghz
915 MSI Motherboard with Intel chipset
512 mb RAM
80gb HDD
try to put the following formula, placed in any cell in Workbook 2 will link it to Workbook 1, Sheet 1, cell A1:
=[Book1]Sheet1!$A$1
You need to replace the following things with your own:-
- Book1=The actual name of your workbook
- Sheet1=The name of the sheet,
- $A$1=The actual cell you want to link to.