title: Reading a cell value in Excel vba and write in another Cell
body: <p>I have an Excel file and I want to read a value of a cell i.e a cell contains <code>(S:1 P:0 K:1 Q:1)</code> I want to read each value and save each value to another column. For example if S:1, then should be another cell 1, how can I read the data from  a cell and write in another cell with macro and vba?</p>
  
  <p>Thank you for your helps</p>
  
  <p>UPDATE:</p>
  
  <pre><code>Sub MacroF1()
  usedRowCount = Worksheets("Übersicht_2013").UsedRange.Rows.Count
  For i = 1 To usedRowCount
  cellAYvalue = Worksheets("Übersicht_2013").Cells(i, "AY").Value
  If InStr(cellvalue, "S: 1") &lt;&gt; 0 Then
  Worksheets("Übersicht_2013").Cells(i, "BC") = 1
  Else
  Worksheets("Übersicht_2013").Cells(i, "BC") = 0
  End If
  
  If InStr(cellvalue, "P: 1") &lt;&gt; 0 Then
  Worksheets("Übersicht_2013").Cells(i, "BD") = 1
  Else
  Worksheets("Übersicht_2013").Cells(i, "BD") = 0
  End If
  
  If InStr(cellvalue, "M: 1") &lt;&gt; 0 Then
  Worksheets("Übersicht_2013").Cells(i, "BE") = 1
  Else
  Worksheets("Übersicht_2013").Cells(i, "BE") = 0
  End If
  
  If InStr(cellvalue, "L: 1") &lt;&gt; 0 Then
  Worksheets("Übersicht_2013").Cells(i, "BF") = 1
  Else
  Worksheets("Übersicht_2013").Cells(i, "BF") = 0
  End If
  
  If InStr(cellvalue, "K: 1") &lt;&gt; 0 Then
  Worksheets("Übersicht_2013").Cells(i, "BG") = 1
  Else
  Worksheets("Übersicht_2013").Cells(i, "BG") = 0
  End If
  
  If InStr(cellvalue, "Q: 1") &lt;&gt; 0 Then
  Worksheets("Übersicht_2013").Cells(i, "BH") = 1
  Else
  Worksheets("Übersicht_2013").Cells(i, "BH") = 0
  End If
  'Worksheets("Übersicht_2013").Cells(i, "BC") = dd
  'Worksheets("Übersicht_2013").Cells(i, "AY").Value
  'Worksheets("Übersicht_2013").Range("BD44") = "Babak"
  Next i
  
  End Sub
  </code></pre>