Symbianize Forum

Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.

All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!

true power of MS excel. update: PowerBI

Re: MS excel formula, programming, analysis, presentation and tutorials.

Master maraming salamat sa code mo. Pinagbasihan ko code niyong dalawa ni master romcel tapos nagtingin tingin ako sa google/youtube kung pano mag add ng comment. Sa wakas nakuha ko rin yung gusto kong mangyari sa table ko. May comment na at nababago yung comment kapag binago ko yung value ng cell. At nawawala rin comment pag walang laman ang cell. Maraming salamat sa inyo :thumbsup:

@LightHole, bute n lang boss nakatulong.
follow up lang sa final code mo na ng a-add ng comment.
snbukan ko lang paiksiin. pero pareho lang din naman to ng nagging output.


Code:
With rTarget
'<~ bigyan natin ng default na value na blank.
'<~ hnd pa naten alam kung merong value na ininput
'<~ or kung meron ng existing na comment dun sa cell(kapag ng edit ng value)
'<~ pero dedelete na naten. no nid na i-add sa
'<~ arguement ng validation mo kung my comment o wla.
  .Comment.Delete

  '<~ kung my value then lgyan ng comment
  If Not .Value = "" Then
    With .AddComment
      .Visible = False
      .Text = "Current Value Today: " & dblCurrentValue & vbNewLine & "Current Earnings Today: " & rTarget.Value
    End With
  End If
End With

Goodluck sa bitcoin business mo!:salute:
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

mga lodi need ko po ng tulong kung paano ko po ma automate yung activity ko sa filtering ng bill of materials,
naka attach na po yung source file ko at result file.

bale ang kelangan ko pong data ay

level 1 na phantom (x) at nagsisimula sa 720-, 730-, SBR-, SBW- kasama mga sub level parts nya sa baba ( level 2 or 3 or 4 )
 

Attachments

  • WA BOM Summary Source.zip
    68.3 KB · Views: 11
  • WA BOM Summary Result.zip
    68.8 KB · Views: 11
Re: MS excel formula, programming, analysis, presentation and tutorials.

mga lodi need ko po ng tulong kung paano ko po ma automate yung activity ko sa filtering ng bill of materials,
naka attach na po yung source file ko at result file.

bale ang kelangan ko pong data ay

level 1 na phantom (x) at nagsisimula sa 720-, 730-, SBR-, SBW- kasama mga sub level parts nya sa baba ( level 2 or 3 or 4 )

Pakilinaw po yung kelangan nyo. Mas maganda if ma eexplain mo sa amin ng step by step kung paano mo to ginagawa manually.
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

@LightHole, bute n lang boss nakatulong.
follow up lang sa final code mo na ng a-add ng comment.
snbukan ko lang paiksiin. pero pareho lang din naman to ng nagging output.


Code:
With rTarget
'<~ bigyan natin ng default na value na blank.
'<~ hnd pa naten alam kung merong value na ininput
'<~ or kung meron ng existing na comment dun sa cell(kapag ng edit ng value)
'<~ pero dedelete na naten. no nid na i-add sa
'<~ arguement ng validation mo kung my comment o wla.
  .Comment.Delete

  '<~ kung my value then lgyan ng comment
  If Not .Value = "" Then
    With .AddComment
      .Visible = False
      .Text = "Current Value Today: " & dblCurrentValue & vbNewLine & "Current Earnings Today: " & rTarget.Value
    End With
  End If
End With

Goodluck sa bitcoin business mo!:salute:

Woww ayos sige master check ko yang code. Maraming salamat :thumbsup:
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

Pwede paupdate nung links para sa Excel hacks.rar hehe aralin ko sana baka magamit ko sa work :D Salamat po.
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

Master romcel at master aubrey at sa iba pang master, masaya na po si dodong sana sa excel file niya. Kaso lang po maarte talaga siya eh Kaya sinusubukan niya uli na lagyan ng isa pang features :lol::slap:

Ganito po ang problema ko mga ser...

attachment.php


Jan sa picture na yan, diba yung CELL C4 to CELL F30 ay automatic na nag su-subtract kung ano yung nasa value nung nasa top? Kumbaga yun paring nakaraan. Naglagay ako ng 19 sa CELL C4 po tapos next day naglagay ako ng 258.75 sa CELL C5. Automatic na nag subtract si C5-C4 value then C5 will display the result sa comment. Medyo binago ko po ng konti yung code dito. Ni-retain ko na yung value ng cell each day tapos yung display ng result ay sa comment nalang. Ganon din sa D CELLS hanggang F column. Now, yung G column ay yung total. Ito na ang problema ko hehe

Gusto ko po sana, let say sa yung row 7 or April 7 total na nasa CELL G7, Gusto ko po na automatic siyang maglalagay ng comment gaya sa ibang cells from C4:F30. Unlike sa C4 to F30, itong si G column ay hindi naman ako nagta type dito. Kasi naka autosum yung G column kay C to F column eh. Gusto ko po sana mga master na automatic mag su-subtract din si CELL G7 sa value ni G6 tapos idi-display yung result sa comment ni CELL G7...

Patulong po ulit please :pray:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rTarget As Range        '<~ range will hold target. old habits never die.
Dim dblValHolder As Double  '<~ will hold the value of rtarget.
Dim dblResultValue As Double   '<~ will hold the current value
'Dim ws As Worksheet     '<~ di ko alam para san to, ginaya ko lang haha

'<~ to ensure na ung nagbagong cell ay within the table
If Intersect(Target, Range("C5:F30")) Is Nothing Then Exit Sub

Set rTarget = Target    '<~ pass target to the declared variable

'<~ to ensure na isang cell lang ung nagbago.
'<~ incase na ng delete ka ng multiple cell within the table,
'<~ then exit sub na.
If rTarget.Cells.Count > 1 Then Exit Sub

Application.EnableEvents = False            '<~ disable naten events. bka mgtrigger ung ibang cell events.

With rTarget
  '<~i-hold natin ung value na ininput mo
  If Not IsNumeric(.Value) Then Exit Sub    '<~ exit sub tayo kpag text ang ininput.
  If Not IsNumeric(.Offset(-1, 0).Value) Then Exit Sub '<~ ganon din kung hnd number ung sa taas.
  dblValHolder = CDbl(.Value)               '<~ pass naten sa variable
  
    If dblValHolder = 0 Or rTarget.Value = "" Then '<~ naglagay ako validation kung may value ba yung cell or empty
        rTarget.ClearContents
    Else
        dblResultValue = Abs(.Offset(-1, 0).Value - dblValHolder) '<~ do the math.
    End If
End With

For Each rTarget In Target
    If rTarget.Comment Is Nothing And rTarget.Value = "" Then   '<~ kung walang laman ang cell, wala ring comment
        rTarget.ClearContents
    
    ElseIf rTarget.Comment Is Nothing And rTarget.Value <> "" Then  '<~ kung may laman ang cell, mayroon ring comment
        With rTarget.AddComment
            .Visible = False
            .Text "Current Value Today: " & rTarget.Value & vbNewLine & "Current Earnings Today: " & dblResultValue
        End With
            
    ElseIf Not rTarget.Comment Is Nothing And rTarget.Value <> "" Then      '<~ kapag nag edit ako ng value ng cell
        With rTarget.Comment
            .Visible = False
            .Text "Current Value Today: " & rTarget.Value & vbNewLine & "Current Earnings Today: " & dblResultValue
        End With
    
    ElseIf Not rTarget.Comment Is Nothing And rTarget.Value = "" Then       '<~ kung may laman ang cell, pero nag delete ako ng value sa cell, wala ring comment
        rTarget.ClearContents
        rTarget.Comment.Delete
    End If
Next

Application.EnableEvents = True             '<~ enable naten ulit.

End Sub
 

Attachments

  • how.png
    how.png
    203.7 KB · Views: 74
Re: MS excel formula, programming, analysis, presentation and tutorials.

Pakilinaw po yung kelangan nyo. Mas maganda if ma eexplain mo sa amin ng step by step kung paano mo to ginagawa manually.

bale ganito po sir

dun sa file ng WA BOM Summary Source, View attachment 341392

ang kelangan ko lang po ay yung nasa Column "E"

kaya po ginawan ko ng formula sa may cell "E2" =IF(C2="X",B2,IF(E1<>FALSE,IF(A2=1,FALSE,B2)))

tapos po yung gusto ko sana nasa column "B" ay nagsisimula lang sa "720" , "730" , "SBR" at "SBW" yung po nasa file ng WA BOM Summary Source
 

Attachments

  • Pic1.jpg
    Pic1.jpg
    269.4 KB · Views: 15
Re: MS excel formula, programming, analysis, presentation and tutorials.

@lighthole, boss sorry wla akong excel dito eh.

pero tingin ko pede na to ata

Code:
With Target
  .Parent.Range("G" & .Row).Comment.Text = "This range is " & .Offset(-1, 0).Value - .Value
End With
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

good day po mga ma'am/sir,

tanong ko lang po if possible ba na magawa na automatically masave ang isang excel file on two different locations?

i.e. meron akong "file.xlsx" na opened from externa drive "E:", upon closing na save ko sya via prompt (save/don't save prompt) or via "save as"/"CTRL+S",
pero bukod dun, meron syang duplicate na na save din on let's say "C:\Users\Documents\excel_backups".

TIA

alam ko po pwede sya gawin manually, pero di po kasi ganun kasipag ang mga workmates ko:lol:
 
Last edited:
Re: MS excel formula, programming, analysis, presentation and tutorials.

@ghostecho,
try mo n lang to sir.
paste mo lang to sa "ThisWorkbook" na module dun sa excel.
sya ung merong green na icon, sa ilalim ng mga sheets. :salute:

Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Debug.Print ThisWorkbook.Path				'<~ to check kungsaan nka save ung workbook na isasavemo

  With ThisWorkbook
  .SaveAs "D:\this folder\" & .Name, 52			'<~ edit mo n lang to para dun sa folder na pag se-save-an mo
  End With						'<~ check mo lang na dapat existing ung folder.
							'<~ at kung network shared folder yon meron din syang ibang
							'<~ syntax. "\\COMPNAME\FOLDER\SUBFOLDER" ung tulad nito.
End Sub



NOTE: 1)dapat existing na ung folder na pagse-savean.
2) kung ise-save mo ung file na nasave na sa folder na to. mag ooverwrite lang sya.
3) i-sa-suggest ko lang na mg gwa ka ng mga error handling dito sa event na to.


EDIT:
kung mapapansin mo, ung number 52 dun sa code.
ng base lang ako dito sa built-in enumeration ni excel CLICK HERE

goodluck bossing!
 
Last edited:
Re: MS excel formula, programming, analysis, presentation and tutorials.

@lighthole, boss sorry wla akong excel dito eh.

pero tingin ko pede na to ata

Code:
With Target
  .Parent.Range("G" & .Row).Comment.Text = "This range is " & .Offset(-1, 0).Value - .Value
End With

Ayos, okay langp o bossing salamats! :thumbsup:

Saang part ko ilalagay yang code po na yan?
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

Ayos, okay langp o bossing salamats! :thumbsup:

Saang part ko ilalagay yang code po na yan?


sa worksheet_onChange() event.
para everytime na merong cell
na mag-papalit ng value within
dun sa table mo. ma-ttrigger
yang code.
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

Mga sir pa help naman po. Meron po akong ginawang formula sa excel na pang INVENTORY kaya lang po hindi consistent.
Gusto ko po kase gumawa ng report ng lahat ng total output base po sa portion at sa grams.
Ang report po ay manggagaling sa POS.Pa check naman po baka may alam pa kayo pano mapapadali ang
pagreport ko lalu na sa mga gulay. salamat po.
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

Sir we are here to help you, ano na ba mga na try nyong approach? Ms mttlungan nmen kayo kung ms maeexplain nyo maige ung difficulty nyo. :thumbsup:
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

bale ganito po sir

dun sa file ng WA BOM Summary Source, View attachment 1252865

ang kelangan ko lang po ay yung nasa Column "E"

kaya po ginawan ko ng formula sa may cell "E2" =IF(C2="X",B2,IF(E1<>FALSE,IF(A2=1,FALSE,B2)))

tapos po yung gusto ko sana nasa column "B" ay nagsisimula lang sa "720" , "730" , "SBR" at "SBW" yung po nasa file ng WA BOM Summary Source

mga sir up ko lang ulit yung problem ko sana may makatulong :pray:
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

Sir we are here to help you, ano na ba mga na try nyong approach? Ms mttlungan nmen kayo kung ms maeexplain nyo maige ung difficulty nyo. :thumbsup:

Combination po ng sumif at vlookup sir.. kaya lang may mga grams kase ng gulay sa bawat menu.
 
Last edited:
Re: MS excel formula, programming, analysis, presentation and tutorials.

Combination po ng sumif at vlookup sir.. kaya lang may mga grams kase ng gulay sa bawat menu.

bawat menu?
tama po ba ung pagkaka intindi ko na,
ggwa tayo ng inventory ng stock ng store.
tapos ung mga item don ay cnconsume on a daily basis?


mga sir up ko lang ulit yung problem ko sana may makatulong :pray:

sir, psnsya kna. d ko tlga magets ung problem nyo. d ako familiar sa
mga build-of-materials eh.:slap:
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

Opo sir Romcel.. meron na po akong output ng mga na consume galing sa POS daily.. ang problema ko po ay yung mga may grams. Halimbawa po. May lumabas o nabentang pansit bihon, jan po sa menu na yan ay may mga gulay na may grams po.. ngaun gusto ko po malamn ang total output ng mga gulay araw-araw. :)

Dun po sa una kong post na may attachment andun po ang bawat menu na may grams ng bawat gulay na ginagamit.
 
Last edited:
Re: MS excel formula, programming, analysis, presentation and tutorials.

ang problema dito kpag diniliver ung mga gulay ng nka kilograms, say ung sibuyas dadalhin sa warehouse ang unit is kgs. pero ang pag consume by grams. hmm :slap:
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

ang problema dito kpag diniliver ung mga gulay ng nka kilograms, say ung sibuyas dadalhin sa warehouse ang unit is kgs. pero ang pag consume by grams. hmm :slap:

Opo sir Kilo grams. Pero sa report ko sir grams paren, kunyare 2 kilos of ampalaya na dumating o napurchase.. 2000 grams po ang nilalagay ko :) para lang makuha ang ending inventory. tus may nabntang ampalaya guisado apat. eh bawat serving ng ampalaya po is 300 grams so sa apat na lumbas meron akong 1200 grams na nagamit. so ang ending ko is 800 grams that day . ganun po. :)
example palang po yan sir :)
sa bawat menu po kase merong 3 to 4 na gulay na ginagamit... so ang ginagamit ko po jan para makuha ang output is sumif at vlookup. baka po meron pa mas madali jan sir..
 
Last edited:
Back
Top Bottom