Thread: Office project:DATABASE DATA COPY FROM ONE TO ANOTHER

My code is currently copying the training dates under the specified names i want it to copy the rest of the three columns as well the code is

Sub finds(strName As String)
'
' finds Macro
   Dim wksHSE            As Excel.Worksheet
   Dim wksEmp            As Excel.Worksheet
   Dim varColumn

   Set wksEmp = Sheets("Emp Ind HSE")
   Set wksHSE = Sheets("HSE_Matrix")

   ' find employee column on matrix sheet
   varColumn = Application.Match(strName, wksHSE.Range("7:7"), 0)
   If IsError(varColumn) Then
      ' no match so display error message
      MsgBox "No match found for employee: " & strName
   Else
      ' copy employee data across
      wksHSE.Cells(9, varColumn).Resize(43, 1).Copy Destination:=wksEmp.Range("H8:H50")
      wksEmp.Range("c5").Value = wksHSE.Cells(53, varColumn).Value
   End If

End Sub

Is there a way where i can also store the columns adjacent to the varColumn like varColumn1 varColumn2 to cover all the 4 columns under the name

hattisaeed
This is a duplicate of your earlier post (of just one hour previously) and to which I have already replied with a possible solution.
Please read forum rules 5 and 8 and appreciate the need for not confusing those who are prepared and happy to spend time helping.
Patience is a virtue expecially (in my case anyway) across international time zones.
That said, I hope that you find a solution to your problem.
Barry