Pink Eye Crow

  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       ...