What's new
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.

St Sinned said:
Master, paturo naman po. Ganito po, sa isang workbook may tatlong sheet, TEMPLATE, WILL INPUT DATA, SOURCE. Ang gusto ko po sana mangyari ay kapag naglagay po ako ng data sa "WILL INPUT DATA" tapos kapag pinundot mo ang enter mabubura yung nasa "WILL INPUT DATA" at mapupunta po sya sa designated place that will match kung ano yung nasa "TEMPLATE" at mapupunta po din sya sa "SOURCE"...Attached file is my template...TIA....
Click to expand...

HIndi po kaya gawin ito?
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

di ko mabuksan yung sample file mo, eto pagkakaintindi ko..
sorry naoverlook ko eto yung code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value = "" Then
GoTo done1
End If


Sheet2.Range(Target.Address()) = Target.Value
Sheet3.Range(Target.Address()) = Target.Value
Sheet1.Range(Target.Address()) = ""


done1:

End Sub
 

Attachments

  • transferval.zip
    12.4 KB · Views: 12
Last edited:
Re: MS excel formula, programming, analysis, presentation and tutorials.

bytesize said:
eto sir simple lucky pick macro

code:

Private Sub CommandButton1_Click()

Dim x, lrandomnumber, lrandomnumber2 As Integer




Randomize

lrandomnumber = Int((38 - 1 + 1) * Rnd + 1)
lrandomnumber2 = Int((38 - 1 + 1) * Rnd + 1)

Do While lrandomnumber = lrandomnumber2
Randomize
lrandomnumber2 = Int((38 - 1 + 1) * Rnd + 1)
Loop


x = Application.WorksheetFunction.CountA(Sheet1.Range("a1:a200000")) + 1

Sheet1.Cells(x, 1) = lrandomnumber
Sheet1.Cells(x, 2) = lrandomnumber2

End Sub
Click to expand...

maraming salamat Idol love you!
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

St Sinned said:
Master, paturo naman po. Ganito po, sa isang workbook may tatlong sheet, TEMPLATE, WILL INPUT DATA, SOURCE. Ang gusto ko po sana mangyari ay kapag naglagay po ako ng data sa "WILL INPUT DATA" tapos kapag pinundot mo ang enter mabubura yung nasa "WILL INPUT DATA" at mapupunta po sya sa designated place that will match kung ano yung nasa "TEMPLATE" at mapupunta po din sya sa "SOURCE"...Attached file is my template...TIA....
Click to expand...

modify ko lang yung unang ginawa ko nakita ko na yung sample file mo sir. eto ok na tong code. Merry Christmas to everyone!!!!!!!

code:

Public Function trans(val_, headerx As String)

Dim rowx, columnx As Integer
rowx = 1
columnx = 1

Do While (Sheet2.Cells(1, columnx) <> "")

If Sheet2.Cells(1, columnx) = headerx Then
GoTo donecol

End If



columnx = columnx + 1
Loop

donecol:

Do While (Sheet2.Cells(rowx, columnx) <> "")



rowx = rowx + 1
Loop

Sheet2.Cells(rowx, columnx) = val_



rowx = 1
columnx = 1



Do While (Sheet3.Cells(1, columnx) <> "")

If Sheet3.Cells(1, columnx) = headerx Then
GoTo donecol2

End If



columnx = columnx + 1
Loop

donecol2:

Do While (Sheet3.Cells(rowx, columnx) <> "")



rowx = rowx + 1
Loop

Sheet3.Cells(rowx, columnx) = val_




End Function



Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, i, h As String
Dim r, c As Integer


c = Target.column

h = Target.Address
j = Target.value


h = Sheet1.Cells(1, c)


If Target.value = "" Then
GoTo done1
End If



Call trans(j, h)

Sheet1.Range(Target.Address) = ""
done1:



End Sub
 

Attachments

  • transfer2.rar
    211.5 KB · Views: 25
Last edited:
Re: MS excel reportings, presentations, and vba helping thre

Sir thanks a lot for sharing, request namn for School sypply inventory
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

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

salamat po sa gumawa ng thread na to. tulungan tayo, andaming info. pa bm po muna ko...
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

meron pala nito :lmao:
pa-subscribe nga at baka may matutunan :clap:
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

Sir Kirby patulong naman po if may vba code po ba na mag cocopy based kung anong criteria. example po sa dropdown may 2 choices may Kilos and Packs if ang user pinili niya Packs ung column na may formula para sa packs and cocopy niya and vice versa for kilos. Thanks sir. God Bless
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

Mga sir. Question

Meron akong excel file for login and logout.

pero gusto ko sana. automatic na lalabas ung name per LAN Access.
tas kapag naglog out or login.
Yung computer time ang susundin and nakalock ung data.
tapos masesend sa isang masterfile lahat ng Logins and log-out ng mga associate..
Aun.. :)
Sana may makatulong.. :)
THANKS!
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

joperd said:
Mga sir. Question

Meron akong excel file for login and logout.

pero gusto ko sana. automatic na lalabas ung name per LAN Access.
tas kapag naglog out or login.
Yung computer time ang susundin and nakalock ung data.
tapos masesend sa isang masterfile lahat ng Logins and log-out ng mga associate..
Aun.. :)
Sana may makatulong.. :)
THANKS!
Click to expand...

pwede yan. pero ang kukunin mo yung computer name.

Cname = Environ$("computername")

Uname = Environ$("username")

to get the time from you pc naman. you can use now()
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

hi po.


baka sakali pong my tumulong sakin.
simple form lng po sa excel kaso po kasi error ang lumalabas lagi baka po my tumulong.
Reply po dto sana para po msend ko ung form na ngwa.

Thank you.
 
Last edited:
Re: MS excel formula, programming, analysis, presentation and tutorials.

upload mo yung file tapos post mo yung code kung may macro code man yung worksheet. try naten remedyohan yan sir.
 
Re: MS excel reportings, presentations, and vba helping thre

Boss ask ko lng kung possible to sa Excel
Nagtratrack kse ko ng Progress ng isang project at may mga milestones sya.
Ang gusto ko kse mangyare
Kada maglalagay ako ng date sa milestone eh automatic magreremark sa dulong column based sa susunod nyang milestone

Sample

Install tas ung nxt powertap
Pag naglagay ako ng date sa install column dapat lalabas sa next Milestone column eh power tapping na.
Possible po ba un? Maraming Salamat po
 
Re: MS excel reportings, presentations, and vba helping thre

aoshi62 said:
Boss ask ko lng kung possible to sa Excel
Nagtratrack kse ko ng Progress ng isang project at may mga milestones sya.
Ang gusto ko kse mangyare
Kada maglalagay ako ng date sa milestone eh automatic magreremark sa dulong column based sa susunod nyang milestone

Sample

Install tas ung nxt powertap
Pag naglagay ako ng date sa install column dapat lalabas sa next Milestone column eh power tapping na.
Possible po ba un? Maraming Salamat po
Click to expand...

cell sites ba ginagawa nyo boss? :think:
sa tingin ko nested if statements ang kelangan mo dyan kung ilang milestones. bigyan kita ng sample for 3 nested if statements ng milestone
kunyari column nasa column I yung status ng install, J for powertap, K for FAC, tapos nasa column Z yung status
formula sa Z (status)

Code: 
=IF(I2="","Install",IF(J2="","powertap",IF(K2="","FAC","complete")))
 
Re: MS excel reportings, presentations, and vba helping thre

themonyo said:
cell sites ba ginagawa nyo boss? :think:
sa tingin ko nested if statements ang kelangan mo dyan kung ilang milestones. bigyan kita ng sample for 3 nested if statements ng milestone
kunyari column nasa column I yung status ng install, J for powertap, K for FAC, tapos nasa column Z yung status
formula sa Z (status)

Code: 
=IF(I2="","Install",IF(J2="","powertap",IF(K2="","FAC","complete")))
Click to expand...

Tama Po kayo Sir
Cge Po Susubukan ko po
May Limit po ba ung Nested If?
10 Milestones po kse xa.. End to end :D
Marami pong Salamat :D
 
Last edited:
Re: MS excel reportings, presentations, and vba helping thre

aoshi62 said:
Tama Po kayo Sir
Cge Po Susubukan ko po
May Limit po ba ung Nested If?
10 Milestones po kse xa.. End to end :D
Marami pong Salamat :D
Click to expand...

wala naman limit... ang problema lang syempre, habang dumadami arguments, nagiging mas kumplikado at mas mahirap i-trace ang errors or magdagdag ng argument pag kelangan mo... lalo na pag nakalimutan mo na yung logic :lol:
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

Very useful po idol...maraming salamat d2...magagamit ko sa ofis to...;)
 
Re: MS excel formula, programming, analysis, presentation and tutorials.

sir paturo din ako tracking system naka scan yong document
 
You must log in or register to reply here.

Similar threads

R
Please Help me datagridview rearange
Replies
0
Views
352
rapsoyso09
R
&watag
Excel Visual Basic Application
Replies
4
Views
1K
walo
walo
N
Data entry to other workbook excel vba
Replies
2
Views
645
neil1188
N
God love us
For Excel VBA expert only
Replies
0
Views
606
God love us
God love us
Patch2012
Excel VBA Incrementing Code [HELP]
Replies
4
Views
606
arcajx
arcajx
Back
Top Bottom