Real basic VBA question

[drowe005]

I've got what should be a very simple question, but my VBA knowledge is extremely lacking.

I know how to make this work with an excel formula, however I need this to work with the rest of my code and the excel formulas mess stuff up.

What I need is:

Data is to be entered into columns A and B, and upon these 2 entries being entered, a combination of these two cells is to be automatically be entered into column C.

For example:
Cell A = 1234
Cell B = 5678

And then I need Cell C to automatically display
C= 12345678

Hopefully someone can help me get this figured out. Thanks in advance.

 

[drowe005]

I've made a couple edits and pretty much have things about 99% of the way for myself to be satisfied. Currently the code tells it to look at column A to determine where to put the time in or time out. Can you please help me change it to look at column C instead? For whatever reason, I can't get it to change.

Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)
' hiker95, 12/18/2012 mrexcel.com
  If Not Intersect(Target, Range("A:B")) Is Nothing Then
    If Target.Cells.Count = 1 Then
        Application.EnableEvents = False
            On Error Resume Next
            Range("C" & Target.Row).Value = Range("A" & Target.Row) & Range("B" & Target.Row)
        Application.EnableEvents = True
    End If
  End If
If Intersect(Target, Range("B2:B3000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Dim lc As Long, fr As Long, n As Long, nr As Long
With Application
  .EnableEvents = False
  .ScreenUpdating = False
  n = Application.CountIf(Columns(1), Cells(Target.Row, 1))
  If n = 1 Then
    lc = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
    If lc = 1 Then
      Cells(Target.Row, lc + 2) = Format(Now, "m/d/yyyy h:mm")
    ElseIf lc > 2 Then
      Cells(Target.Row, lc + 1) = Format(Now, "m/d/yyyy h:mm")
    End If
  Else
    fr = 0
    On Error Resume Next
    fr = Application.Match(Cells(Target.Row, 1), Columns(1), 0)
    On Error GoTo 0
    If fr > 0 Then
      lc = Cells(fr, Columns.Count).End(xlToLeft).Column
      If lc = 1 Then
        Cells(fr, lc + 2) = Format(Now, "m/d/yyyy h:mm")
      ElseIf lc > 2 Then
        Cells(fr, lc + 1) = Format(Now, "m/d/yyyy h:mm")
      End If
      Target.ClearContents
    End If
  End If
  On Error Resume Next
  Me.Range("C1", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  On Error GoTo 0
  nr = Me.Range("A" & Rows.Count).End(xlUp).Offset(1).Row
  Me.Cells(nr, 1).Select
  .EnableEvents = True
  .ScreenUpdating = True
End With
End Sub

 

[drowe005]

I did a little more playing with the code and it seems to work the way I want it to now..for the most part. This is what I have. Does this seem like the most logical way to run it?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B:C")) Is Nothing Then
    If Target.Cells.Count = 1 Then
        Application.EnableEvents = False
            On Error Resume Next
            Range("A" & Target.Row).Value = Range("B" & Target.Row) & Range("C" & Target.Row)
        Application.EnableEvents = True
    End If
  End If
If Intersect(Target, Range("C2:C3000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Dim lc As Long, fr As Long, n As Long, nr As Long
With Application
  .EnableEvents = False
  .ScreenUpdating = False
  n = Application.CountIf(Columns(1), Cells(Target.Row, 1))
  If n = 1 Then
    lc = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
    If lc = 1 Then
      Cells(Target.Row, lc + 2) = Format(Now, "m/d/yyyy h:mm")
    ElseIf lc > 2 Then
      Cells(Target.Row, lc + 1) = Format(Now, "m/d/yyyy h:mm")
    End If
  Else
    fr = 0
    On Error Resume Next
    fr = Application.Match(Cells(Target.Row, 1), Columns(1), 0)
    On Error GoTo 0
    If fr > 0 Then
      lc = Cells(fr, Columns.Count).End(xlToLeft).Column
      If lc = 1 Then
        Cells(fr, lc + 2) = Format(Now, "m/d/yyyy h:mm")
      ElseIf lc > 2 Then
        Cells(fr, lc + 1) = Format(Now, "m/d/yyyy h:mm")
      End If
      Target.ClearContents
    End If
  End If
  On Error Resume Next
  Me.Range("C1", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  On Error GoTo 0
  nr = Me.Range("A" & Rows.Count).End(xlUp).Offset(1).Row
  Me.Cells(nr, 2).Select
  .EnableEvents = True
  .ScreenUpdating = True
End With
End Sub