ElaKiri Community
Downloads
Go Back   ElaKiri Community > General > ElaKiri Help
Reload this Page Excel උදව්වක් ඕන (VBA හරි කමක්නෑ)
Reply
 
Thread Tools
(#1)
Old
TakaTakas's Avatar
TakaTakas TakaTakas is offline
Senior Member
TakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of light
 
Posts: 3,071
Join Date: Nov 2014
Location: ගෙදර
Excel උදව්වක් ඕන (VBA හරි කමක්නෑ) - 07-22-2019, 10:45 PM



මේ වගේ කොලම් දෙකක තියන නම්බර්ස් වගයක් තියනවා.මේකෙ පාට කරල තියනවා වගේ සමාන අංක තියන සෙල් පාට වෙන්න ඕන.හැබැයි Row බයි Row වෙන්න ඕන.උදා හරණයක් විදියට A2 සෙල් එක සමානද කියල බලන්න ඕන B2 සෙල් එකත් එක්ක විතරයි.අනිත් මොන සෙල් එක A2 ට සමාන උනත් වැඩක් නෑ.ඒ විදියට මේ පිංතූරෙ තියනවා වගේ 2 වෙනි Row එකේ A2 = B2 ඒක නිසා ඒසෙල් දෙක පාට උනා.A3 සෙල් එක B3 ට සමාන නෑ.ඒක නිසා ඒවා පාට උනේ නෑ.හැබැයි A3 = B8 , එහෙම උනාට ඒ සෙල් පාට වෙලා නෑ.(ඒ කියන්නෙ මම දන්න තරමින් conditional formatting පාවිච්චි කරන්න බෑ ) මේ වැඩේ කරගන්න පුළුවන් VBA කෝඩ් එකක් හරි වෙන මෙතඩ් එකක් හරි දන්න කෙනෙක් කියල දෙන්න පුළුවන්ද ?
Reply With Quote
(#2)
Old
Deadmau5's Avatar
Deadmau5 Deadmau5 is offline
Senior Member
Deadmau5 is a glorious beacon of lightDeadmau5 is a glorious beacon of lightDeadmau5 is a glorious beacon of lightDeadmau5 is a glorious beacon of lightDeadmau5 is a glorious beacon of lightDeadmau5 is a glorious beacon of lightDeadmau5 is a glorious beacon of lightDeadmau5 is a glorious beacon of lightDeadmau5 is a glorious beacon of lightDeadmau5 is a glorious beacon of lightDeadmau5 is a glorious beacon of light
 
Posts: 5,620
Join Date: Mar 2011
07-22-2019, 10:49 PM

bump
Reply With Quote
(#3)
Old
Pathumpiyasa Pathumpiyasa is offline
Senior Member
Pathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nice
 
Posts: 427
Join Date: Sep 2013
07-22-2019, 10:56 PM

VBA code ekak liyala dennam yaluwa ube requirement eka deepan
Reply With Quote
(#4)
Old
TakaTakas's Avatar
TakaTakas TakaTakas is offline
Senior Member
TakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of light
 
Posts: 3,071
Join Date: Nov 2014
Location: ගෙදර
07-22-2019, 10:57 PM

Quote:
Originally Posted by Pathumpiyasa View Post
VBA code ekak liyala dennam yaluwa ube requirement eka deepan
මට අවශ්‍ය දේ තමයි මචං ඔය කියල තියන්නෙ පැහැදිලි මදිනම් අහන්න.
Reply With Quote
(#5)
Old
cookies572 cookies572 is offline
Senior Member
cookies572 has a spectacular aura aboutcookies572 has a spectacular aura aboutcookies572 has a spectacular aura aboutcookies572 has a spectacular aura about
 
Posts: 410
Join Date: Apr 2011
07-22-2019, 11:02 PM

Bump

Last edited by cookies572; 07-22-2019 at 11:04 PM.
Reply With Quote
(#6)
Old
Pathumpiyasa Pathumpiyasa is offline
Senior Member
Pathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nice
 
Posts: 427
Join Date: Sep 2013
07-22-2019, 11:03 PM

Sub test()
i = 1
Do While (Sheets("sheet1").Cells(i, 1) <> "")

If Sheets("sheet1").Cells(i, 2) = Sheets("sheet1").Cells(i, 1) Then

Sheets("sheet1").Cells(i, 2).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With

Sheets("sheet1").Cells(i, 1).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
End If

x = x + 1
i = i + 1
Loop


End Sub
Reply With Quote
(#7)
Old
Pathumpiyasa Pathumpiyasa is offline
Senior Member
Pathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nicePathumpiyasa is just really nice
 
Posts: 427
Join Date: Sep 2013
07-22-2019, 11:04 PM

Sheet name should be "sheet1"

oka module ekakata dapan

button ekak dapan sheet ekakata

oya code eken wade wenwa hari giye naththan kiyapannnnn


one time wadak nam function ekak use karapan
=a1=b1
trre tika filter karala colour ekak dapan

Last edited by Pathumpiyasa; 07-22-2019 at 11:08 PM.
Reply With Quote
(#8)
Old
TakaTakas's Avatar
TakaTakas TakaTakas is offline
Senior Member
TakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of lightTakaTakas is a glorious beacon of light
 
Posts: 3,071
Join Date: Nov 2014
Location: ගෙදර
07-22-2019, 11:13 PM

Quote:
Originally Posted by Pathumpiyasa View Post
Sheet name should be "sheet1"

oka module ekakata dapan

button ekak dapan sheet ekakata

oya code eken wade wenwa hari giye naththan kiyapannnnn


one time wadak nam function ekak use karapan
=a1=b1
trre tika filter karala colour ekak dapan
ගොඩක් ස්තූතියි මචං මම ට්‍රයි කරල බලන්නම්.
Reply With Quote
(#9)
Old
wqe123 wqe123 is offline
Senior Member
wqe123 is a splendid one to beholdwqe123 is a splendid one to beholdwqe123 is a splendid one to beholdwqe123 is a splendid one to beholdwqe123 is a splendid one to beholdwqe123 is a splendid one to beholdwqe123 is a splendid one to beholdwqe123 is a splendid one to beholdwqe123 is a splendid one to beholdwqe123 is a splendid one to beholdwqe123 is a splendid one to behold
 
Posts: 2,957
Join Date: Aug 2015
Location: ලංකාවේ.. ලංකාවේ
07-23-2019, 09:10 AM

"හැබැයි A3 = B8 , එහෙම උනාට ඒ සෙල් පාට වෙලා නෑ."

උබට ඕනේ duplicate වෙච්ච value එකක් මාර්ක් කරන්න වගේ තාමා මට තේරුනේ
එක හරි නම්



excel2013 - conditional format වල "format only unique or duplicate value" දාල "duplicate" ටික මාර්ක් කරගන්න එක කරන්න පුලුවන්

Last edited by wqe123; 07-23-2019 at 09:11 AM.
Reply With Quote
(#10)
Old
AcAciA's Avatar
AcAciA AcAciA is offline
Senior Member
AcAciA is just really niceAcAciA is just really niceAcAciA is just really niceAcAciA is just really niceAcAciA is just really niceAcAciA is just really niceAcAciA is just really niceAcAciA is just really niceAcAciA is just really nice
 
Posts: 1,078
Join Date: Aug 2010
Location: GAmPAha.......
07-23-2019, 09:30 AM

machan ube spread sheet eka dapan mata hadala dennam online upload karala link danna
Reply With Quote
Reply

Bookmarks

Tags
mydone

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump



Copyright © 2006 - 2011 ElaKiri™ Beta2.Evo vBulletin, vBa iBproArcade Subdreamer I-Magic MKv

Page generated in 0.02430 seconds with 11 queries