title: How to merge numerical and alphabet VBA?
body: <p>I GET VBA ERROR 13, TYPE MISMATCH ON THIS LINE:</p>
  <p><strong>rngCell.Offset(, 2).Value = m5 + &quot; &quot; + m3 'ALPHA-NUMERICAL VALUE</strong></p>
  <p>OTHERWISE EVERYTHING IS WORKING FINE.</p>
  <p>CODE MENTIONED BELOW</p>
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rngCell As Range, m1 As Variant, m2 As Variant
  Check1:
      If Application.Intersect(Target, Range(&quot;C11&quot;)) Is Nothing Then GoTo Check2
  Application.EnableEvents = False
      For Each rngCell1 In Range(&quot;C11&quot;)
          v1 = rngCell1.Value
          If Len(v1) &gt; 0 Then
  
              'See if the value is in your lookup table
              m1 = Application.VLookup(v1, ThisWorkbook.Sheets(&quot;PARTY DETAILS&quot;).Range(&quot;D4:E10001&quot;), 2, False)
  
              'If found a match then replace wiht the vlookup result
              If Not IsError(m1) Then rngCell1.Value = m1
  
          End If
          Range(&quot;C11&quot;).Value = UCase(Range(&quot;C11&quot;).Value)
          Next
         Application.EnableEvents = True
  'On Error GoTo hell
  'If Target.Address(False, False) = &quot;C11&quot; And Target.Validation.Type = 3 Then
  '    Range(&quot;D19:D28&quot;).Value = &quot;&quot;
  'End If
  HI:
  Check2:
  'On Error GoTo HELL:
  If Application.Intersect(Target, Range(&quot;C18:C37&quot;)) Is Nothing Then GoTo Check3:
  Dim m3 As Variant
  Dim m5 As String
  Dim m4 As Variant
  
  For Each rngCell In Intersect(Target, Range(&quot;C18:C37&quot;))
      If Len(rngCell.Value) &gt; 0 Then
          m1 = Application.VLookup(rngCell.Value, ThisWorkbook.Sheets(&quot;Item Names&quot;).Range(&quot;D4:E10001&quot;), 2, False) 'TEXT VALUE
          m2 = Application.VLookup(rngCell.Value, ThisWorkbook.Sheets(&quot;Item Names&quot;).Range(&quot;D4:K10001&quot;), 3, False) 'NUMERIC VALUE
          m3 = Application.VLookup(rngCell.Value, ThisWorkbook.Sheets(&quot;Item Names&quot;).Range(&quot;D4:E10001&quot;), 4, False) 'TEXT VALUE
          m5 = &quot;1&quot;
          m4 = Application.VLookup(rngCell.Value, ThisWorkbook.Sheets(&quot;Item Names&quot;).Range(&quot;D4:K10001&quot;), 5, False) 'NUMERIC VALUE
          If Not IsError(m1) Then
              Application.EnableEvents = False
              rngCell.Value = m1  'TEXT VALUE
              rngCell.Offset(, 1).Value = m2  'NUMERIC VALUE
              rngCell.Offset(, 2).Value = m5 + &quot; &quot; + m3 'ALPHA-NUMERICAL VALUE
              rngCell.Offset(, 3).Value = m4  'NUMERIC VALUE
              Application.EnableEvents = True
          End If
      End If
  Next
  If m1 = &quot;&quot; Then
              rngCell.Offset(, 2).Value = &quot;&quot;
  End If
  
  'HELL:
  Check3:
  Calculate
  Application.EnableEvents = True
  Application.ScreenUpdating = True
  End Sub
  </code></pre>
  <p>I CANT FIND OUT WHERE I AM DOIND WRONG.</p>
  <p>ANY HELP WILL MAKE MY DAY.</p>