
KENNETH BATILO
Member
Members

Forum Posts: 27
Member Since:
January 30, 2020
January 30, 2020

Hi all!
I need help with a VBA macro. What I need is: If a cell is (color) blue, then pull value from a different column on the same row. (I am using a table.)
Column1 | Column2 | Column3 | Column4 | Column5 | Column6 | Column7 |
(Color Blue) | Test1 | |||||
Test2 | ||||||
Test3 | ||||||
(Color Blue) | Test4 | |||||
Test5 |
result looking for
Column1 | Column2 | Column3 | Column4 | Column5 | Column6 | Column7 |
Test1 | Test1 | |||||
Test2 | ||||||
Test3 | ||||||
Test4 | Test4 | |||||
Test5 |
So far I got (Below is just an example and not sure if it's correct)
'Declare Sheet 1
Dim sh1 as Worksheet
Set sh1=Sheet1
'Delcare Sheet 1 column 1
Dim sh1c1 as Range
Set sh1c1=sh1.ListObjects("Table1").ListColumns(1).DataBodyRange
'Declare sheet 1 column 6
Dim sh1c6 as Range
Set sh1c6=sh1.ListObjects("Table1").ListColumns(6).DataBodyRange
'If cell is blue then column 6
If sh1c1.Interior.Color=RGB(0,112,192) then sh1c6.value
End If
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: Edson Lima
Guest(s) 11
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 880
Purfleet: 414
Frans Visser: 346
David_Ng: 306
lea cohen: 237
Jessica Stewart: 219
A.Maurizio: 213
Aye Mu: 201
Hans Hallebeek: 185
Newest Members:
thong nguyen
Appiagyei Kofi Frimpong
Hilary Burchfield
Richie Wright
Adel Kock
Barbara Murray
Doug Milne
Siobhan Stringer
Rob Rooth
Tom Lewis
Forum Stats:
Groups: 3
Forums: 24
Topics: 6542
Posts: 28646
Member Stats:
Guest Posters: 49
Members: 32830
Moderators: 2
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: Velouria, Riny van Eekelen
© Simple:Press —
