Excel User Group
Microsoft Excel blogs, forums, files. Read, ask questions, provide answers.

Basic Excel Question - please help

Latest post Tue, Mar 3 2009 3:55 AM by sheungwanmike. 2 replies.
  • Mon, Mar 2 2009 11:26 PM

    Basic Excel Question - please help

    Hello,

    I had a somewhat basic excel question. I am currently doing some sales for a company which has no official database. I am trying to keep track of calls and clients and outcomes. Could someone help me with a basic formula where I enter a code into a line from a drop-box and it places that code into another spreadsheet.

    For example,

    If I check, HOT CLIENT, the entire row can be added to another spreadsheet entitled, "HOT CLIENTS"

    I am trying to save time from copying and pasting to several spreadsheets. I would love for it to autoformat when I check a box.

    Is this a simple solution or one that requires some VBA programming? Any help is appreciated. Thank you.

    Mike

    • Post Points: 21
  • Tue, Mar 3 2009 3:36 AM In reply to

    • Nick Hodge
    • Top 10 Contributor
    • Joined on Sun, Dec 23 2007
    • Southampton
    • Posts 543
    • Points 9,287
    • MVP

    Re: Basic Excel Question - please help

    Mike

    You will surely need some VBA. I would choose a Worksheet_Change() event. To place the code click on the source sheet tab and select view code. Paste the code in  the new window, save and close the window. It works currently on the theory that Hot Client will be placed in cells in column D and that they will then be copied into a sheet called HOT CLIENTS automatically as soon as you enter the word

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lLastRow As Long
    If Not Application.Intersect(Columns("D:D"), Target) Is Nothing Then
        If UCase(Target.Value) = "HOT CLIENT" Then
            lLastRow = Worksheets("HOT CLIENTS").Range("A" & Rows.Count).End(xlUp).Row + 1
            Target.EntireRow.Copy Destination:=Worksheets("HOT CLIENTS").Range("A" & lLastRow)
        End If
    End If
    End Sub

    Regards
    Nick Hodge
    Microsoft MVP, Excel
    Southampton, UK

    • Post Points: 21
  • Tue, Mar 3 2009 3:55 AM In reply to

    Re: Basic Excel Question - please help

    Great, thanks Nick - I'll give it a go.

    Mike

    • Post Points: 5
Page 1 of 1 (3 items) | RSS
Copyright Excel User Group and the relevant contributors, 2010. All Trade Marks acknowledged. This site is a peer-to-peer site and NOT affiliated in any way to Microsoft Corp. All rights reserved.