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!
Sir Kirby bali yung gusto ko na mangyari ay pag na click yung copy to clip board ay maka-copy yung lahat ng info tapos pwede siyang i paste sa notepad.
Halimbawa: Name: John Doe
Contact Number : 1234567
Fruits: Banana
Code: 1234
Comments: "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.
Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure
dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non
proident, sunt in culpa qui officia deserunt mollit anim id est laborum."
Recomendations: "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.
Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure
dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non
proident, sunt in culpa qui officia deserunt mollit anim id est laborum."
about sa function not sure bago pa lang kasi ako nag aaral ng macros.
Thanks in advanced!
Sub Test()
Dim Desktop As String
Dim FileName As String
Desktop = CreateObject("Wscript.Shell").Specialfolders("Desktop")
With ActiveSheet
FileName = .Range("A92").Value
.Range("A1:A113").Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
End With
With ActiveWorkbook
.SaveAs FileName:=Desktop & Application.PathSeparator & FileName & ".scr" _
, FileFormat:=xlTextMSDOS, CreateBackup:=False
.Close SaveChanges:=False
End With
End Subsir patulong formula for scanning IMEI 14 digit lang sana iscan
yung way sana sir kapg 13 ang lumabas or 15 may pop message or kung hindi IMEI barcode lalabas my pop up message parin na lalabas
sana matulungan nyo ako
salamat in advance
Sub start()
Dim lastrow As Long
lastrow = ActiveSheet.Cells(Cells.Rows.Count, 2).End(xlUp).Row + 1
ActiveSheet.Cells(lastrow, 2) = Time
End SubSub stop()
Dim lastrow As Long
lastrow = ActiveSheet.Cells(Cells.Rows.Count, 3).End(xlUp).Row + 1
ActiveSheet.Cells(lastrow, 3) = Time
End Sub
