title: Excel VBA macro Script : Find value from Sheet 1 in Sheet 2 and Copy Value found
body: <p>I am facing the following challenge : I have an Excel Sheet with values on column A (ex. ,, C Klasse,A Klasse,Golf,Astra" ). </p>
  
  <p>On the Second Sheet I have 2 columns A &amp;  B containing the following Information : Column A ,,Mercedes,Opel,VW etc." and on B column I have the following ,,C Klasse,A Klasse,Golf,Astra" (the same information as on Sheet 1 column A).</p>
  
  <p><strong>Goal</strong> : Find the value from Sheet 1 ,Column A in Sheet 2 Column B -> copy value from Sheet 2 column A -> Paste into Sheet 1 column M.</p>
  
  <p><strong>Example</strong> : A2 = C Klasse -> Find ,,C Klasse'' in Sheet 2 - > Found ,,C Klasse'' in B42 -> Copy Content from  A42 ,,Mercedes'' - > Paste M2.</p>
  
  <p>This is the code that I came up with ,I just started this so please bear with me :</p>
  
  <pre><code>Range("A2").Select
  Selection.Copy
  Sheets("Form2").Select
  Cells.Find(What:=Range("A2"), After:=ActiveCell, _
      LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
  Range("A193").Select
  Selection.Copy
  ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
  Sheets("Form1").Select
  Range("M2").Select
  ActiveSheet.Paste
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/lOwZw.png" alt="enter image description here"></p>