මට උදව්වක් ඔනේ එක්සෙල් මැක්‍රො

[thinking_guy]

උඹ කියන එක හරියට තේරුනේ නෑ මචන්. එත් උඹට එක row එකකට දාන ඩේට ටේබල් එකකට වැටෙන විදියට macro එකක් ගහල ඇති. ඒකෙ උඹට ඕන cell location හදාගනින්. රන් කරද්දි workbook එකේ macro enable කරපන්.

View attachment Sample Sheet.zip

 

[upulpdn]

උඹ කියන එක හරියට තේරුනේ නෑ මචන්. එත් උඹට එක row එකකට දාන ඩේට ටේබල් එකකට වැටෙන විදියට macro එකක් ගහල ඇති. ඒකෙ උඹට ඕන cell location හදාගනින්. රන් කරද්දි workbook එකේ macro enable කරපන්.



View attachment 66076

Mage wade karaganna puluwan wei. mama open kala macro walin.




thanx karapu help ekata... +10

 

[thinking_guy]

Mage wade karaganna puluwan wei. mama open kala macro walin.

Dim RowCount As Integer



Sub btnAdd_Click()
'Sets the initial value at startup. This value will be resetted each time you open the sheet. So it will
'replace the exixting values

If RowCount = 0 Then
    RowCount = 7
End If

RowCount = RowCount + 1
'For value1
Worksheets("SampleSheet").Range("A" & RowCount).Value = Worksheets("SampleSheet").Range("A2").Value
Worksheets("SampleSheet").Range("A2").Clear

'For value2
Worksheets("SampleSheet").Range("B" & RowCount).Value = Worksheets("SampleSheet").Range("B2").Value
Worksheets("SampleSheet").Range("B2").Clear

'For value3
Worksheets("SampleSheet").Range("C" & RowCount).Value = Worksheets("SampleSheet").Range("C2").Value
Worksheets("SampleSheet").Range("C2").Clear

'For value4
Worksheets("SampleSheet").Range("D" & RowCount).Value = Worksheets("SampleSheet").Range("D2").Value
Worksheets("SampleSheet").Range("D2").Clear

'For value4
Worksheets("SampleSheet").Range("E" & RowCount).Value = Worksheets("SampleSheet").Range("E2").Value
Worksheets("SampleSheet").Range("E2").Clear


End Sub

meke cell wala address tika mata oona cell wala address widiyata rename karala dammoth mage wade kalekiy hithenawa. ethakota hari neh?

RowCount = 7 wenuwata 50k unath dammakida?
integer - ilakkam ne. cell ekakwath letter + iilakkam berida meken?


thanx karapu help ekata... +10

RowCount=7 kiyanne 7 weni row eke indala yatata data watena nisa. Umbata 50 weni row eke indan data daanna onanam RowCount eka 49 wenna ona. Header ekak daanawana. Cell ekakata ona value ekak puluwan. Oke Integer kiyanne macro eke code eke tiyena counting variable ekak.

 

[Ysa Karu]

බම්ප් මචන්

 

[upulpdn]

RowCount=7 kiyanne 7 weni row eke indala yatata data watena nisa. Umbata 50 weni row eke indan data daanna onanam RowCount eka 49 wenna ona. Header ekak daanawana. Cell ekakata ona value ekak puluwan. Oke Integer kiyanne macro eke code eke tiyena counting variable ekak.

aah. mm edit karala post eka terum gattama . quote karala tibila tyenne

machan, eeke podi wenasak karala denna puluwanda? karana hati kiwwoth athi.
01. Value 1,2,3... RESET nokaranna puluwanda?
---- mama oya ewwa xcel sheet eka copy kala mage work book ekakata. eke eewata link karannai baluwe Value cell eka. RESET nounoth link ituru wenawane

thnx machan

 

[thinking_guy]

aah. mm edit karala post eka terum gattama . quote karala tibila tyenne

machan, eeke podi wenasak karala denna puluwanda? karana hati kiwwoth athi.
01. Value 1,2,3... RESET nokaranna puluwanda?
---- mama oya ewwa xcel sheet eka copy kala mage work book ekakata. eke eewata link karannai baluwe Value cell eka. RESET nounoth link ituru wenawane

thnx machan

Hamaline ekema yata tiyena line eka ayin karapan.

Worksheets("SampleSheet").Range("A2").Clear

 

[upulpdn]

#customize karaganna puluwannam macro file eka, loku help ekak.

e macro eke mata waradeemakin hari ADD VALUE unoth ayin karanna beane. itin mama eekata trick ekak hithuwa.

VALUE 1 kiyana eke "1" liuwoth aniwaaryen VALUE TABLE eke first row ekata add wenna hadanna puluwanda?



VALUE 1 kiyana eke "10" liuwoth aniwaaryen VALUE TABLE eke 10th row ekata add wennai oone.

ethakota repeat wenneth neane. Puluwanda eeka karanna?

 

[upulpdn]

Hamaline ekema yata tiyena line eka ayin karapan.

Worksheets("SampleSheet").Range("A2").Clear

Thanx machan

 

[thinking_guy]

#customize karaganna puluwannam macro file eka, loku help ekak.

e macro eke mata waradeemakin hari ADD VALUE unoth ayin karanna beane. itin mama eekata trick ekak hithuwa.

VALUE 1 kiyana eke "1" liuwoth aniwaaryen VALUE TABLE eke first row ekata add wenna hadanna puluwanda?



VALUE 1 kiyana eke "10" liuwoth aniwaaryen VALUE TABLE eke 10th row ekata add wennai oone.

ethakota repeat wenneth neane. Puluwanda eeka karanna?

Code eke okkoma ayin karala meka daapan. Hadisiye edit karapu nisa tikak digayi. Meetawada lesiyen meka optimize karanna puluwan. Umba kalpanaa karala balapan.

Dim StartingRow As Integer


Sub btnAdd_Click()
StartingRow = 6 'Starting row is 6 in the example

'For value1
Worksheets("SampleSheet").Range("A" & (StartingRow + CInt(Worksheets("SampleSheet").Range("A2").Value))).Value = Worksheets("SampleSheet").Range("A2").Value


'For value2
Worksheets("SampleSheet").Range("B" & (StartingRow + CInt(Worksheets("SampleSheet").Range("A2").Value))).Value = Worksheets("SampleSheet").Range("B2").Value

'For value3
Worksheets("SampleSheet").Range("C" & (StartingRow + CInt(Worksheets("SampleSheet").Range("A2").Value))).Value = Worksheets("SampleSheet").Range("C2").Value


'For value4
Worksheets("SampleSheet").Range("D" & (StartingRow + CInt(Worksheets("SampleSheet").Range("A2").Value))).Value = Worksheets("SampleSheet").Range("D2").Value


'For value4
Worksheets("SampleSheet").Range("E" & (StartingRow + CInt(Worksheets("SampleSheet").Range("A2").Value))).Value = Worksheets("SampleSheet").Range("E2").Value


End Sub

 

[upulpdn]

Code eke okkoma ayin karala meka daapan. Hadisiye edit karapu nisa tikak digayi. Meetawada lesiyen meka optimize karanna puluwan. Umba kalpanaa karala balapan.


'For value4
Worksheets("SampleSheet").Range("E" & (StartingRow + CInt(Worksheets("SampleSheet").Range("A2").Value))).Value = Worksheets("SampleSheet").Range("E2").Value


End Sub
[/HTML]

Eeka 5 da? ena uttara wala wenasak neane. CODE ekata anuwa nam 5 neda?

 

[thinking_guy]

Eeka 5 da? ena uttara wala wenasak neane. CODE ekata anuwa nam 5 neda?

Ow eka 'For Value 5 wenna ona. Eth ' character eka use wenne VB wala comments daanna machan. Etakota kiyawana ekata lesi terum ganna. Code walata eke effect ekak naa. Umbata ena results wenas wenna widiyak naa.

 

[upulpdn]

Ow eka 'For Value 5 wenna ona. Eth ' character eka use wenne VB wala comments daanna machan. Etakota kiyawana ekata lesi terum ganna. Code walata eke effect ekak naa. Umbata ena results wenas wenna widiyak naa.

 

[Mr.Tom]

Ai Mr. Tom ta msg ekak dapan

aah man the miniha??

my first friend of elakiri. ahannm.

Mageth ehemai. Pora one dekata help ekak dei

මම එනකොට වැඩේ කරගෙන නේද.
මට පහුගිය ටිකේ වැඩිය එලකිරි එන්න ලැබුනෙ නෑ

 

[upulpdn]

Thanking to Thinking-guy first.

මම ඇටෑච්මන්ට් එකක් දාලා තියෙනවා එක්සෙල්


මම කහ පාටින් මාක් කරලා තියෙන සෙල් පුරවනකොට රිසල්ට්ස් ටැබ් එකේ ඒවා රෙකෝඩ් වෙන්නයි ඕනේ.

උදා: මම ඉන්පුට් ටැබ් එකේ කහපාට සෙල් එකක XY1 කියලා ටයිප් කලාම ඒක රිසල්ට්ස් 1 ටැබ් එකේ උඩම තියෙන විදියට ලියවෙන්න ඕනේ..
ආයේ මම ඉන්පුට් එකට තොරතුරු දැම්මම රිසල්ට්ස් 1 ටැබ් එකේ දෙවෙනියට තියෙන එක රෙකෝඩ් වෙන්න ඕනේ...

උඹ කියන එක හරියට තේරුනේ නෑ මචන්. එත් උඹට එක row එකකට දාන ඩේට ටේබල් එකකට වැටෙන විදියට macro එකක් ගහල ඇති. ඒකෙ උඹට ඕන cell location හදාගනින්. රන් කරද්දි workbook එකේ macro enable කරපන්.

View attachment 66076

මට ඒ කෝඩ් එක ගොඩක් උදව් උනා...
ඒ එක්සෙල් ශීට් එක ඕපන් කරලා කෝඩ් බලන්න ඕපන් කලාම තින්කින්ග් ගයි මට එවපු සාම්පල් කියන නම තියෙන ඉහත කෝඩ් එක දාපු එක්සෙල් එක වෙනම ඕපන් වෙනවා...

කෝඩ් එක වෙනස් කරගන්නෙ කොහොමද හරියට?
තින්කින්ග් හයිගෙ කෝඩ් එකම මෙතනදිත් යූස් කලෑකි නේද?


2. එක දිගට කොලම් 25 ක් විතර ඩේටා වලින් අපිට ඕනේ ඩේටා කොලම් 15 ක් වගේ ප්‍රින්ට් කරගන්න ඕනේ නම් කොලම් හයිඩ් කර කර ඉන්නෙ නැතුව ක්ෂණික ක්‍රමයක් නැද්ද? vlookup walin karana widiyak. column wala numbers dapuwama data tika ena widiyak wage.


sthuthiyi

 

[thinking_guy]

Kranna puluwan weyi. Gedara gihilla try ekak dela balannam.

 

[upulpdn]

Kranna puluwan weyi. Gedara gihilla try ekak dela balannam.

Thanks saho

 

[upulpdn]

MENNA ME PRASHNETA UTTARAYAK THIYEDA?

EXCEl:- එක දිගට කොලම් 25 ක් විතර ඩේටා වලින් අපිට ඕනේ ඩේටා කොලම් 15 ක් වගේ ප්‍රින්ට් කරගන්න ඕනේ නම් කොලම් හයිඩ් කර කර ඉන්නෙ නැතුව ක්ෂණික ක්‍රමයක් නැද්ද? vlookup walin karana widiyak. column wala numbers dapuwama data tika ena widiyak wage.