Animosity16

On Wednesday afternoon (2 days ago), the connecting apartment units had a fire, which was extinguished fairly quickly. However, the maintenance worker informed me that they have reason to believe it was caused due to faulty electrical and they have cut power to our building. Understandable, so they told us to go get a hotel if we want and they will reimburse me. After checking out yesterday morning at 11:00 am, we came back to the power still being off. I wasn't informed until 6:30pm that it will be off an additional night and they'll give another night at the hotel. But they do not know when it'll be turned back on. Since the covid happened, I have been working from home, which has been sto

I started playing RuneScape back in classic during typing class. I would always get home from school and immediately call my buds to get on again. I never really quit, playing non stop until the removal of wilderness. Came back with summoning, then left again with EOC, only to return again.

Long story shortened, I never lost the love for this game. Now with mobile it's so much easier to play. I introduced my son to the game last night and he asked what do I do. I told him he could do anything he wants, the world of RuneScape is at his finger tips. He was on for a few hours before mom made him get off just killing gaurds and exploring f2p. He is already in love!

Ive been waiting for him to

Recently I developed a basic program that changed the shape fill of a variety of shapes based on the values of cells in another worksheet.

I used a basic loop and refered to the shapes using the .shape() function. Since I needed it to go through a shape for each data point, I refered to the shapes using the column header, which I set as the shape name for shapes as well. So I got it to work for most part. However , something is causing vba to not work consistently and now the code is not working.

Is there a way to retrieve the shape id and store it as a string to then input into a function? What are some other ways that I can reference a list of shapes?

Currently the program creates

So I am trying to get the a shape to change color based on values of cells. Easily done for single shapes if you specify actual name.

The shapes have the same name as the column headers above data cells. So I want the code to loop through each data cell and change the shape for that data point using the column header name, which is same for the shape name.

So far this is what I got.

Dim i as long
Dim dataws as worksheet
Dim imagews as worksheet

Dataws=worksheets ("data")
Imagews=worksheets ("image")

For i = 2 to colcount 
Colcount = '.... Can't remember exactly what I use but it works)
If dataws.cells(2,i).value > 2 then
  Imagews.shapes(dataws.

Trying to loop through shapes based on the names that are on another worksheet. I've tried the following and had no luck.

For i = 1 to colcount .... If dataws.cells(2,i).value > 2 then Imagews.shapes(dataws.cells(1,I)).fill.forecolor.rgb=vbblue

End if Next I

I've also tried and and managed to get it to create the shapes on a non visible ws with the names form those cells. I wanted to pickup the formatting and apply it to the shape I need as a work around. But I don't know what code to use to make it create the shape based on that name then pickup the format and apply. Any help.

Program Goals: Spreadsheet includes data from multiple sampling locations for each pollutant. I have a drafted topographic map with circle shapes to indicate each respective sampling location. The program check the values for each sampling location and applies a background color to the shape based on the preset ranges. I have managed to work the basic code out to work for a designated sample location and associated shape. The next stage, I am wanting to add a loop so that it will go through all sampling locations (columns) and change the color of all sampling location shapes. I believe this will be 2 or 3 variables to nest together.

So my questions....

1)If I use a counter for columns like

I am looking for the correct size pipe needed so I can do a resonator delete. However, I keep finding information about the exhaust size that says both 2.37" (60mm) or 2.5" (63.5mm). Does anyone have the right size?

I recently did a carbon cleaning and I thought misfire was gone but it's showing it worse now. Could this be the timing chain?

OBD2 - permanent: P0300 - Random/Multiple Cylinder Misfire Detected P0302 - Cylinder 2 Misfire Detected P2008 - Intake Manifold Runner Control Circuit/Open Bank 1

Central electronics: 01496 - Bulb for Fog-Lamps, Left (L22)

Tire pressure monitor: 01325 - Control Module for Tire Pressure Monitoring (J502)

Radio: 02635 - Tuner not enabled / activated

Obtained with Carista 3.9.2 for Android. Download app: https://play.google.com/store/apps/details?id=com.prizmos.carista Facebook: https://www.facebook.com/caristaapp