Hi friend, the answer is yes. Instead of having the column fixed, we could fix the row. For example, use a = Sheet13.Cells(2, i + 1) / 501 * 255 instead of a = Sheet13.Cells(i + 1, 2) / 501 * 255 Hope this helps. Thanks for watching and have a nice day. 😀
Hi. For no fill 👉 Sheet1.Shapes.Range(Array("FreeForm 1")).Fill.Visible = msoFalse For transparent 👉 Sheet1.Shapes.Range(Array("FreeForm 1")).Fill.Transparency = *value 0 to 1* Hope it helps. Thanks for watching and have a nice day.
Hi. My pleasure. Regarding your question, set "Worksheet" as Object and "Change" as procedure. May refer to 7:55". Thanks for watching and have a nice day.
Hi. I'm so sorry that I have overlooked your message. Yes, is possible. Here's a video for your reference th-cam.com/video/uu7fWpSk9C0/w-d-xo.html Thanks for watching and have a nice day.
Hello Ah Sing, I phasing an issue when I try to apply this sort of code to a warehouse map, with about 692 locations. I manage to create all little rectangles and named all of them, place the code in place and for some reason, it only works for (For i = 1 to 15) when I try to increase the range to (For i = 1 to 692) it tell me that some range it's out of boundaries. Would you please help me ?
Hi. In this video, these shapes are linked to cells using a dummy variable 'i.' To be honest, this isn't the best approach because we must ensure that the sequence of the shapes exactly matches the order of the cells. A better method is to rename the shapes. Thanks for watching and have a nice day.
Nice Video, I have facing a problem . How to set Shape with it's name ? I have 23 shapes in a map. when I put the value or change the value , the color dose not changed for right shape. Please Help
Thanks! 🤔 It's difficult to express in words but I have a video on that issue at th-cam.com/video/UQSZ040f5dM/w-d-xo.html, kindly seek to time 1:39. Similar work could also be found in the videos th-cam.com/video/uu7fWpSk9C0/w-d-xo.html and th-cam.com/video/ct9rxDNw9kk/w-d-xo.html within the first minute. Hope they help. Thanks for watching and have a nice day.
@@dpsjalpaiguri9034 Hi. This is because the names of shapes and the references used in VB are not matched. Suggestion, either rename the shapes in accordance with the VB references or vice versa. Hope it helps. Have a nice day 😊
Hello. Ah Sing. Thank you for your video. I need to create a percent color fill for 37 shapes, where =80% should be red. The values on the data are in percentages and they spool from PIVOT table currently located on another sheet from column 17 row 2. Based on your tutorial, this is my code Private Sub Worksheet_SelectionChange(ByVal Target As Range) For i = 1 To 38 a = Sheet6.Cells(i + 1, 17) / 100 * 255 b = 20 / Sheet6.Cells(i + 1, 17) * 255 Sheet6.Shapes.Range(Array("Freeform " & i + 1)).Fill.ForeColor.RGB = RGB(a, b, 0) Next i End Sub However, I have an runtime error 6 'Overflow' and the error keeps pointing to Sheet6.Shapes.Range(Array("Freeform " & i + 1)).Fill.ForeColor.RGB = RGB(a, b, 0) Kindly assist. Best
Hello Adaobi. May I know, are the names of shapes labelled in sequence (2 to 39), eg. FreeForm 2, FreeForm 3, and so on? As according to your code, you should have FreeForm 2 to FreeForm 39 since you are using "Array("Freeform " & i + 1)". Thanks for watching and have a nice day. To change the name of a shape 👉 th-cam.com/video/fn1wYvvqpUk/w-d-xo.html
No problem. I will try my best. Do send me your spreadsheet to my email at durian1.apple@gmail.com, do indicate the condition for the change. Please notify me after sent. Thanks ya.
Gracias por el código, y por si a alguien le sirve les comparto un archivo de prueba drive.google.com/file/d/1ManKe7aDLmLkIlKYtQp_KRkcdWL1azWm/view?usp=sharing
Hi Hilman. I couldn't find the file, I guess I had deleted it since it was about five years ago. Sorry for that. Thanks for watching and have a nice day.
Thanks very much. your video helped me a lot!
My pleasure. Thanks for watching and have a nice day.
AMAZING!!! please continue
Thanks!
Thanks for watching and have a nice day.
Well done 🌺😊
Thanks!
Thanks for watching and have a nice day.
Hi Sing, thanks for the video.
One question, can we draw the data from the table horizontally instead of vertically? (@01:45)
Hi friend, the answer is yes.
Instead of having the column fixed, we could fix the row.
For example, use a = Sheet13.Cells(2, i + 1) / 501 * 255 instead of a = Sheet13.Cells(i + 1, 2) / 501 * 255
Hope this helps. Thanks for watching and have a nice day. 😀
Thanks for your prompt reply, it works well.
My pleasure 😊
Nice info, thanks
My pleasure.
Thanks for watching and have a nice day.
thanks for vidoe, so helpfully.
please help me, if one of another case value want to become transparency or no fill colour, whats the code please?? 😢😢
Hi.
For no fill 👉 Sheet1.Shapes.Range(Array("FreeForm 1")).Fill.Visible = msoFalse
For transparent 👉 Sheet1.Shapes.Range(Array("FreeForm 1")).Fill.Transparency = *value 0 to 1*
Hope it helps.
Thanks for watching and have a nice day.
@@ahsingtv i send you email for my problem, if you have time, plase send me back
Thanks for this Video. I got the steps it worked But I want to know how you made it refresh without using the button.
Hi. My pleasure.
Regarding your question, set "Worksheet" as Object and "Change" as procedure. May refer to 7:55".
Thanks for watching and have a nice day.
Is pattern fill possible? I want to use .Patterned msoPatternWideUpwardDiagonal but no clue. Can you help?
Hi. I'm so sorry that I have overlooked your message.
Yes, is possible.
Here's a video for your reference th-cam.com/video/uu7fWpSk9C0/w-d-xo.html
Thanks for watching and have a nice day.
Hello Ah Sing, I phasing an issue when I try to apply this sort of code to a warehouse map, with about 692 locations. I manage to create all little rectangles and named all of them, place the code in place and for some reason, it only works for (For i = 1 to 15) when I try to increase the range to (For i = 1 to 692) it tell me that some range it's out of boundaries. Would you please help me ?
Hi Francisco. Sorry for this late. Have done it for you. Kindly check your email.
Thanks for watching and have a nice day.
Hi! Awesome video. I'm facing some issues when i'm trying this, could you please help me out? Thanks in advance.
May I know what kind of issues are you referring?
Thanks for watching and have a nice day.
THAT IS GOOD BUT HOW CAN YOU LINK THIS SHAP BY THE CELLS
Hi. In this video, these shapes are linked to cells using a dummy variable 'i.' To be honest, this isn't the best approach because we must ensure that the sequence of the shapes exactly matches the order of the cells. A better method is to rename the shapes. Thanks for watching and have a nice day.
EXCUSE ME BUT CAN YOU EXPLAIN IN DETAILS HOW CAN I LINK A CELL TO IRREGULAR SHAPE@@ahsingtv
Hi. I have a video for you at th-cam.com/video/FZGp1v4LERU/w-d-xo.html. Hope it helps.
Have a nice day.
Nice Video, I have facing a problem . How to set Shape with it's name ? I have 23 shapes in a map. when I put the value or change the value , the color dose not changed for right shape. Please Help
Thanks! 🤔 It's difficult to express in words but I have a video on that issue at th-cam.com/video/UQSZ040f5dM/w-d-xo.html, kindly seek to time 1:39.
Similar work could also be found in the videos th-cam.com/video/uu7fWpSk9C0/w-d-xo.html and th-cam.com/video/ct9rxDNw9kk/w-d-xo.html within the first minute.
Hope they help.
Thanks for watching and have a nice day.
@@ahsingtv runtime error 1004: " The item with the specified name wasn't found"
PLEASE SEND YOUR MAIL ADDRESS TO dpswbjpg@rntcp.org . then I will send you the file for check.
@@dpsjalpaiguri9034 Hi. This is because the names of shapes and the references used in VB are not matched.
Suggestion, either rename the shapes in accordance with the VB references or vice versa.
Hope it helps. Have a nice day 😊
If you send your mail ID then I will send you the file for repair from your end
Hello. Ah Sing. Thank you for your video. I need to create a percent color fill for 37 shapes, where =80% should be red. The values on the data are in percentages and they spool from PIVOT table currently located on another sheet from column 17 row 2.
Based on your tutorial, this is my code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 38
a = Sheet6.Cells(i + 1, 17) / 100 * 255
b = 20 / Sheet6.Cells(i + 1, 17) * 255
Sheet6.Shapes.Range(Array("Freeform " & i + 1)).Fill.ForeColor.RGB = RGB(a, b, 0)
Next i
End Sub
However, I have an runtime error 6 'Overflow' and the error keeps pointing to
Sheet6.Shapes.Range(Array("Freeform " & i + 1)).Fill.ForeColor.RGB = RGB(a, b, 0)
Kindly assist.
Best
Hello Adaobi. May I know, are the names of shapes labelled in sequence (2 to 39), eg. FreeForm 2, FreeForm 3, and so on? As according to your code, you should have FreeForm 2 to FreeForm 39 since you are using "Array("Freeform " & i + 1)".
Thanks for watching and have a nice day.
To change the name of a shape 👉 th-cam.com/video/fn1wYvvqpUk/w-d-xo.html
Hi there could you please help me out of something similar vba? Thanks
Hi Jes. Have settled for you.
Thanks for watching and have a nice day.
Can you please
help me getting it change for my shapes ?
No problem. I will try my best. Do send me your spreadsheet to my email at durian1.apple@gmail.com, do indicate the condition for the change.
Please notify me after sent. Thanks ya.
Dears
Please check your email.
I have send an email.
Hi there, have done it for you.
Hope it helps. Have a nice day.
Gracias por el código, y por si a alguien le sirve les comparto un archivo de prueba drive.google.com/file/d/1ManKe7aDLmLkIlKYtQp_KRkcdWL1azWm/view?usp=sharing
👏👏
Me pierdo en la parte donde vincula cada sección del mapa con el código o con los datos. ¿Es por orden de creación?
Hi ah sing, thanks for the video.
i have send an email.
please check your email. thank you
Hi Hilman. I couldn't find the file, I guess I had deleted it since it was about five years ago. Sorry for that.
Thanks for watching and have a nice day.