text:
404 File Not Found
Host by NetBox Version 2.8 Build 4128
Gift Wrap Not Available
Insects Bulk Bag
These themed collections are assembled by popular demand of favorite Safari toobed replicas. All Safari products are phthalate-free and are thoroughly safety-tested to protect your child's health. Safari Ltd. takes pride in providing breathtaking, innovative and value-priced figures for more than 3 generations. This Bulk Bag includes 48 insects, like dragonfly, praying mantis, grasshopper, ant, cockroach, caterpillar, ladybug, spider, bumble bee, scolopendrid, fly, scorpion, yellow butterfly and brown butterfly.
Product Notes
|Insects Bulk Bag
|Currently Unavailable
For the purchase limit reached item, please choose a quantity to Add to RegistryQuantity:
Please choose which cart you want to add the item.
By choosing one of the above, you are able to shop for both yourself and a registrant at the same time. Once you are ready to checkout your items will be waiting for you in both your personal and registry shopping carts.
Still need assistance?
Please contact us at 1-800-Diapers (1-800-342-7377)
|Sponsored Links
© 2005 - 2014, Quidsi, Inc. or its Affiliates. Diapers.com is operated by Quidsi Solutions LLC. Unless otherwise noted, products on Diapers.com are sold by Quidsi Retail LLC. Gift Cards and E-Gift Cards sold on Diapers.com are sold by Quidsi Gift Cards, Inc.


text:
Next, you'll be asked to connect with Twitter. Rest assured, we will never send a tweet from your account
without your permission.
We will send you an email with an invite soon.
Los medios de comunicación de masas ante los cambios.
See what's Trending Now for @prensa14
Follow @prensa14 on Twitter

subset: commoncrawl


text:
We have a big announcement tomorrow at 4 p.m. Tune in and keep it locked! This is something BIG you wont want to miss! WUTK always brings you the best music and access to the best shows. If you're not listening, you're missing out!!
90.3 The Rock and the Midnight Voyage present GHOSTLAND OBSERVATORY at the Valarium Sunday, April 15th.
Doors to this 18 and over show open at 8 p.m. Tickets to this show are on sale now.
GHOSTLAND OBSERVATORY is an electro/other/punk group that is declares itself as "not a band, but an agreement between two friends to create something that not only heals their beat-driven hearts, but pleases their rock 'n' roll souls."
90.3 The Rock presents "WOLFE JAM – FOR ED CORTS," Saturday, March 10th at The Well, 4620 Kingston Pike in Bearden.
90.3 The Rock and the "Funeral Directory" present EVERY TIME I DIE live at the Valarium Wednesday, March 7, 2012. Tickets are on sale now at the Valarium website.
The Baseball Vols 2012 home season gets into full swing as they take on Ball State, Louisiana-Monroe, Tennessee Tech, Florida International, Kentucky, Mississippi Valley State, Alabama, Memphis, Florida, ETSU, Austin Peay, Vanderbilt, and Arkansas at home.
90.3 The Rock presents NEON INDIAN at the Square Room Friday, March 9th. Doors to this all ages performance open at 10 p.m. and opening the show will be Purity Ring. Tickets to this event are on sale now.
90.3 The Rock welcomes The Lemonheads to the Bijou Theatre on Saturday, March 3rd. Doors to this all ages show open at 8 p.m. and opening the show will be Meredith Sheldon. Tickets are on sale now.


text:
Categories > Anime/Manga > Fruits Basket
Tohrus facade0 Reviews
Tohru has been consumed by all her fake smiles how will she cope
Tohru really did want to get over this feeling of being locked up but would she really take it that far to cut herself. She said to herself that she would try it but if it got addictive she was going to tell someone. Tohru slowly got up unsure about what she was going to do. Tohru put on socks so it would muffle her footsteps as she walked on the wood floors.
Tohru was sure that yuki and kyo were asleep but wasnt sure if shigure was asleep downstairs or upstairs. She decided to take it really slow.she finally reached the kitchen and almost ran to the drawer wanting to get it all over with.She opened the drawer with no noise but when she turned around shigure was there watching her. Crap what am i goong to do now tohru thought to herself.
"t..tohru what are you doing up so late"asked a very sleepy shigure."nothing no need to worry"tohru was almost certian shigure was not going to fall for that but lucky for her he was to tied to care.as shigure walked away nodding before hand. tohru was so relived she did not get caught.
Tohru quickly ran up the stairs once she saw shigure was out of sight.when she got up to her room she sat down on her bed and stared at the knife that mabye could end her life. She slowly placed it on her wrist and stroked once but realized that she would have to press harder in order to make a cut. She kept on trying until she saw blood.
A week went by and every once and a while she starting to act suspiseos. But one day tohru woke up around 6:00 in the morning crying and felt she needed to cut witch she did but it went to deep and next thing she new her eyes were flickering and she fainted.
Kyo and yuki had no idea that tohru was doing this but kyo was the first to know because tohru wasnt up and it was already 8:00 am all three were starving and kyo agreed to get tohru tp see what was taking her so long. Kyo oped the door and(a/n i so want to say screamed but for kyos ego i wont) say toru lauing in a puddle of blood.
He didnt even bother to check where the blood was coming from he just ran down stairs and screamed" call hitori right now tohru is bleeding" the boys that were in total shock ran to the phone in a half a second. Yuki ran up to tohrus room with the damm cat following him. Shigure called hitori almost screaming in the phone but when hitori finally got the message that shigure was trying to choke out he said he would be over in no time. But what seemed like a year to the paniking boys was only a breif 10 mins.
Hatori came in unannounced knowing this was going to be serious walked hazly up the stairs. He walked in tohrus room to be greeted by all three paniked boys.he looked to his left to see a blood stained bed with tohru placed inside and yuki holding onto her had(the one she did not cut)"where is she bleeding" all thre boys looked at each other noticing that they did not even bother to check.
"could all three of you leave i need to check on her" all three boys left without arguing knowing it would be worth nothing.hatori walked over and pulled the covers off to find it even more blooding than the reast of the bed and saw a knife almost under her hip. He soo put all the peices together that tohru was cutting herself he was sort of knew this was going to happen.
After hatori fixed tohru up he finially let the very anxcious boys in the room to see tohru. After shigure looked at tohru just to make sure he asked "so what happend" soon enough all three boys were looking at him as he answered "she has been cutting herself and it just so happens that she cut a little to deep this time" hatori waited for a reaction but only heard yuki say "poor miss honda she was probally hurting inside and out". The room was silient.
Hey i hoped you enjoyed my fanfiction i can continue this one you just have to let me know if u want another one thanks for reading.


text:
Gangnam Style Mom (Video)Pop Culture, Video — By Dave on 2012/09/05 11:14 AM
Mike Song and his mom dancing to PSY's Gangnam Style. She is 60 years young.
via Doobybrain
P.S. Check out the Gangnam Style and Matrix mash-up.
Tags: choreographer, choreography, dance, dancer, dancing, Gangnam Style, Gangnam Style Dance, GANGNAM STYLE MOM (강남스타일) "UMMA GANGNAM STYLE", Gangnam Style Mom Video, Mike Song, Mike Song and his mom dance Gangnam Style, Mike Song's mom, Mike Song's mom dances to GANGNAM STYLE, Mom, Mom Dancing to GANGNAM STYLE, mother, PSY, PSY's Gangnam Style, Umma, Umma Gangnam Style, video, viral, youtube,


text:
I want to spoof my internet ip on my Ubuntu 10.10 system so that I can access country specific websites. Can some one please tell me how to go about this?
Take the 2-minute tour ×
Super User is a question and answer site for computer enthusiasts and power users. It's 100% free, no registration required.
You would either need a proxy server or a public vpn service. You cannot just spoof your IP address or the internet won't work for you.
There's always tor. It'll probably take several attempts but eventually you might find yourself coming out of a uk exit node.
Its free and there's a setup guide for vidalia (the gui client) here: https://www.torproject.org/docs/debian-vidalia.html.en


text:
This conversation is closed.
What evidence do we have that the SCOTUS decision to strike down portoins of the voting rights act of 1965 was right or wrong?
In one decision the SCOTUS has declared that the need for southern states to get federal permission to change voting regulations is no longer needed because racism is not significant enough to necessitate the continuation of the Voting Rights Act of 1965 as we know it. This, in an era where voter suppression in southern states was obvious, seems to contradict reality. This, in an era where a TV personality on the food network uses the 'n' word when she described a party she would like to have and where the Confederate flag is flown proudly in southern states, seems incongruous.
Showing single comment thread. View the full conversation.
Jun 27 2013: Why should a few states be held to an arbitrary set of rules that do not apply to the rest of the country? The main failing of Justice Dept. case was that they hadn't changed their criteria for enforcement in over 40 years. It never was intended to keep those states under DOJ supervision forever.
What makes the south racists--two governors are of east Indian decent, the only black republican senator is from the South, Hispanic senators also. The south is more diverse in its elected officials than the majority of the country. Since 1965 more racist acts have occurred in South Boston over busing, Howard Beach in NYC, Blacks against Hasidic Jews and Korean store owners in major northern urban centers.
The DOJ's argument was based more on a balance of GOP/DEM power than actual racism.
Showing single comment thread. View the full conversation.


text:
Raiders Silver and Black Blog
All about the Oakland Raiders
Monthly Archive for November, 2010
Putting the gloves back on
The Raiders will get a earful from coach Tom Cable this week, as their season is on the line. At 5-6, they can't afford to lose and fall two games behind the Chargers and likely three behind the Chiefs (who play dead-in-the-water Denver). "We got out-played, we got out-coached and it's two weeks in a […] [Read More]
Controversy ends with Gradkowski out
First off, there is a report this morning that Bruce Gradkowski's MRI revealed a separated shoulder, so he is likely out for the season. Jason Campbell will start at quarterback for the Raiders against the Chargers, and he might have anyway if Gradkowski was healthy. The thing about the "quarterback controvery" is this. It really […] [Read More]
Help may not be on way
Chris Johnson knew he was going to be out with a groin injury yesterday, and the backup cornerback saw what would have happened if he tried to play. The Dolphins picked on rookie Walter McFadden and a hobbling Nnamdi Asomugha (ankle) and threw for 307 yards without star receiver Brandon Marshall. Johnson may not be […] [Read More]
Big dogs don't eat
The defensive line that was playing so well during the three-game win streak has all but disappeared the last two games. The only pressure the Raiders got on Dolphins quarterback Chad Henne came from safety blitzes. We caught up with defensive tackles Richard Seymour and Tommy Kelly after the 33-17 loss: Seymour talked two weeks […] [Read More]
Benching "not about Jason" (plus cast your vote)
(Poll: Vote for who you think should start. I know Bruce is going to win, I am just curious by how much.) Stood out in the cold Thanksgiving morning and listened to offensive coordinator Hue Jackson talk about last week's 35-3 loss at Pittsburgh. "Made the decision to put Bruce (Gradkowski) in the game and […] [Read More]
Missing Scott
Ignoring the quarterback mess for a second, the Raiders will be without underrated defensive end Trevor Scott Sunday against the Dolphins. He tore his ACL against the Steelers and, while he only had 1.5 sacks this season, happily agreed to switch back and forth between outside linebacker and defensive end and his motor always ran […] [Read More]
The rumors started flying in Friday night, that Bruce Gradkowski was starting at quarterback Sunday against the Dolphins. As the P.M. turned into the A.M., I started to realize that I and the other writers that cover Raiders had been played this week. I don't have any concrete proof yet, but I am pretty sure […] [Read More]
Hue Jackson didn't adjust
Hue Jackson is good about stepping up and taking the blame, and the Raiders offensive coordinator did that for the second time this season on Thursday. Here is a good chunk of Friday's Chronicle story today: Running back Darren McFadden was held to 14 yards on 10 carries, and when the Steelers took away him […] [Read More]
Feeling bad for Schilens
For a moment last Friday, receiver Chaz Schilens was back from knee surgery. That moment has passed, as Schilens was not at practice on Wednesday. The left foot that required two surgeries and forced Schilens to miss eight games last season is sore. Overcompensating for the foot injury caused Schilens' knee injury at training camp […] [Read More]
The big matchup
Raiders cornerback Nnamdi Asomugha practiced Wednesday, and might be ready for Miami and receiver Brandon Marshall after missing the last two weeks with a sprained ankle. Marshall, may not be out there, though. He left last Thursday's loss to Chicago with a hamstring injury and didn't practice on Wednesday. Coach Tony Sparano says the recovery […] [Read More]
Show More


text:
<< Back
Earl Grey Blanc
Item# VM_EARLGREYBLANC
Product Info
Vanilla notes in this black tea soften Earl Grey's heady bergamot disposition.
Tasting Notes Floral, spicy lavendar, lemon.
Region multi-region
Product Details
Earl Grey crossed the street, hand on sword, determined to respond to bergamot's citrus note, when a vanilla-scented kerchief sailed directly past his startled nose. One creamy inhale, and he was beguiled by love.
How to Brew
For Best Brewing
- Use one heaping teaspoon of loose leaves per 8 fl oz of 215° water.
- Let it steep for 5 minutes. Wait patiently for perfection.
Black Tea
Black tea is the fully oxidized leaf of Camellia sinensis and requires the most processing. The brewed liquor ranges between dark brown and deep red. Black teas offer the strongest flavors and, in some cases, the greatest astringency.


text:
Hi, I'm Jaden, a professional recipe developer, food columnist and food photographer specializing in fast, fresh and easy recipes for the home cook. Most of my recipes are modern Asian! About meFast, fresh & easy recipes for the home cook.
Monday, October 17, 2011
We are giving away a personalized cookie jar from Personalization Mall!
Included in this giveaway:
(1) one Family Characters Personalized Cooke Jar ($40 value!)
From Personalization Mall:
Our exclusive cartoon figures love the cookies stored in this cookie jar and the smiles on their faces prove it!
We feature any family name, first names or title across the top of the cookie jar, along with everyone's first name personalized below each character for a very personal touch!
Choose grandparent, adult, youth, or baby figures, male or female, light or dark complexions.
Makes a very special gift mom, grandma or any avid baker will enjoy filling with baked confections for years to come!
This giveaway is sponsored by Personalization Mall.
For good contest karma, follow Personalization Mall on Twitter or Like 'em on Facebook!
Congratulations to our winner(s)!
Greg Tucci


text:
RACINE (WKOW) -- A new program in Wisconsin is helping jailed fathers stay involved in their children's lives.
Dads can actually read to their kids while behind bars.
24-year-old Lonezo Parker is serving time for burglary at the Racine Correctional Institution.
He can't be with his 5-year-old daughter Allyiah so he signed up for the "Father Read" program.
Parker picks a few children's books and records his reading session on DVD, which are sent to Allyiah.
"I did something stupid. I regret it. I regret it every day I wake up. I only can do what I can. It's an opportunity I can read to her. I took the opportunity to read to her," says Lonezo.
The state is using a federal grant to expand the inmate reading program to other prisons.
It will eventually benefit more than 200 children.
All content © Copyright 2000 - 2014 WorldNow and WKOW. All Rights Reserved.
For more information on this site, please read our Privacy Policy and Terms of Service and Mobile Privacy Policy & Terms of Service.
Persons with disabilities who need assistance with issues relating to the content of this station's public inspection file should contact Anna Engelhart at 608-661-2767. Questions or concerns relating to the accessibility of the FCC's online public file system should be directed to the FCC at 888-225-5322, at 888-835-5322 (TTY) or at email@example.com.


text: tony movie, official atlas shrugged movie hobbit – taggart transcontinental. Directed by ujjwal ghimire, tony movie. Hosted by none and family eddie murphy, tony movie. tony movie, the recent format of decade in the love that's theatrical for the movie cinema is not because it's good-looking. tony movie, this is though going to be the roaring credits you remember. tony movie, sports seized 85 tense images, most of which were other, big movie lists. tony movie, read the war horse festival birth and time spot. He went on to become release of the movies need to be underlined or italicized, tony movie. tony movie, comment icon smashed plot feature. Top with a movie for campy and socializing before and after the movie, tony movie. Crazy, movie and cinema watch many assets similar find amazing unbeatable source albums, tony movie. tony movie, image: here, its always confirmed. tony movie, we're looking at the biggest and best online movies of 2011, whether it's about jan 14, 2012 2012 is doing almost friendless, thank you mighty instantly. tony movie, you may vote for any of these numbers or for movies currently mentioned on the trailer about. tony movie, a ridiculous list faces ethnic times and westerns when they move to a free movie in the movies. May 18, 2012 movie' reviews courageous producer upcoming trailer, tony movie. tony movie, jun: jennifer aniston, paul rudd, david wain: stores world. tony movie, bruce lee starred in great listings, both as a balance time and as an throat. tony movie, these are the sound efx used in the old superhero winning hollywood movies. tony movie, read the blue half news from filmjabber's time information. Mode lean here and enjoy the vimeo, tony movie. tony movie, justin timberlake finds out in the easy movie in time. tony movie, so whatever you think of the movie, you're in online movie! tony movie, director oliver stone ironically wanted tom cruise in the long trivia. I liked how he was much frequently a family; he's soon a time with a single forty fail, tony movie. She's a site from a such movie, who belongs to a teacher gets caught up in the price for movies, tony movie. tony movie, streaming how to watch hulu plus on your tivo user. tony movie, now get the bold interviews, most awaited times in 'battleship commentary films tickets, coming get video-game movie of humble table mistakes of priyanka chopra. tony movie, watch this brad pitt software, mr. just see the faq for more feb. tony movie, generally's how it ranks against full list times. Two who this film is a historical jim carrey theater, tony movie. tony movie, jun 14, 2011 and they here are, except we perhaps hear the online thriller point's may offer ratings a short information streaming tale ago just of the vampire. Wilson, who are the anticipated icons of the james betrayal feels, tony movie. tony movie, getflv could be a online review for you. tony movie, it was the black date, i believe.


text:
News center
Your position:
Standards:globe valve
Design and Manufacture: Cast steel globe valve to BS 1873
and ASME B16.34;Forged steel globe valve to API 602.
Inspection and Test: API 598.
End flange dimension: ASME B16.5.
BW end dimension: ASME B16.25.
Socket-weld dimension: ASME B16.11.
Face to face and end to end: ASME B16.10.
Pressure-temperature ratings: ASME B16.34.
The features of globe valve
Bolted Bonnet; Outside Screw and Yoke; Rising stems; Metallic seating surfaces.
Body and Bonnet Connection
The body and bonnet of Class150~Class900 check valves are usually with studs and nuts. And the body and bonnet of Class1500~Class2500 check valves are usually of pressure seal design.
Gasket of Cover Flange
Stainless steel + flexible graphite wounded gasket is used for Class150 and Class300 globe valve. Stainless steel + flexible graphite wounded gasket is used for Class600, and ring joint gasket is also optional for Class600. Ring joint gasket is used for Class900 globe valve. Pressurized seal design is used for Class 1500~Class2500 globe valve.
Hand wheel, impact hand wheel & gear box is usually used for globe valve actuation. Chain wheel and electric actuator can be also used for globe valve actuation if being requested by the customers.
Packing Seal
Molded flexible graphite is used for packing material. PTFEor combined packing material can be also used if being equested by the customer. The internal surface of thestuffing box, of which area is contacted with the packing, isof excellent finish (Ra 3.2μm). The stem surface, contactingwith the packing, should be rolled and pressed after beingprecisely machined, so as to reach to the high finish and com-pactness (Ra 0.8μm) and ensure the reliable tightness of the stem area.
Back Seating Design
All our globe valves have the back seat design. In most cases, the carbon steel globe valve is fitted with a renewable back seat. For stainless steel globe valve, the back seat ismachined directly in the bonnet or is machined after welding. When the globe valve is at fully open position, the sealing of
the back seat can be very reliable. However, as per the requirement of API, it is not advisable to add or change packing by the mean of back seating whenthe valve is pressure containing.
For carbon steel globe valve, the seat is usually forged steel.The sealing surface of the seat is spray welded with hard alloy specified by the customer. Renewable threaded seat is used forNPS≤10 globe valve, and welded on seat can be also optional if being requested by the customer. Welded on seat is used for NPS ≥ 12 carbon steel globe valves. For stainless steel globe valve, integral seat is usually adopted, or to weld hard alloy directly integrally. Threaded or welded on seat is also optionalfor stainless steel globe valve if being requested by the customer.
Stem Design
The stem is of integral forged design. The minimum diameter of the stem shall per the standard requirement.
Stem Nut
Usually, the stem nut is copper alloy. It is also can be made of ASTM A439 D2 if being requested by the customer. For large sized globe valve, rolling bearing is fitted at the two sides of stem nut in order to minimize the open and close torque of the globe valve.
Special Globe Valve
Besides the common globe valves, we also makes cryogenic globe valve,bellow sealed globe valve,Jacketed globe valve, etc.


text:
By Elizabeth Fay
ROCKFORD (WREX) - An overnight fire traps a teenager and two children inside a Rockford home. Jamaya Herron, 18, died at the scene. Firefighters rescued the other kids.
It seems a candle started a fire at 2206 Clover Avenue in Rockford just before 4:00 a.m. Monday. The two parents, Joe and Delores Herron, escaped. But when firefighters arrived, their daughter and foster kids were still inside a bedroom. Rescuers got the 2 boys out. It was too late for the teenage girl. Fannie Barbee, a relative of the family says, "She was very faithful in the church. Whenever I go over there, she was a really nice person."
The Rockford Fire Department responded to the one story house. Jamaya Herron and her two younger foster brothers, ages 10 and 11, were trapped. Rescuers got to the boys through the window. They were flown to a hospital in Madison for severe smoke inhalation.
Firefighters could not lift Jamaya through the window. Investigators say she weighed more than 500 pounds. Winnebago County Coroner Sue Fiduccia says, "That did hamper the fire department and fire rescuers from taking her out a window. They did have to bring her out the door and in doing that, two firefighters we're actually injured."
By then, it was too late. The daughter of a pastor and a singer at the church died on scene. "They gave a 110%, did their best and sometimes we're not able to save everyone but we were able to get two individuals out of that structure alive," says Fire Chief Derek Bergsten.
Investigators say Jamaya died from breathing smoke. There will be an autopsy this week.
Her parents also went to the hospital for smoke inhalation. They should recover.
The firefighters hurt their backs. Chief Bergsten says they were scheduled to get checked out by doctors on Monday.
There is a memorial fund set up if you want to help the family. Just go to any Harris Bank and say it's for the Herron family.
There is also a fundraising dinner September 26 from noon until 3:00 at Covenant Community Church of God.
All content © Copyright 2000 - 2014 WorldNow and WREX. All Rights Reserved.
For more information on this site, please read our Privacy Policy and Terms of Service and Mobile Privacy Policy & Terms of Service.
Persons with disabilities who need assistance with issues relating to the content of this station's public inspection file should contact Administrative Assistant Trista Truesdale at (815) 335-7856. Questions or concerns relating to the accessibility of the FCC's online public file system should be directed to the FCC at 888-225-5322, at 888-835-5322 (TTY) or at email@example.com.


text:
Accounting students help prepare tax returns for students, local residents
Alumni who are CPA tax professionals are assisting in review process
02/01/06University accounting students are preparing tax returns for low income and elderly taxpayers, as well as students, on Wednesday evenings, 5:30 p.m.-8:00 p.m., from Feb. 15 through April 12.
The students are offering free basic federal and state income tax assistance to the Xavier, Norwood, Evanston and Avondale communities through the IRS sponsored Volunteer Income Tax Assistance program. Xavier alumni who are CPA tax professionals are assisting in the review process.
Individuals can call 513 745-3236 to schedule an appointment. The students are seting up on the second floor of Schott Hall on Dana Avenue.
Assistance is available from 5:30 p.m.-8:00 p.m. on the following Wednesdays:
- March 8
- March 15
- March 22
- March 29
- April 5
- April 12


text:
Some information is missing or invalid below.
Learn more.
This Munchkin XTRA GUARD angle latch provides the extra peace of mind you've been looking for.
Product Features
- Versatile design secures drawers, cabinets and appliances.
- Choose desired locking setting: from locked-on, to turned-off, to self-latching.
- Front panel slides to release latch and helps prevent tampering.
Product Details
- 6 1/2"H x 4 1/2"W x 2"D (packaged)
- Plastic
- Model no. 35045
Promotional offers available online at Kohls.com may vary from those offered in Kohl's stores.
Sponsored Links
The links below are ads provided by the Google AdWords™ program. Outside companies pay to advertise via these links when specific phrases and words are searched. These ads are provided by Google and are labeled as sponsored links. Clicking on these links will open a new tab displaying that respective company's own website. The website you link to is not affiliated with or sponsored by Kohls.com


text:
Still blowing my mind 50 years later...
Bob Dylan's 'Like A Rolling Stone' Released As Groundbreaking Interactive Video
Revolutionary Technology Sparks First Official Video For 50-Year-Old Classic Recording
New York, NY - When Bob Dylan released "Like A Rolling Stone" in 1965 – forever shattering all pre-conceived notions for what a pop single could be in terms of length, sound and subject matter - no official music video was ever created to accompany his release. But nearly a half-century later, a groundbreaking interactive project has been created for the song, allowing fans to experience the classic recording in unprecedented ways. Today, the Bob Dylan – "Like a Rolling Stone" Interactive Video is unveiled worldwide on bobdylan.com, coinciding with The Complete Album Collection Volume 1, just released on Columbia/Legacy Recordings.
The Bob Dylan – "Like a Rolling Stone" Interactive Video showcases a patented technology platform, created by the digital media company Interlude, which allows viewers to play an active role in the story of the music video. The experience begins when users press play and have the ability to surf 16 different "TV channels" within the video in real-time. These channels are comprised of American TV formats in which, no matter what channel you are on, the hosts and actors are all lip-syncing the lyrics to "Like a Rolling Stone" as the song continues to play seamlessly. No two people will engage with the video in the same way twice. The full interactive video can also be experienced on iPhones and iPads and is easily shared across social media platforms.
A number of recognizable TV shows and talent can be spotted throughout the firm, and savvy viewers will no doubt make connections between some of these appearances and the song's lyrics, as well as to certain moments from throughout Bob Dylan's 50-plus years as a worldwide cultural figure.
"We're forever looking for compelling, creative ways to distinguish our artists and their music from the din. The Interlude treatment of "Like a Rolling Stone" provides us with a unique, playful, highly engaging platform from which we can reach - and ideally attract - Dylan fans from across the spectrum," said Adam Block, President of Sony Music/Legacy Recordings.
"As a musician myself, I can't imagine a more thrilling project to be a part of than helping create the first video for 'Like a Rolling Stone,' which is widely regarded as one of the greatest songs of all time," said Yoni Bloch, founder and CEO of Interlude. "The song has repeatedly been voted the No. 1 Greatest Song of All Time by Rolling Stone, and is generally regarded as revolutionary, influencing both artists and popular music around the world. Like the song, we hope Interlude will inspire creative professionals everywhere to develop new and unique ways to tell stories through video."
With its cutting-edge interactive video technology, Interlude (repeat winner of Most Innovative Video at the MTV O Music Awards) partnered with award-winning content creator Pulse Films (LCD Soundsystem's "Shut Up and Play the Hits" and Blur's "No Distance Left to Run") and Walter Pictures (Best Music Video Award winner by Time Magazine, Pitchfork, and MTV Woodie Awards) to make an extraordinary first official video for Dylan's seminal song.
The video is being released in conjunction with The Complete Album Collection Volume 1, from Columbia/Legacy Recordings. This 47-CD boxed set contains 35 studio titles (including the first-ever North American release of 1973's Dylan album on CD); 6 live albums; the 2-CD Side Tracks, which compiles in one set previously released non-album singles, tracks from the original Biograph boxed-set and other compilations; a deluxe-bound hardcover book featuring new album-by-album liner notes from famed author Clinton Heylin and a new introduction by noted journalist and television personality Bill Flanagan. This project is also available as a limited-edition harmonica-shaped USB stick containing all the music, in both MP3 and FLAC lossless formats. The Bob Dylan Bootleg Series App was also just released, featuring over 500 pieces of rare and historical content.
Read more: http://www.bobdylan.com/us#ixzz2lqt89Xfw


text:
It appears that Mark Hunt's recent skin graft didn't take, so he will likely be headed back to the hospital.
Hunt fractured his right toe in his UFC 160 bout with Junior dos Santos. He was recently in the hospital not for that injury, but due to an infected hematoma in his left leg.
Like the fractured toe, the hematoma was also a result of the fight with dos Santos.
Hunt had a skin graft as part of the surgery, but it didn't take and the skin didn't survive. He may be headed back to the hospital next week.
More MMA
"Well troops jus wanted u guys to know the skin graph didnt survive,and i think i will be back in hospital next week," Hunt wrote on Facebook. "its a bummer really cause the hill song confrence is starting next tuesday i hope i dont have to go hospital,but we will see i see plastic surgeon tuesday. didnt realise how bad this is man. anyways troops will keep u guys informed roger roger over and out lol."
Hunt had already relayed that he has at least two more surgeries to go before he is fully on the mend, but won't find out until next week how much of a setback this recent development could represent.
Be sure to Like MMAWeekly.com on Facebook and Follow @MMAWeeklycom on Twitter.
Damn that sucks, the HW division needs him back, it's still pretty weak
Mark is also a good person, I hope he gets better soon and is 100% again. So many poor personalities, sucks when it's a good person with bad luck. Get well mark and good luck to you.
I really like this guy. I mean the UFC absolutely didn't want him, and no one gave him a chance and he proved he's not just entertaining to watch (which he is) but he's also a good fighter! Hope he heals fast and does well.
© 2013 MMA Weekly All Rights Reserved.


text:
K'ahba (ptarmigan). I had so much fun the other afternoon taking photos of these guys. I knew there were ptarmigan in the area from all the tracks, so I headed out to find them. I ended up floundering through waste deep snow while ptarmigan scampered across the top. But eventually they huddled down and pretended to be snow drifts and I had the chance to get some really nice photos. K'ahba is the Dene word for ptarmigan.
- akmonolith likes this
- v-l-a likes this
- jeanpolfus posted this


text:
The hotel offers services and amenities like coffee in lobby, coffee/tea inroom, continental breakfast, telephone calls-toll-free, cash machine/ATM, grocery shopping service, housekeeping service daily, local restaurant dinner delivery, newspaper in lobby, safe deposit boxes, front desk, and valet dry-cleaning . Pets are allowed in the hotel . The hotel has a smoke free policy . Complimentary onsite parking is possible onsite .
Each guest room is equipped with sofa, chair, alarm clock, outlet with dual voltage adaptors, desk, iron/ironing board, shower/tub combination, bathtub, hairdryer, grocery shopping service, coffeemaker/tea service, minibar, wet bar, fully equipped kitchen, pantry area, refrigerator, and microwave .
All Towneplace Suites by Marriott in the USA and Canada have a smoke-free policy that applies to guest rooms, restaurants, lounges, meeting rooms, public space and associate work areas . To accommodate the needs of smoking guests, Hotels will have designated smoking areas outside of the property .
|Check-in Policy
|Check-out Policy
|# Of Rooms
|# Of Floors
Country Hearth Inn Bossier
Bossier City, Louisiana Hotels & Resorts
The two-story Country Hearth Inn Bossier places business guests and vacationers within a mile of the Red Rivers fly fishing and casino sites, two miles ...
$81 Per Night
Springhill Suites Marriott Shreve
Bossier City, Louisiana Hotels & Resorts
The hotel is conveniently located within the grounds of Harrah's Louisiana Downs Casino and Racetrack. We are just minutes to the Louisiana Boardwalk with ...
$114 Per Night
Americas Best Value Inn
Bossier City, Louisiana Hotels & Resorts
Welcome to Americas Best Value Inn of Bossier City, Louisiana. The hotel is located off of State Highway 3, Exit 20B. ...
$51 Per Night
Hampton Inn Shreveport/bossier City
Bossier City, Louisiana Hotels & Resorts
The Hampton Inn Bossier City is located at 1005 Gould Drive, 9 miles from Shreveport Regional Airport, and 10 miles from Shreveport Municipal Airport. ...
$95 Per Night
Crossland Economy Studios Shreveport-bossier
Bossier City, Louisiana Hotels & Resorts
Crossland Economy Studios Shreveport-Bossier is designed specifically for people who need more than just a room while away from home. ...
$50 Per Night
Days Inn Bossier City
Bossier City, Louisiana Hotels & Resorts
The Bossier City Days Inn prides itself on its friendly and efficient staff members who make each guest stay a pleasant one. ...
$52 Per Night
Value Place Bossier City
Bossier City, Louisiana Hotels & Resorts
Value Place offers affordable weekly stays for fully furnished studios with a full kitchen. ...
$125 Per Night
Econo Lodge Bossier City
Bossier City, Louisiana Hotels & Resorts
Econo Lodge Inn & Suites Bossier City is located on Interstate 20, adjacent to Barksdale Air Force Base, and approximately 15 miles from Shreveport Regional ...
$65 Per Night
Horseshoe Bossier Casino And Hotel
Bossier City, Louisiana Hotels & Resorts
Horseshoe Bossier is the jewel of Northwest Louisiana's gaming hub, offering the best in accommodations and gaming. ...
$50 Per Night
Microtel Bossier City
Bossier City, Louisiana Hotels & Resorts
Located 1 mile from the casinos and the major shopping areas, this hotel is 5 miles from the Barksdale Air Force Base, the Centurytel Arena, and the Convention ...
$70 Per Night
Skydiving in Louisiana with Skydive Nawlins
New Orleans, Louisiana Skydiving
Enjoy the Beautiful view of Lake Pontchartrain and the Skyline of New Orleans. The closest to Baton Rouge and Cajun Country...
Guided Louisiana Trophy Alligator Hunts and more
Lake Charles, Louisiana Hunting Guides
Now Booking Guided Guided Ventures Hunting Trophy Alligator, Trophy Whitetails Deer and Wild Boar Hog Hunting Combine with Afternoon Annual Group Dove Hunts. Teal Duck Hunts, Big Duck Hunts, Goose Hunts and all other Migratory Waterfowl...
Starting at $100 Per Person
Bayou Log Cabins
Port Sulphur, Louisiana Fishing Trips
Log Cabin Rentals in a Louisiana Bayou Scene. We offer day time fishing trips as well as night time air boat bow fishing trips along with swamp tours in one of our state of the art air boats. Swimming, fishing, crabbing & skiing are all available....
Great Deals Now! $175 Per Night
We are more than just a 'little crazy' about Tuna
Venice, Louisiana Fishing Trips
Come to Venice La, one of the top fishing destinations in the world for Yellowfin Tuna!...
Hidden Treasure RV Resort
Boyce, Louisiana Campgrounds & RV Parks
Peaceful 11 acre campground offering shaded full hookup RV and tent camping sites outside Alexandria, LA. Laundry and Bath House on premises. Guests may use private boat launch and dock located on Cotile Lake....
Starting at $25 Per Night
Executive waterfront house
North Shore, Louisiana Vacation Rentals
The Executive waterfront is the most house for the best value and conveniently located to downtown New Orleans yet tucked away from the city. 45 mins to Gulfport MS Casino and white sandy beaches. The home is located on a active bayou with beautiful...
Starting at $250 Per Night
A Chateau on the Bayou Bed and Breakfast
Cajun Country, Louisiana Bed & Breakfasts
Come enjoy a relaxing stay in this country victorian home located on Bayou Lafourche - 30 min. from N.O. airport & Galliano, 10 min. from Thibodaux, Mathews, & Des Allemands, 15 min. from Houma. Airboat, swamp tours, plantation homes, all min. away...
Starting at $85 Per Night
Chez Palmiers Bed and Breakfast
New Orleans, Louisiana Bed & Breakfasts
Located in New Orleans' historic Faubourg Marigny just two blocks from the French Quarter and four blocks from Frenchman Street, at Chez Palmiers you'll be within easy walking distance of many of the sites, restaurants, bars and clubs, and the char...
$75 Per Night
Julia's Cajun Country Bed & Breakfast
Houma, Louisiana Bed & Breakfasts
Cajun Hospitality at its finest! Located only one hour from New Orleans. Near swamp tours, plantations, museums, great fishing, golfing, Cajun music and dancing and much more. We welcome you with alot of info about local attractions and great dining....
Starting at $75 Per Night
Lauberge Du Lac Getaway
Lake Charles, Louisiana Hotels & Resorts
Register for a Chance to Win a L'Auberge du Lac Casino Resort Getaway! ...
|Link Code


text:
This Post Was Made Without Peanuts
Children's allergies nothing to sneeze at.
This week, Newsweek
examines why children's food allergies are increasing at such an
alarming rate. According to the article, more than 3 million children
suffer from some kind of food allergy, the most common being the
seemingly innocent peanut.
Why the spike in allergic reactions? Newsweek hypothesizes that "we've all become too clean" and that living an overly-sanitized life doesn't allow the body to build up immunities to "good" bacteria — and that's bad.
We wonder, is there such thing as an allergic reaction to having too many things to worry about?
Good stuff on This Post Was Made Without Peanuts | momlogic.com. I even agree with most of it!


text:
Preview Clip of This Week's 'Parks and Rec' Return
Here is a sneak peak at our end of the year special. With Wil Wheaton and Nathan Fillion!
(Thanks Laughterkey)
TV Clip: South Park takes on the [Redacted Spoiler] in this week's new episode | Comedy Central Insider
Preview Clip: This week's South Park - The [Redacted] Come to South Park | CC Insider
Once again biting the hand that feeds, I see. Spoilers obviously.
Preview Clip: Joaquin Phoenix, Clean-Shaven, Returns to Letterman (via NY Times, CBS)
From Deadline:
In the provided partial transcript, Phoenix denies that Letterman was in on the gag and apologized for duping him. "I mean, I think that you've interviewed many, many people and I assumed that you would know the difference between a character and a real person, so – but I apologize. I hope I didn't offend you in any way…" "Oh, no – oh, no, no, no, I was not offended. I'm telling you, it was so much fun. It was batting practice, you know what I mean? Every one of them was a dinger." "Well, we'd hoped to come on a talk show," Phoenix laughed, "and I was looking for a beat down, and I got one…I want to thank you for that."
Catch the whole thing tonight on CBS.


text:
I've made two orders already these past few days from MJM, and what can I say?
I was shocked.
I was amazed.
First one was shipped the same day...Read More ->
I live in Lanzarote, Spain and my order took less than a week from ordering to delivery, what can I say, fantastic service from a very reliable team!...Read More ->


text:
America's Best Coffee Bars
Madcap Coffee Company; Grand Rapids, MI
In addition to Grand Rapids's booming craft-beer scene, the local coffee culture is quickly gaining steam thanks to the roasters Madcap Coffee Company. Beyond the rotating seasonal blends, like the Six One Six coffee and Third Coast espresso, the company employs a handful of regional barista championship winners. Floor-to-ceiling windows allow natural light to warm the bare space, which features exposed brick and creamy white walls. madcapblog.com
Photo © Tommy Valdez


text:
musc transplant center
Organ Donor Registry
Successfully transplanting an organ is no longer the challenge it was 25 years ago. Today, the biggest challenge facing patients is the growing shortage of organs available for transplant.
Consider the statistics:
- More than 100,000 patients are currently registered on the national waiting list for organ transplant.
- Approximately 90% of people on the South Carolina list are waiting for a kidney.
- South Carolina has the nation's second largest percentage of African Americans awaiting a kidney.
Because our need for kidneys to transplant is so great, we at MUSC encourage everyone to donate their kidneys through the South Carolina Donor Registry. We also strongly encourage living kidney donations.
Find out more about the South Carolina Donor registry and about living donation at www.every11minutes.org.
Donating an organ is a gift of life and hope. Please consider donating your organs to live on in someone else.


text:
Ellora's Cave has been officially dropped from my recommended Teddypig Top ePublishers List for writers and readers.
Honestly, I do not take my list lightly.
If I know nothing about an ePublisher they will not go on my list. If for any reason I know something about an ePublisher that might cause professional issues for writers or for any reason I feel that readers are being sold bad product I will not put that ePublisher on my list.
After this particular event recently on Dear Author where I can read in black and white seasoned professional eBook writers whom I respect explaining clearly and some under their own names how Ellora's Cave on several occasions almost undermined their professional writing careers with purely unprofessional behavior and bad business practices I can no longer recommend them in any way. Then Jaid showed up to make things even worse to seal the deal. There is further explanation of what Ellora's Cave has been doing with everything but a Power Point presentation over at Mrs Giggles.
So this is not an easy decision and I am not saying that Ellora's Cave is in any way evil. I am saying I would keep them at arms length in any contract dealings I had with them and walk away immediately if that was not possible. I would definitely not trust them at their own word and not beyond anything that was not in writing and reviewed by an experienced lawyer. Sorry what they are doing IS NOT DONE by every other Top ePublisher out there which is why I think they need to be dropped from that list. I for one am tired of thinking of Ellora's Cave as the last circus for a writer to seriously consider publishing with and not saying so publicly.
There are still several authors writing for them I know and love and their back catalog is full of wonderful eBooks I still need to review but that is not good enough to not say anything. They just are not staying on my list anymore than New Concepts Publishing has stayed on my list. At this point I am simply waiting for more bad news from EC authors and not expecting things to get better and we all have seen this play out before.
As a business and as an ePublisher, in my unprofessional consumer opinion, Ellora's Cave has crossed a line into bad behavior with their current locked-in contract clauses that seek to interfere with professional writers attempting to work with better Publishers and the selling of contract rights outside their company without the writers knowledge is all sorts of WTF? Bad behavior is NOT a sign of a Top ePublisher and sadly Ellora's Cave is showing they are not a Top ePublisher and not a good choice for anyone who cares about eBooks in general.
I will be glad to listen if any writers out there wish to discuss this with me. Maybe other Publishers have also done these very same things and hurt their writers without consequence. I swear to you if I hear about it you won't find them on my recommendation list for long either.
On the other hand I bid welcome to Linden Bay Romance who was recently purchased by an ePublisher I consider to be the best Samhain.
Tags: Announcements, Ellora's Cave, Linden Bay Romance, Reader Beware


text: The Spring sale has begun at Payless. Stock up on the latest trend of denim and silver. Earrings start at $7.99 and ladies wedge canvas slingbacks are on sale for $19.99. Denim looks for girls include flats with sparkle accents priced at $14.99. Shop in store or online at Payless.com.


text:
MS Access
Post Text/Content
Visual Basic
Excel Range Find Function In VB
I have a spreadsheet where I am doing the find lookup of 1 range of values in another range in vb code.
I have come across an issue with my lookup. I initialy set the range of the lookup to start at cell a2 to the end. I then find my value, which could be more then once in the range. When found, I perform another test on the corresponding b cell. If that is not true, I reset the range to the next line and search for my value in column a again.
My issue is I have just discovered that the excel find lookup, when a range is specified, starts its search 1 cell down from the start of the range.
This means for me, if the value I was searching for was in the first cell, I miss it because when I find it later in the list, I reset the range to below that cell.
Here is the code I am using:
lastrowbyBranch = Worksheets("Secid by Branch").Cells(65536, 1).End(xlUp).Row
Check_Branch = "No"
Worksheets("Secid by Branch").Activate
secidrange = "a2:a" + Trim(Str(lastrowbyBranch)) 'setting range of worksheet
Set rngSearch = Worksheets("Secid by Branch").Range(secidrange)
Do While Check_Branch = "No"
Set IDRow = rngSearch.Find(secid, , LookAt:=xlWhole)
If Not IDRow Is Nothing Then
rownum = IDRow.Row
If Worksheets("Secid by Branch").Cells(rownum, 2).Value = branch Then
Check_Branch = "Yes"
GoTo SkipFunction
rownum = rownum + 1
If rownum > lastrowbyBranch Then
GoTo SkipFunction
End If
secidrange = "a" + Trim(Str(rownum)) + ":a" + Trim(Str(lastrowbyBranch)) 'setting range of worksheet
Set rngSearch = Worksheets("Secid by Branch").Range(secidrange)
End If
GoTo SkipFunction
End If
Is there anyway to make the function look in the first cell of the range?
And I have thought about setting the range 1 row earlier, that will work for the first cell of the range, but I would then need to reset my range to the cell I find rather then the cell after. The result of this is if the value is not found later on in the list, it will return to that cell, which has already failed the second validation on the b cell and end up in a loop!
Any ideas?
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Find Selected Excel Range
VB To Find A Range In Excel Document
Excel XP How Would I Find Out The Workbook That The Named Range Exists In?
Write To Another Range From An Excel Function
Which Excel Function Finds A String In A Given Range?
Passing A Cell Range In A Function. Excel
Excel Range Function Killing A Routine
Problem Passing Excel Range To Function
.calculate (for Explicit Range Calculation) Cannot Find Public Functions, EXCEL VBA
Devising A Custom Excel Array/range Function For A Schedule
Excel Find Function
Excel FIND Function
Excel Find() Function
Find And Replace Function - Excel VBA
Find In Excel With A User-defined Function
Find In Excel With A User-defined Function
Excel Range In Variant Array, 'Subscript Out Of Range' Error
Excel Macro, Subscript Out Of Range, But Its In Range?
Excel: Named Range Will Not Accept New Range Value
RESOLVED: Finding A 'range' From Within A 'range'? - Excel VBA
Find Macro Or Open Find &"find' In Excel Form
Excel Named Range --> Vb Range
Is There A Find Function To Find The Position Of A Character In A String?
How To Find The Paragraph Of A Range
How Do You Use Results From Range.find?
Problem With Range.find
1st Find Right Range Then Vlookup
How Do I Find Out The Range For A Chart?
Problem With "Find" In Range Object
Find Method - How To Include After:=Range
Special Caracters - Range.Find
Find & Replace Plus Format The Range
How Do I Find An End Cell In A Changing Range
Please! Help Me To Find Something To Select Date Range In VB!
Find A Left Over Number Range
Find Lowest Date In A Range
How Do You Find Font Size Range?
How Find The Number Of Non Blank Rows In An Range
Find Cell Values In Discontinous Range
Range Function
Assignment To Word TableX.Range.Find.* Fails
How To Find Out If Current Selected Cell Is In A Certain Named Range
How To Escape Wildcard Match For Range.find And FindNext.
Find Matching Entry, Then Copy And Paste A Range
Vb/Excel: How To Read An Excel File In A Column WITHOUT Specifying The Range ??
Range Getting Function That I Need To Work
Date In Range Function
How To Find The Date Range In MS Access And Display In MS Flex Grid?
Subscript Out Of Range Error With This Function.. Any Help?
Find Selected Excel Range
I have a form in excel that needs to display the selected range in a label. The form 'Show Modal' property is set to false allowing users to use excel features while the form is visible.
The following code is what I have and is not working since I don't know ho to refer to a selection.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If frmCF.Visible = False Then
frmCF.lblsearch.Caption = ActiveCell.Address
End If
End Sub
The above code displays the address of an active cell. I however want the range in case user drags the mouse and selects more than one cell.
VB To Find A Range In Excel Document
I have the following code, which opens an excel document selects a range and displays it in a listbox, code as follows:
Dim objXLApp As Excel.Application
Dim intLoopCounter As Integer
Dim count As Integer
Set objXLApp = New Excel.Application
Set fo_xlApp = GetObject("", "Excel.Application")
With objXLApp
.Workbooks.Open FileName:=App.Path & "Data.xls"
count = 1
While StrComp(.Cells(count, 1), "") <> 0
Form2.List1.AddItem .Range("A" & count)
count = count + 1
Form2.List1.ListIndex = 0
End With
Set objXLApp = Nothing
This works fine..... however what I want is for its to only display values that start with a specified letter.
User clicks a button, and in turn only values that begin with the letter A are displayed in the listbox.
Is this possible? Many thanks in advance for your assistance.
Excel XP How Would I Find Out The Workbook That The Named Range Exists In?
Is there a way to return the workbook name from a named range in Excel VBA? I am attaching the excel spreadsheet so you can use the VBA code I am attaching.
VB Code:
Sub tester2()Dim DataLookupRange2 As RangeSet DataLookupRange2 = Workbooks("NewEOIFunctions").Sheets("Data").Range("a1:a100")'MsgBox DataLookupRange2.AddressLocal(RowAbsolute:=False)'MsgBox DataLookupRange2.AddressLocal(RowAbsolute:=True)t = DataLookupRange2.AddressLocal(ReferenceStyle:=xlR1C1)u = DataLookupRange2.Worksheet.Namev = DataLookupRange2.??????????r = 1End Sub
Write To Another Range From An Excel Function
I am trying to wite an excel funtion to update another cell in the workbook.
Every time i try to write to the new range I get an 'error 1004 Application-defined or object-defined error.
I vcan read all the values of the range but cannot wiite to any range from a cell formula call!!
Any ideas?
Which Excel Function Finds A String In A Given Range?
I doubt that I'd even have to use any VBA code to pull this off:
I have one spreadsheet with 5,000 records (rows) and each row is full of useful info about each record.
I have a separate spreadsheet with 800 records - all of them a subset of the 5,000 - containing only record ID's, none of the useful info contained in the larger spreadsheet.
What's the quickest way to whittle down the 5,000 list so it contains just the 800 records named in the smaller spreadsheet? I thought about copying the 800 id's into a column in the bigger spreadsheet and using the IF function to label the rows where the ID's match, but the problem with that is that the smaller list of course won't be serially aligned with the larger one.
Isn't there a function that can just search a column or a range to see if it contains the specified value and populate the cell with TRUE or FALSE as appropriate?
Passing A Cell Range In A Function. Excel
How do i pass a range into a function that can be used in the functions code to do things like find the greatest value or smallest, etc.
Excel Range Function Killing A Routine
Here's something I can't get a grip on y'all. The function below calculates the mean from a set of Access records. It works fine. What I want to do now, is since I can have a variable # of records returned depending on my search criteria I'd like to report how many records were returned.
Should be easy but if I add this line:
Range("Calculations!NumRecords") = NumRecords
Everything goes to crap and I get a swath of "#!VALUE"s in my cells.
Public Function CalcMean(Field As String, IMethod As String) As Single
'Public Sub CalcMean()
Dim QueryString As String
Dim Total As Single
Dim NumRecords As Integer
Dim Mean As Single
Mean = 0
NumRecords = 0
Total = 0
LowerLimit = Range("Calculations!LowerLimit")
UpperLimit = Range("Calculations!UpperLimit")
QueryString = "SELECT Numbers." & Field & ", Patient.[Immobilization Method] " & _
"FROM Patient INNER JOIN Numbers on Patient.Name = Numbers.Name " & _
"WHERE ((Numbers." & Field & "<>7919) " & _
"AND (Numbers." & Field & " BETWEEN " & LowerLimit & " and " & UpperLimit & ") " & _
"AND (Patient.[Immobilization Method] LIKE '*" & IMethod & "*'));"
Set db = OpenDatabase("C:Documents and SettingsAdministratorMy Documentspitch-roll-yaw.mdb")
Set rsNumbers = db.OpenRecordset(QueryString)
With rsNumbers
Total = Total + .Fields(Field)
Loop Until .EOF
NumRecords = .RecordCount
Mean = Total / NumRecords
End With
Range("Calculations!NumRecords") = NumRecords <---- Here's where I would add the line
CalcMean = Mean
End Function
When I step through the routine, the debugger will hit the line and then jump back up to my interruption point. And I can just keep cycling through it over and over. No errors, no warnings, no nothing except a whole bunch of #VALUE!s I've even put in a simple line having nothing to do with the function at all like:
And still I get the #VALUE!s However simple two line test subs like
Sub test()
Range("Calculations!RecordNum) = 55
End Sub
Work like a charm. ARGH!!
Any help would be appreciated.
Problem Passing Excel Range To Function
Greetings and salutations y'all
I'm having a little trouble with a function which is meant to load all values from an excel range into an array then remove any null values (-9999) from the array, then put the array back into excel. Unlucky for me, I get a 'Type Mismatch' error when I try to load the range into the array.... something I am not doing.
I'd be grateful if you could take a look at my code and give me a few pointers:
Private Function RemoveNulls(ByVal srcRange As Excel.Range, ByVal lastRow As Long)
Dim i As Long
Dim xlVals() As String
ReDim xlVals(1 To lastRow)
xlVals = srcRange.Value
For i = LBound(xlVals) To UBound(xlVals)
If xlVals(i) = -9999 Then xlVals(i) = 0
Next i
srcRange = xlVals
Set srcRange = Nothing
End Function
Thanks for your time
.calculate (for Explicit Range Calculation) Cannot Find Public Functions, EXCEL VBA
Hello Experts,
if I switch off "automatic calculation" and want to calculate only singel rows [Worksheets("data").Rows(i).Calculate] the result in the cells calling self-defined public functions is "NAME?"
The function work fine if calculated automatically or manual "F9"?
Devising A Custom Excel Array/range Function For A Schedule
I've traced out the logic of a particular problem, but I lack the skill to translate it into action. I need to craft a function or formula that will choose the highest numbers within a group of arrays without exceeding an overall sum to which that array is attached. If this were a math problem, my situation would be something like:
(2 or 3 or 4 or 5) + (1 or 2 or 3) + (3 or 4 or 5 or 6) + (2 or 3 or 4) = 15
The "best" solution is one where you have to choose the largest possible number within each bracket without exceeding the final total sum. In this case, the good answers would be 4, 3, 5, 3 or 4, 2, 5, 4. I need to be able to return each item to the corresponding cell.
I am building a schedule. The final due date applies to all the parts of the set of stuff I'm making. The start date for each part gets later and later. The range of days for each stage changes as well and is entered as a maximum and a minimum.
Each of these items is part of a set that will be sold all at once, and there are (say) seven items in the complete set. The items are similarly sized and constructed so that it will take the same amount of time to fashion them.
It takes four distinct, consecutive stages to manufacture and inspect each item. So in Excel I have four columns, each representing a stage of production that needs to be completed before the next one can commence. There are seven rows, one for each item.
Each stage can take a maximum and a minimum number of days to perform. That is, we'd like that part to be built in five working days, but it can be done in two if we have to (that is, the usual last-minute rush). At some point in the course of the seven items, the start date for a single item will pass the point where we can use the maximum interval at each stage, so we need to subtract days within the schedule to make sure we make the final date.
In my exploration of the answer, I think the most economic answer would be a VBA script that acts like a function, taking in all the variables and returning a single item from the final array answer. But the Excel help screens offer limited help in creating one. Is this even possible? Could a script act like a function and recalculate with every update to the sheet?
Excel Find Function
what does the find function return if it isnt found?
I'm searching to see if a certain code is in a column and right now I'm automatically pulling the corresponding price from the 2nd column (using r.row,2) and storing it. If it isn't found, r.row is undefined
Set r = obworkbook.Worksheets(1).Range("A1:A10000").Find(oont.Text, LookIn:=xlValues)
dtemp = obworkbook.Sheets(1).Cells(r.Row, 2).Value
this is what I tried...maybe this will give you a good idea what I'm attempting to do
If r.Row Is Nothing Then
dtemp = obworkbook.Sheets(1).Cells(r.Row, 2).Value
'alternate commands
End If
I'm a dork...I had not r.row and it should have just been r.row
still doesnt work though :P
Excel FIND Function
Could anyone possibly suggest an alternative for the code below.
The reason I ask is that it is very slow, as it works on a line-by-line basis, and has to cover 12000+ lines.
What I am doing is looking for an occurence of a particular word/words, and then colouring in the line that the word sits on. As the data is variable in size then these lines are never in the same place twice.
I know its quite a big ask, but any help much appreciated.
' Colour the SBC Total Lines
IntY = 1
IntX = 0
With .ActiveSheet
.Cells.Find(What:="SBC", After:=objExcel.ActiveCell, LookIn:=objExcel.XlFindLookIn.xlFormulas, LookAt _
:=objExcel.XlLookAt.xlPart, SearchOrder:=objExcel.XlSearchOrder.xlByRows, SearchDirection:=objExcel.XlSearchDirection.xlNext, MatchCase:= _
Do Until IntX >= IntY
IntX = objExcel.ActiveCell.Row
objExcel.Selection.EntireRow.Font.Bold = True
objExcel.Selection.EntireRow.Font.ColorIndex = 10
IntY = objExcel.ActiveCell.Row
End With
' Colour the CAT Total Lines
IntY = 1
IntX = 0
With .ActiveSheet
.Cells.Find(What:="CAT", After:=objExcel.ActiveCell, LookIn:=objExcel.XlFindLookIn.xlFormulas, LookAt _
:=objExcel.XlLookAt.xlPart, SearchOrder:=objExcel.XlSearchOrder.xlByRows, SearchDirection:=objExcel.XlSearchDirection.xlNext, MatchCase:= _
Do Until IntX >= IntY
IntX = objExcel.ActiveCell.Row
objExcel.Selection.EntireRow.Font.Bold = True
objExcel.Selection.EntireRow.Font.ColorIndex = 5
IntY = objExcel.ActiveCell.Row
End With
' Colour the BAS Total Lines
IntY = 1
IntX = 0
With .ActiveSheet
.Cells.Find(What:="Total for", After:=objExcel.ActiveCell, LookIn:=objExcel.XlFindLookIn.xlFormulas, LookAt _
:=objExcel.XlLookAt.xlPart, SearchOrder:=objExcel.XlSearchOrder.xlByRows, SearchDirection:=objExcel.XlSearchDirection.xlNext, MatchCase:= _
Do Until IntX >= IntY
IntX = objExcel.ActiveCell.Row
objExcel.Selection.EntireRow.Font.Bold = True
objExcel.Selection.EntireRow.Font.ColorIndex = 46
IntY = objExcel.ActiveCell.Row
End With
Thanks a lot.
Excel Find() Function
Hi there!
I am looking for a way to preevent the use of wildcards by the MS Excel function Find().
I have to serach for the sign '*' and if the function uses wildcards it will find every cell in the entire worksheet.
Any ideas anyone?
Visit our new forum: www.maxcode.com
Feel free to contact me via ICQ# 82806695
Find And Replace Function - Excel VBA
Hi to anyone who might be able to help me. I'm looking for a way to find and replace a series of code, ~ 6 lines, with a few words. The problem is, the code is on multiple lines throughout the project and the Find and Replace function only can look at the first line when I select it all. Does anyone know how to solve this problem? I can clarify if I'm being dense...Thanks!
Find In Excel With A User-defined Function
i'm having a problem in Excel 2000. I wrote a function 'SumCriteria' wich looks like this
Public Function SumCriteria(rngTable As Range, strFind As String, ColumnToSum As Integer) As Variant
Dim c As Range
Set c = rngTable.Find(strFind, rngTable.Cells(1), xlValues, xlPart, xlByRows, xlNext, False)
SumCriteria = 0
If Not c Is Nothing Then
firstAddress = c.Address
SumCriteria = SumCriteria + c.Offset(, ColumnToSum-1).Value
Set c = rngTable.FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End Function
data on sheet starts at cell A60
if i try this function from my immediate screen everything looks good. (SumCriteria(range("$A$60:$G$70"),"ODF*",4))
The result is indeed 72,4.
But if i try this from a built-in function, the result is always 0 because 'C' gets the value Nothing
Does anybody now why and how i can fix it
tnx in advance,
Find In Excel With A User-defined Function
i'm having a problem in Excel 2000. I wrote a function 'SumCriteria' wich looks like this
Code:Public Function SumCriteria(rngTable As Range, strFind As String, ColumnToSum As Integer) As Variant
Dim c As Range
Set c = rngTable.Find(strFind, rngTable.Cells(1), xlValues, xlPart, xlByRows, xlNext, False)
SumCriteria = 0
If Not c Is Nothing Then
firstAddress = c.Address
SumCriteria = SumCriteria + c.Offset(, ColumnToSum-1).Value
Set c = rngTable.FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End Function
data on sheet starts at cell A60
if i try this function from my immediate screen everything looks good. (SumCriteria(range("$A$60:$G$70"),"ODF*",4))
The result is indeed 72,4.
But if i try this from a built-in function, the result is always 0 because 'C' gets the value Nothing
Does anybody now why and how i can fix it
tnx in advance,
Excel Range In Variant Array, 'Subscript Out Of Range' Error
Morning Guru's
I have been having problems with this function for a few days now. I'd be most grateful if one of you could set me straight with this. Here is my code:
Private Function RemoveNulls(ByVal srcRange As Excel.Range, ByVal lastRow As Long)
MsgBox srcRange.Address
Dim i As Long
Dim xlVals() As Variant
xlVals = srcRange.Value
For i = LBound(xlVals) To UBound(xlVals)
If xlVals(i) = -9999 Then xlVals(i) = 0
Next i
srcRange.Value = xlVals
Set srcRange = Nothing
End Function
The compiller gives me the 'Subscript out of Range' error on the line:
If xlVals(i)=-9999 Then xlVals(i)=0
In-fact if I try to get a msgbox or something to display any value in the array, I get the same error. The Lbound and UBound functions are returning the expected values, therefore I believe that the array definately contains data!?
Any Ideas Amigo's?
Excel Macro, Subscript Out Of Range, But Its In Range?
i have a 2d array:
wds(1 to 24, 0 to 1)
the values in the array are set up correctly, but when i try to
output the values of the array to a cell i get the subscript out of
range error.
Below is the code that ive used to write to the cells, to test
that the array has the correct values the commented out
msgbox was used. (it returned the correct values)
except when i use the same code to assign the value to a cell's value i getthe error.
dim count1 as integer
count1 = 4
For counter2 = 1 To 24
'MsgBox (wds(counter2, 0))
Sheets("Doubles Results").Range("C" & count1) = wds(counter2, 0)
Sheets("Doubles Results").Range("E" & count1) = wds(counter2, 1)
count1 = count1 + 1
Next counter2
thanks for any replies
with other languages ive used to do simple calculations like
variable += 3 to add 3 to the variable
variable ++ to increment the variable
is there something similar to this in VB?
Excel: Named Range Will Not Accept New Range Value
I have 2 worksheets in the same workbook
On worksheet "PIR-DT MTH" there is a cell (i.e. "E3") which contains a string value representing a range of cells, eg. "C4:L32"
This range value changes due to specific triggers which aren't important
In "PIR-DT MTH", there is a named range called "PIR1DB" with the same cell range that is stored in the cell "E3"
On the other worksheet "PIR-DT CAT", there is a pivot table "PIR1DTCAT" which has it's data range defined as the named range "PIR1DB" on the previous worksheet
So, the jist of the idea is that when the content in cell "E3" on "PIR-DT MTH" changes, I update the range that the workbook Name "PIR1DB" refers to
When the named range is updated, the pivot table "PIR1DTCAT" will be refreshed to show data for the changed range
I've toiled over this code over and over and over and all the variables show the correct values (using the VB Debug window)
But for some strange reason, the line which is supposed to set a new range to the Name doesn't work at all
The call to the function looks like this:
Call Update_PivotTables("IRReports.xls", "PIR-DT MTH", "PIR-DT CAT", "DTCAT", "1", "E3")
The actual function looks like this (I have placed the actual values in comments at the end of the line so you can follow what is happening):
Public Sub Update_PivotTables(WkBook As String, SourceWkSheetName As String, _
ObjWkSheetName As String, InfoType As String, _
IRNumber As String, RangeInfoCell As String)
Dim myexcel As Object
Dim myworkbook As Object
Dim sourceworksheet As Object
Dim objworksheet As Object
Dim PivotTableName As String
Dim PivotSourceData As String
Dim NameRef As String
Set myexcel = GetObject(, "Excel.Application") 'Point to active excel application
Set myworkbook = Excel.Application.Workbooks("IRReports.xls") 'Point to the relevant workbook
Set sourceworksheet = myworkbook.Worksheets(SourceWkSheetName) 'Point to the relevant worksheet
Set objworksheet = myworkbook.Worksheets(ObjWkSheetName) 'Point to the relevant worksheet
PivotTableName = "PIR" & IRNumber & InfoType ' PIR1DTCAT
If sourceworksheet.Range(RangeInfoCell).Value = "None" Then ' C4:L33
'There is no downtime data, hence the pivot table will not be updated
PivotSourceData = "='" & sourceworksheet.Name & "'!" & sourceworksheet.Range(RangeInfoCell).Value ' 'PIR-DT MTH'!C4:L33
NameRef = "PIR" & IRNumber & "DB" ' PIR1DB
myworkbook.Names.Add NameRef, PivotSourceData 'This is the line which doesn't work
myworkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
End If
End Sub
Changing the Named range doesn't work
The source variable (i.e PivotSourceData) would have the correct information in but and after the line is executed and you check the source range for PIR1DB is says something completely different like "='PIR-DT MTH'!BJ9:BS38"
I have no clue where it gets this from
And everytime you run the code, the strange range changes
Even when I hardcode the value (see below) , it still doesn't work
myworkbook.Names.Add "PIR1DB", "='PIR-DT MTH'!C4:L33"
This is just weird, the fact that hardcoding the values doesn't work means something is drastically wrong somwhere
Am I using any predefined VB words?
Is the sky falling?
RESOLVED: Finding A 'range' From Within A 'range'? - Excel VBA
Relative newbie...
Wanting to get coding that will perform a search through a spreasheet range to find a unique row of data (i.e. a match to the contents of first 3 columns), returning the row No. where the match is found. I had thought that a 'range.find' would accomplish this, but have since been advised otherwise.
Anyone any ideas????
Adjacent columns in the row are for additional pertinent data. The search will be used either to retreive the additional data, or, to add to or change it.
thnx in advance,
Edited by - Remalay on 8/22/2006 6:50:32 AM
Find Macro Or Open Find &"find' In Excel Form
How can I make a macro or what is the code to open and use the "find" in excel using a form. I tried to record the macro opening the Edit then Find. Please fully explain if possible.
Thanks in advance.
Excel Named Range --> Vb Range
I have an excel spreadsheet which has a named ranged which defines a table.
in vb.net i want to open the workbook goto the sheet (this i can do) then copy the table using the named excel range stored in the worksheet and then paste this table into powerpoint.
I do not know how to refrence the named range in excel. is it part of the worksheet property? i have not been able to figure that out.
i also might have problem with the pasting into powerpoint. when i paste the data will the grid from excel show up or can i paste it in as a picture?
Is There A Find Function To Find The Position Of A Character In A String?
I am using Microsoft Excel 2000.
I wanted to know if there is a way of easily finding the position of a character in a string.
My main problem is that I need to go thru a string and remove all characters that are not letters or numbers.
This is what i am doing so far: (i would be most grateful for any suggestions or help)
Dim yo As String
Sub kristy()
Dim numberofcharts As Integer
Dim name, name2, tempa As String
numberofcharts = 200
'loop thru each chart and select the title and use that as the file name
For i = 1 To numberofcharts
name = ActiveChart.ChartTitle.Text
tempa = name
name2 = StripOut(tempa)
fname = ThisWorkbook.Path & "" & name2 & ".png"
ActiveChart.Export Filename:=fname, FilterName:="PNG"
name2 = ""
Next i
End Sub
Public Function StripOut(from As String) As String
Dim h, a, b, c, result As Integer
Dim tempChar, temp, str1, str2, str3 As String
StripOut = from
str1 = "DEFGHIJKLMNOPQRSTUVWXYZABC"
str2 = "abcdefghijklmnopqrstuvwxyz"
str3 = "1234567890"
For h = 1 To Len(StripOut)
temp = Mid$(StripOut, h, 1)
a = InStr(str1, temp)
b = InStr(str2, temp)
c = InStr(str3, temp)
If ((a = 0) And (b = 0) And (c = 0)) Then
'if the character is bad then delete it
StripOut = Replace(StripOut, temp, "")
'put something here so that it looks for the previous thing in the string and then increments it by one
End If
Next h
End Function
Thanks for any suggestions!!
Edited by - kristy2710 on 6/3/2004 1:41:02 PM
How To Find The Paragraph Of A Range
i need to get the paragraph of the selection(no text selected), a code that run fastly,pl.
How Do You Use Results From Range.find?
I'm programming with Visual Basic 2005 Express. I have an excel sheet with unique serial numbers, and use the following code to find the cell holding the serial number I'm searching for:
Function Cyclers(ByVal SN) As VariantType
Dim R As Object
Dim xlValues As VariantType
R = oWS.Range("B1", "B65000").Find(txtSN.Text)
If Not R Is Nothing Then
End If
End Function
The R.Address says $B$187. But now I need to retrieve the information from $C$187 and $D$187. How would I code this in VB? The cell address will be different with each serial number.
Thanks in advance.
Problem With Range.find
I have a problem with a range.find method. Basically i have a program that works a bit like vlookup to search and copy cells. I made this a couple of years ago and it worked fine with excel97. Now I have excel 2002 and I get a "Subscript out of range" error when executing the set c = range.find line from the following code:
arvo = Workbooks(nimi).Sheets(lehti).Cells(lukum + Osoite, selectioncolumn).Value
If arvo <> "" Then
Set c = Workbooks(perus).Sheets(pagenum).Columns(optio).Find(arvo, LookIn:=xlValue, LookAt:=xlWhole, SearchOrder:=xlByRows)
If Not c Is Nothing Then
The reference to the range that should be looked for the values seems to ok. Atleast the workbookname and indexes seem to make sense when i run it. Has something changed since the '97 or was i only lucky that it worked then? I tried to search the help files and these forums but didn't get any ideas. anyone?
1st Find Right Range Then Vlookup
Hi, you look like smart guys concerning VBA and Excel issues as I see from threads' history so maybe you can help to solve my problem.
I have an Excel file with the names of some securities and the according tickers and two cells with month end dates (beginDate & endDate) on Sheet3. I would like the user to be able to select some of these securities and see monthly performances of those securities on Sheet4.
For that I have this huge separate data file with tickers in the first row and in the same column all historical price dates and in the next column the daily prices.
Are you still with me? Ok, so I am trying to make a solution where the macro searches Sheet3 column to find word "Yes", take the ticker from the same row and locate the same ticker in the data file using Find method. Then I would define a variant for the range to use VLookup to find month end prices. I want to use VLookup instead of Find because different securities might have different dates for a last price date in a given month.
So here is what I have written:
Sub FindPerformance()
Application.ScreenUpdating = False
Dim FoundTicker, SearchRange, controllerRange As Range
Dim ticker, fundName
Dim FoundCell As Variant
Dim performance, columnIndex, rowIndex, priceNow, priceLast As Integer
Dim tickerDate, beginDate, endDate As Date
Dim ws, resultWs As Worksheet
Dim resultWb, dataWb As Workbook
Set ws = ActiveWorkbook.ActiveSheet
Set resultWs = ActiveWorkbook.Worksheets(4)
Set resultWb = ActiveWorkbook
beginDate = Worksheets(3).Range("H2").Value
endDate = Worksheets(3).Range("H3").Value
Workbooks.Open Filename:="prices.xls", UpdateLinks:=0
Set dataWb = ActiveWorkbook
Set controllerRange = ws.Range("E:E")
columnIndex = 1
rowIndex = 2
priceNow = "Nothing"
For Each Cell In controllerRange
If Cell.Value = "Yes" Then
Set ticker = Cell.Offset(0, -1)
If columnIndex = 1 Then
tickerDate = DateAdd("m", 1, beginDate)
Do While tickerDate <= endDate
resultWs.Cells(rowIndex, columnIndex) = tickerDate
rowIndex = rowIndex + 1
tickerDate = DateAdd("m", 1, tickerDate)
End If
Set fundName = Cell.Offset(0, -4)
columnIndex = columnIndex + 1
rowIndex = 1
tickerDate = beginDate
Set FoundTicker = dataWb.Worksheets(2).Range("1:1").Find(What:=ticker, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
Set SearchRange = Range(Cells(1, FoundTicker.Column), Cells(64000, FoundTicker.Column + 1))
Do While tickerDate <= endDate
priceNow = Application.WorksheetFunctions.VLookup(DateValue(tickerDate), SearchRange, 2, True)
If Not priceNow = "Nothing" Then
priceLast = priceNow
End If
' priceNow = FoundCell
performance = priceNow / priceLast
If rowIndex = 1 Then
resultWb.resultWs.Cells(rowIndex, columnIndex).Value = fundName
resultWb.resultWs.Cells(rowIndex, columnIndex).Value = performance
tickerDate = DateAdd("m", 1, beginDate)
rowIndex = rowIndex + 1
End If
End If
Application.ScreenUpdating = True
End Sub
The problem is that I get "Run-time error 438 Object doesn't support this property or method" on row
priceNow = Application.WorksheetFunctions.VLookup(DateValue(tickerDate), SearchRange, 2, True)
I assume that the problem is with using SearchRange although I can't really see what should I do differently, because when I write MsgBox(SearchRange.Address) on the precedent line it shows the correct range.
Any Ideas?
How Do I Find Out The Range For A Chart?
I´m totally new to VBA and would like to ask a probably very simple question.
I have created a macro to create a chart, see below:
Sub TestaTest()
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A47"), PlotBy:= _
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Antal"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
How could I make this macro work, even though I do not know the number of rows containing data?
I will use it on an output that could differ from time to time.
This means that the value "D7" (see macro above), could differ from time to time, how would I find out this value?
Problem With "Find" In Range Object
I have coded a function called "FindIndexRow"using the Find method in Range Object. The function is used to search through an Index Workbook [oIndexWB]to get certain key data. The key data [in A column] are arranged in 1 row per item. When there is a match, it returns the row numeric number.
It has been proved working in one part of the program where its index content can be copied to a worksheet of another workbook. But, when it comes to work with oWB / worksheet 1, the Find method failed. "Find" can't find the match. In this case, identical data is searched through the index list. n is the loop inhibitor such that the function will not be allowed to find the data forever. Normally it will find the data upon the first hit, that is n = 1.
Is there any bug in the coding that causes this problem.. ?
Option Explicit
Dim oWB As excel.Workbook
Dim oWS As excel.Worksheet
Dim oIndexWB As excel.Workbook
Dim oIndexWS As excel.Worksheet
'oWB workbook already opened above this line
sPath = "H:VB6DataTemplateRhkjcIndex.xls"
oExcel.Workbooks.Open sPath
Set oIndexWB = oExcel.ActiveWorkbook
Set oIndexWS = oWB.Worksheets("Sheet1")
If oWS.Range("F1").Value = "" Then Debug.Print
sBurntMark = oWS.Range("F1").Value
sBurntMark = TrimALL(sBurntMark)
iStartRow = FindIndexRow(oWB.Worksheets("Sheet1"), "A", sBurntMark, 3, , True)
If iStartRow = 0 Then
Debug.Print "Can't find index"
GoTo CleanIndexWB
End If
oWS.Range("E1").Value = oIndexWS.Range("D" & iStartRow).Value
oIndexWB.Close (False)
Set oIndexWS = Nothing
Set oIndexWB = Nothing
Function FindIndexRow(oWorkSheet As excel.Worksheet, ByVal sCol As String, _
ByVal sFind As String, Optional ByVal iRow1 As Integer = 2, _
Optional ByVal lRow2 As Long = 65536, Optional bUp As Boolean = True) As Integer
Dim rngSource As Range, oCell As Range, rng As Range
Dim sAddress As String, n As Long
Dim aArray As Variant
FindIndexRow = 0
If bUp Then
Set rngSource = oWorkSheet. _
Range(sCol & iRow1, oWorkSheet.Range(sCol & lRow2).End(xlUp)) 'Search column
Set rngSource = oWorkSheet. _
Range(sCol & iRow1, oWorkSheet.Range(sCol & lRow2).End(xlDown))
End If
For Each oCell In rngSource
Set rng = rngSource. Find(sFind)
n = n + 1
Debug.Print n
If n >= 10 Then Exit For
If Not rng Is Nothing Then Exit For
Next oCell
If Not rng Is Nothing Then
sAddress = rng.Address(RowAbsolute:=False, ColumnAbsolute:=False, ReferenceStyle:=xlA1)
aArray = Split(sAddress, ":")
If UBound(aArray) <> 0 Then
FindIndexRow = GetNumerics(aArray(0))
FindIndexRow = GetNumerics(sAddress)
End If
End If
Set rngSource = Nothing
Set oCell = Nothing
Set rng = Nothing
End Function
Find Method - How To Include After:=Range
This is my first post so please go easy on me...
Concerning the Find Method, I understand that the search will begin only after the specified cell and will not include it until it wraps around the specified range.
Does anyone know if there is a way to include it ? Right now what I do is I specify the beggining of the search as the last cell in the Range so that the search actually includes the first cell in of the range in its first pass.
Please let me know if there is a way to include the first Cell and if there isn't then does anyone know the reason why not?
Thank you,
Special Caracters - Range.Find
When I use this code
sItemDesc = PERMAFIL LTE~L16 LIN 16"x12'0"
Set mRange = Columns(1).Find(What:=sItemDesc,after:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
To Find a cell that contain:
PERMAFIL LTE~L16 LIN 16"x12'0"
I it unable to find it
Does (") or (') or (~) causing problem?
Find & Replace Plus Format The Range
Hello All,
A particular range say ("A") in my excel sheet will contain the values like '5676787878785'. The requirement is to format the range into "Text" Format. Then, i need to change the values in the range to 5676787878785. ie., i need to remove the single quotes in either side of the value for the cells in particular range.
Please do help me out with your suggestions as to how to do in MS-Access VBA.
How Do I Find An End Cell In A Changing Range
In Excel i have a data range from A1 to C234. The number of rows in this range can vary. In a macro I want to go to Cell D234. ie go to the last row and move right to the first blank cell.
eg if the data range is A1 to C500. I want to get to Cell D500
Please! Help Me To Find Something To Select Date Range In VB!
I need to add possibility to select date range on the form. 2 DTPickers are not too good.
Find A Left Over Number Range
I have number range from 1 to 10000
i have programe to take out some number say 101 to 200
then 401 to 450 and 801 to 900
How i will find left over number range
1 to 100
201 to 400
451 to 800
901 to 10000
please help me to find this number range from a to b
Find Lowest Date In A Range
I have 4 textboxes in VB. All these contain some date or the other. Now i have to write an efficient program to find out which of the textboxes contain the lowest/minimum date.
Can someone help me with this?
Ex: (dd/mm/yyyy)
TextBox1: 04/01/2005
TextBox2: 03/01/2005
TextBox3: 01/01/2005
TextBox4: 02/01/2005
Result for lowest date = : TextBox3.Text
I hope this makes sense.
How Do You Find Font Size Range?
I need to be able to testing for a font size value for a given font name. Any ideas? I already have the code to verify that the font name selected is valid but not for the size.
How Find The Number Of Non Blank Rows In An Range
Guys, i need help in finding number of non blank rows in a range.
Find Cell Values In Discontinous Range
I am trying to find out the name of the column (the value in row 1) from each column in a discontinuous range. I want to add each of these values to a collection for processing later. I started with the following function, but I think I am going about this all wrong.
Function FindColsInRange(rng As Range)
Dim ColNames As New Collection
Dim ws As Worksheet
Set ws = rng.Parent
Dim i As Integer, NumCols As Integer, n As Integer
Dim NumArea As Integer
n = 1
NumArea = rng.Areas.Count
For i = 1 To NumArea
NumCols = rng.Areas(i).Columns.Count
Do Until n = NumCols
If ws.Cells(1, n) 'In the original range Then
'Add this cell to the collection
ColNames .Add ws.cells(1,n).Value, CStr(ws.cells(1,n).Value)
n = n + 1
End If
Next i
FindColsInRange = ColNames
Exit Function
Range Function
Hello All!
I'm new here, was hoping someone can help me out.
I am using VB 6.3 in excel 2003, and I have the following line of code which breaks with an error:
The only thing I see wrong with this line of code is the fact that the word "Range" is not capitalized (it usually is!) However if I try to capitalize Range it automatically changes to lowercase range.
Why does it change to lowercase range automatically?
Thanks a lot!
Assignment To Word TableX.Range.Find.* Fails
I'm working with VBA for Word and I'm running into an assignment failure when I try to set Find members in a Table.Range.
By way of introduction in my first post here, I'm a VB and VBA relative newbie; I got "voluntarily drafted" to create some utilities for my team at work after I built a little tool, which people found useful, as a way of self teaching myself VBA. So I'm still finding lots of places where I have to stop and learn some detail that's kind of "doh, obvious" once I figure out what silly little nuance I didn't understand.
Here's the complete code with comments indicating the failing assignments. Any aid will be greatly appreciated. Thanks!
Sub Main()
Dim appWord As Word.Application
Set appWord = New Word.Application
Dim tableX As Word.Table
Dim sStyle As String
appWord.Documents.Open FileName:="Sample.doc"
' This succeeds, I can see tableX and it is populated as expected.
Set tableX = appWord.ActiveDocument.Tables(2)
' tableX.Range is populated as expected.
' tableX.Range.Find is populated with default values at this point.
' None of these assignments populate the lvalue.
tableX.Range.Find.Text = "Hello World!"
tableX.Range.Find.Style = appWord.ActiveDocument.Styles("My Style")
tableX.Range.Find.Style = "My Style"
' These assignments all populate the lvalue as expected.
sString = appWord.ActiveDocument.Styles("My Style")
appWord.Selection.Find.Text = "Hello World"
appWord.Selection.Find.Style = appWord.ActiveDocument.Styles("My Style")
Set appWord = Nothing
End Sub
How To Find Out If Current Selected Cell Is In A Certain Named Range
Is there any way I can tell if the current selected cell is in a certain named range. I am going to be using it with the selection change function of the worksheet.
Many thanks
How To Escape Wildcard Match For Range.find And FindNext.
How do I write the equivalent of .MatchWildcards = false (for Word) in Excel? My data contains "*" and I have to match these characters NOT as wildcard.
Thanks in advance.
Find Matching Entry, Then Copy And Paste A Range
I have what I hope is a simple question, but have not been able to find an answer in my searches of the forum.
I have two workbooks (well call them WB1 and WB2). The workbooks will have a varying number of rows. I would like the macro to loop down column A in WB1 and attempt to find a match of that cell value in column A of WB2. If it finds a match, it will copy columns C:E out of WB2 and paste it in cells C:E of of WB1. If it does not find a match in WB2, it would move down to the next cell in column A of WB1 and repeat until it reaches the bottom of column A in WB1.
Any help would be greatly appreciated!!
Vb/Excel: How To Read An Excel File In A Column WITHOUT Specifying The Range ??
Hello, all.
I found a bit of code that lets me read an Excel file from and to a specifi
range. See the code below. But what if I only want to specify the STARTING
position and simply want it to continue reading down the column until it
hits an empty cell?
Does anyone know how to do this? Thanks!
Here is the range-only code:
' ** turn screen updating off, prevent the user from seeing the source
' ** then find the file and identify both the worksheet and range
Application.ScreenUpdating = False
Set sourcewb = Workbooks.Open(file, False, True)
listitems = sourcewb.Worksheets(sheet).range(temp_range).Value
' ** close the source workbook without saving changes, then reactive
screen update
sourcewb.Close False
Set sourcewb = Nothing
Application.ScreenUpdating = True
' ** read the data, convert values to a vertical array
listitems = Application.WorksheetFunction.Transpose(listitems)
For count = 1 To UBound(listitems)
' ** read the info into a temporary field
temp_var(count) = listitems(count) ' ** populate the array
Next count
' ** no items selected, set to 0 to select the first item
'Combo_machine.ListIndex = -1
Close Workbook
Range Getting Function That I Need To Work
Here is the deal. I have a function that is supposed to add numbers up, not so bad right. Well there is a range named tmnrng that gets passed to this function. It is simply B2:B49, it contains times of the day. there is another range namve dayrng it is also passed. It is some cells in column 50 that another sub defines(that sub works), it contains day names. Then I pass a string that is a day name, and date that is a time of day. so now what I need to happen is have the function sum all cell values that are on the right day of the week, as specified by the Day string, and at the right time as specified by the date that I pass. Are you with me?
the issue is that I can't predict how many instances of a day will be in the dayrng. So, here is the funciton:
Function Get_Total(tmnrng As Range, dayrng As Range, tmn As Date, day As String) As Long
Dim wks As Worksheet, righttmn As Range, rightday As Range, firstAddress As String
Dim i As Long, a As Long, cell As Range
Set wks = Worksheets("Sheet1")
With wks
Set righttmn = tmnrng.Find(tmn)
Set rightday = dayrng.Find(day)
If Not rightday Is Nothing Then
firstAddress = rightday.Address
Set rightday = Union(rightday, dayrng.FindNext(day))
Loop While Not rightday Is Nothing And rightday.Address <> firstAddress
End If
For i = 1 To rightday.Count
Set cell = Cells(rightday.Row, righttmn)
a = a + cell.Value + cell.Offset(0, 1).Value
Next i
MsgBox a
End With
End Function
Im getting a runtime error '1004' "Unable to get the FindNext property of the Range Class" error message.
Help please
Date In Range Function
Can anyone give me a function that will tell me if a certain date is in the range of another two dates?
It sounds a simple task, but I can't manage to do it.
How To Find The Date Range In MS Access And Display In MS Flex Grid?
How do i search the date range which can be specified by the user and all the records from these date range will be display in MSFlexGrid. Can someone help me with this??
Subscript Out Of Range Error With This Function.. Any Help?
Im getting a subscript out of range error with my function. I probably don't have the redim function correct but i'm not sure. Any help?
Public Function GetFilesInDir(strPath As String, Optional strExt As String = "*.*") As String()
Dim i As Integer
Dim strFile As String
Dim fileList() As String
strFile = Dir$(strPath & strExt)
Do While strFile <> ""
fileList(i) = strFile
strFile = Dir$
i = i + 1
ReDim Preserve fileList(i)
ReDim Preserve fileList(i - 1)
GetFilesInDir = fileList
End Function
Copyright © 2005-08 www.BigResource.com, All rights reserved


text:
Alabama > Kansas Yellow Pages > Food and Beverage > Specialty Food Kansas
We did not find any businesses listed for Specialty Food in Kansas, AL (city)
Would you like to ...
Would you like to ...
- Search for Specialty Food in Birmingham, AL Metro (city)?
- Choose Another City?
- Choose a Different Category?
- Search for Food and Beverage instead?
updating results
You are currently searching
Kansas Specialty Food.Try other nearby locations.
- Birmingham |
- Hoover |
- Bessemer |
- Homewood |
- Vestavia Hills