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
    Quick Links: Xbox connecting $50 Fire tablets...worth getting? 3D Printed Shifter Knob (1st gen) Flatbed Scanners? Recommendations.... Anyone use a Chromebook? Need Help picking out best modem and router

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
    #1
    jdkeller

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

    Joined:
    Nov 26, 2008
    Member:
    #11040
    Messages:
    12,923
    Gender:
    Male
    First Name:
    Jonathan
    Inland Empire, Ca
    Vehicle:
    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
     
    jdkeller, Feb 7, 2011
    #1
  2. Feb 14, 2011 at 10:41 AM
    #2
    Evil Monkey

    #2
    Evil Monkey There's an evil monkey in my truck

    Joined:
    Aug 8, 2007
    Member:
    #2352
    Messages:
    8,262
    Gender:
    Male
    First Name:
    Robert
    Escondido, CA
    Vehicle:
    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
     
    Evil Monkey, Feb 14, 2011
    #2

Products Discussed in

Fstop Labs CloverTale Graphics Card GPU Brace Support, Video Card Sag Holder Bracket, Anodized Aerospace Aluminum (Upgraded Version Black)
$11.99
Samsung DDR4-2133 8GB/512Mx64 CL15 Laptop Memory M471A1G43DB0-CPB
$13.06
BN-LINK BND-60/U47 Indoor Mini 24-Hour Mechanical Outlet Timer, 3-Prong, 2-Pack
$12.99
StarTech.com SATA to USB Cable - USB 3.0 to 2.5” SATA III Hard Drive Adapter - External Converter for SSD/HDD Data Transfer (USB3S2SAT3CB)
$9.78
400PCS Computer Screws Motherboard Standoffs Assortment Kit for Universal Motherboard, HDD, SSD, Hard Drive,Fan, Power Supply, Graphics, PC Case for DIY & Repair
$9.99
Gorilla 2 Part Epoxy, Clear Epoxy, 0.85 Ounce Syringe (Pack of 2) - 5 Minute Set, Incredibly Strong Bonding
$11.20
CompTIA A+ Certification All-in-One Exam Guide, Seventh Edition (Exams 220-701 & 220-702)
$11.03
AMZ Clips And Fasteners (1) M12-1.25 Hex Coupling Nut, Steel Zinc. DIN 6334
$10.99
5 Pcs 3D Printer Scraper 3D Printer Accessories 3D Printer Removal Tool Kit Scraper Stainless Steel Enhanced Version Knife with Sturdy Wooden Handle for Easy Separation of Prints
$12.79
BN-LINK Indoor Countdown Timer with Repeat Function, Heavy Duty Accurate Compact Size for Charger Vacation Security, 3-Prong Grounded Outlet, 15A/1875W ½ HP ETL Listed
$11.99
M.2 Heatsink Cooler 2280 SSD Double-Sided Heat Sink with Thermal Silicone pad for PS5/PC PCIE NVME M2 SSD(Black）)
$6.97
MoKo 120mm Dust Filter for Computer Cooler Fan, [4 Pack] Magnetic Frame PC Fan Dust Mesh PC Cooler Filter PVC Dustproof Cover Computer Fan Grills - Black
$6.99
Nilight 10 Gauge 2 Pin Quick Disconnect Harness,Heavy Duty SAE Connector Bullet Lead Cable
$6.99
SallyBest Waterproof Night Vision High Definition 420TVL Car Rear View Camera Universal Auto Parking Reverse Vehicle Backup Camera with 170 Degree Viewing Angle
$13.99
PHP and MySQL Web Development
$17.80
Rojuna 10-Pack Mini Thermometer Hygrometer, Small Digital Electronic Temperature Humidity Meters Gauge Indoor LCD Display for Humidors, Greenhouse, Garden, Cellar, Fridge, Mason Jar
$19.98
SilverStone Technology Silverstone 8-Port PWM Fan Hub/Splitter for 4-Pin & 3-Pin Fans* in Black SST-CPF04-USA (Newest Version)
$21.64
StarTech.com USB 2.0 to VGA Adapter, USB to VGA Monitor Converter for Windows, 1080p , TAA (no support for macOS/ChromeOS/Linux)
$15.57
SANOXY USB 2.0 External 2.5" IDE HDD Enclosure Case for Laptop - Blue
$15.99
CAIG LABORATORIES DeoxIT D100L-2DB Brush Applicator, More Than A Contact Cleaner, 7.4mL, Pack of 1
$17.98
Linkstyle 4 in 1 Charger Socket Panel, 12V Dual USB A Charger Port, Cigarette Lighter Socket, LED Voltmeter & ON Off Rocker Toggle Switch Car Marine Boat RV Truck
$17.98
Thermal Grizzly Hydronaut - 3.9 Gram/1.5 ml - Conductive High Performance Thermal Paste - Ideal for Air and Water Cooling CPU/GPU/PS4/PS5/Xbox - for Large Cooling Surfaces
$14.99
Alex Tech 25ft - 1/2" Cord Protector Wire Loom Tubing Cable Sleeve Split Sleeving For USB Cable Power Cord Audio Video Cable – Protect Cat From Chewing Cords - Black
$14.99
SilverStone Technology SST-FN124 120mm Fan with Slim 15mm Design with 3-Pins in Black FN124
$17.72
TP-Link AV600 Powerline Ethernet Adapter Kit - Gigabit Port, Plug Pair &Play, Power Saving, Nano Sized Powerline Network Adapter (TL-PA4010 KIT)
$34.78
Wiha 26199 Slotted and Phillips Screwdriver Set in Rugged Canvas Pouch, 8 Piece
$33.29
NETGEAR 5-Port Gigabit Ethernet Unmanaged Switch (GS105NA) - Desktop or Wall Mount, and Limited Lifetime Protection Gray
$34.99
AC Infinity MULTIFAN S7, Quiet Dual 120mm USB Fan, UL-Certified for Receiver DVR PlayStation Xbox Computer Cabinet Cooling
$21.99
CORSAIR VENGEANCE LPX DDR4 RAM 16GB (2x8GB) 3200MHz CL16-18-18-36 1.35V Intel AMD Desktop Computer Memory - Black (CMK16GX4M2B3200C16)
$37.99
Starting Out with Programming Logic and Design (3rd Edition)
$39.59
CORSAIR VENGEANCE RGB PRO Light Enhancement Kit (Memory Not Included) – Black
$39.18
C++ How To Program
$37.89
VideoStudio Pro X6 [OLD VERSION]
$25.00
TP-Link USB Wifi Dongle 300Mbps High Gain Wireless Network Adapter for PC Desktop and Laptops. Supports Win10/8.1/8/7/XP, Linux 2.6.24 - 4.9.60, Mac OS 10.9 - 10.15 (TL-WN822N)
$25.00
I/O Crest 4 Port SATA III PCI-e 2.0 x1 Controller Card Marvell 9215 Non-Raid with Low Profile Bracket SI-PEX40064
$26.57
"Dry & Dry" [5 LBS] Premium Orange Indicating Silica Gel Desiccant Beads(Industry Standard 3-5 mm) - Rechargeable Silica Gel Beads(5 LBS)
$27.99
TP-Link 5 Port Gigabit Ethernet Network Switch | Plug and Play | Desktop or Wall-Mount | Plastic Case Ethernet Splitter | Fanless | Traffic Optimization | Unmanaged (TL-SG1005D),Black
$29.00
WD Blue 500GB Desktop Hard Disk Drive - 7200 RPM SATA 6 Gb/s 16MB Cache 3.5" - WD5000AAKX
$28.00
TRENDnet Wireless N Gaming Adapter TEW-647GA (Black)
$29.99
Exam Cram CompTIA A+: Exams 220-701, 220-702
$29.95
HATCHBOX ABS 3D Printer Filament, Dimensional Accuracy +/- 0.03 mm, 1 kg Spool, 1.75 mm, Black
$25.00
Transcend 128GB MTS430S M.2 2242 SATA III SSD, Internal Solid State Drive, Compatible with Laptop & PC Desktop, Dram Cache, B+M Key, Up to 560/350 MB/s - TS128GMTS430S
$22.99
To Top