Pink Eye Crow

This is a simple solution of how to adapt one of MS List Templates to your needs. It is set up as an example for expenses approval, but can be implemented as Purchase Orders approvals, Budget / Fund spent request on Team level or in HR for new job role authorisation , or changes to the salary. you name it! It will suit a small company / small team who needs a quick solution at little cost or effort. Remember, 3rd party solutions, specifically design are always a better choice, as they know what they are doing, and providing the service and support. Here you reply on yourself as a creator. So let's start. We are using SharePoint as our environment Microsoft Lists as our data source. Approvals for our approval flow Teams and SharePoint Site/Page as User Interface.   Step 1: Create new list from Travel requests with approval Template. Save as Approvals Template Step 2: Modify list Rename Trip title to Title (Column Settings -> Edit) Delete the following columns: Reason for trave...

I am happy to share that today I have received a Power Up Program Completion Badge! The challenge for Cohort 008 was to create a SoleStyle Shop app using Dataverse as a data source.  Model driving apps for back end data entry and edits. Canvas Power App - shop display for customers using galleries and variables. Power BI for manager reports Power Automate a simple flow of sending an email notification when New item was added And lastly Power Virtual Agent as a chatbot plugin. I have discovered few issues when working on this challenge. I was not able to connect Chatbot control on my Canvas App to Power Agent.  Later I have found out what was the issue. The problem was in Location of my Environment. By default it took me to Europe, because I live in the UK and I did not think about changing it to anything else. If I had created my Environment under US the control would have worked. It was too late for me to change by the time I learn it, so in my demo you can see the chatbot g...

  At last I can allow myself to go back to my IT doodling. I was putting together an App for my husband to track his self-employed expenditure and income; and when coding his receipts, I am, as a "true accountant" cannot to add up in my head. I had to go to my Calculator App on my Samsung phone and add few receipts together. Eventually I fed up and one weekend evening later I sketched this little calculator helper. My next step is to learn how to use components, as it will be great if calculator can be called from any app and the result can be fed to a cell. For now there is a quick solution. Perhaps I have overcomplicated things, I am a newbie myself, so any suggestions to improve are VERY WELCOME! These are all controls you need: 3 x Text Labels 1 x Rectangle shape 1 x Vertical gallery 1 x button as a part of gallery lblError   Text    varError   lblResult   Text    If(IsBlank(varResultFinal), varResult,varResultFinal) ...

  Another Excel automation shortcut. This VBA does Cinderella's job, of separating lentils from cinders and sorting them to separate pots! So excel data like one below, Sorted as per User ( Column A) and ranges of each user saved to a separate working in the specified folder as per Hyperlink. Default folder has to be assigned  as a backup, in cases where we did not specify folder for the User. User4 Data was saved to Default Folder as we did not have folder created at the time of split. Simple enough VBA, which can be improved by checking if file is open and close it, or make sure VBA saves files with unique name. (If you watch the video, you can notice I got Debug ) File to Download Code  Sub Splitter() Dim DataWS, LnksWS As Worksheet Dim Hdr, UsrRng, topCell, btmCell, c, copyRng, lCell, dateC, fndLink As Range Dim usr, usrC, copyR, MyPath, fName, mnth, yr, dflt, msgText As String Dim r1, r2 As Integer msgText = "" Set LnksWS = Sheets("Links") If LnksWS Is Not...

  This useful VBA is an adapted code from unknown source and author, please make yourself known for a credit and accept my huge gratitude for sharing your knowledge! The original code  worked very well for a "full table" data, but for random data the code did not work, chopping few lines off. Range("A1").SpecialCells(xlCellTypeLastCell).Address or  Cells.SpecialCells(xlCellTypeLastCell).Address fixed this issue File for grabs   VBA Module Public ext, TabNametxt, ShtPswrd As String, newBk As Integer   Public Sub AppenderNew() Dim MyPath, FilesInPath, MyFiles(), lAddr As String Dim SourceRcount, rnum, Fnum, CalcMode, TabNameNum As Long Dim mybook, Appender As Workbook, BaseWks, TabNameWS As Worksheet Dim sourceRange As Range, destrange As Range Dim TabName As Variant Dim fldr As FileDialog Dim answer As Integer SelectExt.Show     If ext = "" Then         Exit Sub     Else       ...