1. Welcome to Tacoma World!

    You are currently viewing as a guest! To get full-access, you need to register for a FREE account.

    As a registered member, you’ll be able to:
    • Participate in all Tacoma discussion topics
    • Communicate privately with other Tacoma owners from around the world
    • Post your own photos in our Members Gallery
    • Access all special features of the site

Anyone good with Macros in Visual Basic and/or Excel

Discussion in 'Technology' started by jdkeller, Feb 7, 2011.

  1. Feb 7, 2011 at 7:37 AM

    jdkeller [OP] How many words can be fit in this s

    Nov 26, 2008
    First Name:
    Inland Empire, Ca
    2008 Tacoma Prerunner TRD Offroad
    Dome light LED, 6000k HID Headlights and fogs, Grillcraft black mesh, rear 5100's, Total Chaos UCA's, 285/75/16 BFG KM2's, Spidertrax spacers, Blacked out emblems, cb,kenwood tm270 ham radio, All Pro 3" leaf pack, Fox 2.0 coilovers, Revenge Fab Sliders, u bolt flip kit, Pioneer avh4200, bed bar with light and antenna, Wet Okoles, Weathertech Mats, Wet Okole Armrests, Rear KR Fab bumper, bed mat, N-Fab spare tire carrier with full size spare on 16" TRD rim, Bedlinered flares and grille. Camburg Spindles, All Pro front fenders.
    I have a few questions if you are. Trying to make progress on a couple assignments. The first question I have is how to offset a cell after you run the macro. For instance, perform the macro on the cell and have it imput the answer in the cell on the right. I can attach what I have if need be. Thanks
  2. Feb 14, 2011 at 10:41 AM
    Evil Monkey

    Evil Monkey There's an evil monkey in my truck

    Aug 8, 2007
    First Name:
    Escondido, CA
    07 4x4 DC SR5 TRD Off-road
    Weathertech front & rear mats, rear suspension TSB, Toytec AAL for TSB, Hi-Lift Jack, Bilstein 5100 & Toytec Adjustable coilovers, Built Right UCAs, KMC XD 795 Hoss Wheels, Definity Dakota MTs 285/75R16, Leer XR, Thule Tracker II & Thule MOAB basket
    I think this should do what you want. It will select the cell one column over from your current cell. Then just use the code to paste the value in the cell.
    Cells(Application.ActiveCell.Row, Application.ActiveCell.Column+1).Select
    Application.ActiveCell.value = myValue

Products Discussed in

To Top