How would I go about something like this but be able to have each employee show their days off on the calendar? Also if I have 3 different groups of employees like supervisor, quality analyst, and specialist all doing 4 different shifts throughout the day and night (day, swing, sunrise6, sunrise8 )
@exceldemy200614 сағат бұрын
Hello @josephinebejarano184, You can show each employee's day off in the calendar. But for 3 different groups, you need to create 3 different Excel workbooks. Here, I created a Template for the Supervisor group and changed the Settings sheet. First, insert your shift name in the Shift Codes column including OFF-1 and OFF-2 Then, insert the employee name of particular groups in the Employee Name column. Do similar things in 2 different workbooks for Quality Analysts and Specialist. Download the Template from here: www.exceldemy.com/wp-content/uploads/2024/06/Make-a-Roster-based-on-Department.xlsm Regards ExcelDemy
@gullwing1959Күн бұрын
Is it possible? If I change a date in just one item and it goes automatically up or down.
@exceldemy200616 сағат бұрын
Hello @gullwing1959, It is possible that changing any date of a particular column will automatically sort the entire dataset. Please change the cell range based on your criteria and dataset. Here is the VBA code to do so: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ExitHandler Application.EnableEvents = False ' Define the column that contains the dates and the range to sort Dim DateColumn As Range Dim SortRange As Range Set DateColumn = Me.Range("D4:D" & Me.Cells(Me.Rows.Count, "D").End(xlUp).Row) Set SortRange = Me.Range("B4:E" & Me.Cells(Me.Rows.Count, "D").End(xlUp).Row) ' Check if the change occurred in the date column If Not Intersect(Target, DateColumn) Is Nothing Then Me.Sort.SortFields.Clear Me.Sort.SortFields.Add Key:=DateColumn, Order:=xlAscending With Me.Sort .SetRange SortRange .Header = xlYes .Apply End With End If ExitHandler: Application.EnableEvents = True End Sub Download the Excel File: www.exceldemy.com/wp-content/uploads/2024/06/Sort-By-Date-Auto-Sort-Available.xlsm Regards ExcelDemy
@rupinderwalia4000Күн бұрын
Thanks for a great video how would i enter shifts for employees that work 8 hrs shift with diffferent rotations and some are part-timers some work saturdays and their rotations report after 12 weeks so it continues throughout the different years but rotations are 12 weeks only
@anderji2 күн бұрын
Is this witchery????
@exceldemy2006Күн бұрын
Hello @anderj, Not quite witchery, but it does seem magical, doesn't it? Just some clever tricks and a lot of practice with creating drop-down lists with multiple selections! Thanks for watching!" Regards ExcelDemy
@sachinbandari82252 күн бұрын
Thank you for info. It helped me a lot in my line of work. easy to trace many locations in map. very helpful
@exceldemy2006Күн бұрын
Hello @sachinbandari8225, We are glad to hear that our video helped you in your work. Thanks for your appreciation. Please stay connected with us. Regards ExcelDemy
@Mnopqrstuvwxyz....3 күн бұрын
In the combination of countifs, index, match function i want to count by the salesperson, means how many qnty are sold by the respective salesperson?? Could you pls share!!
@exceldemy20062 күн бұрын
Hello @Mnopqrstuvwxyz, If you want to calculate the total quantity sold by any salesperson, use the following formula: =SUMPRODUCT(($A$2:$A$10="Paul")*(B$2:B$10="x") + ($A$2:$A$10="Paul")*(C$2:C$10="x") + ($A$2:$A$10="Paul")*(D$2:D$10="x")) You can replace the salesperson's name with a reference. Or, if you want to count individually, you can use the following formulas: =COUNTIFS(Table42[Salesman],"Paul",Table42[Coat],"x") =COUNTIFS(Table42[Salesman],"Paul",Table42[Shirt],"x") =COUNTIFS(Table42[Salesman],"Paul",Table42[T-Shirt],"x") If you want to use drop-down list follow the steps given below: Create Dropdown lists: To select the salesman and product name, create two dropdown lists in cells B5 and C5. Follow this article to create a dropdown list: www.exceldemy.com/learn-excel/data-validation/drop-down-list/create/ To find the count of sales: Use the formula in the respective cell: =SUMIFS(INDEX(B8:E16,0,MATCH(C5,B7:E7,0)),B8:B16,B5) This formula considers duplicate names and sums up their corresponding sales for the chosen product. To use the formula: Select the salesman in cell B5. Then, select your desired product in cell C5. And the result will be in front of your eyes. For better understanding, download the Excel workbook. Excel file: www.exceldemy.com/wp-content/uploads/2024/01/Counting_Based_on_Multiple_Criteria.xlsx Regards ExcelDemy
@mrpayton88395 күн бұрын
I'm literally learning how to use Excel from your videos! Thank you.
@exceldemy20064 күн бұрын
Hello @mrpayton8839, That's awesome to hear! I'm glad my videos are helping you learn Excel. If you have any questions or need further help, feel free to ask. Keep up the great work! Regards ExcelDemy
@mrpayton88395 күн бұрын
Thank you for the tutorial. It was very helpful.
@exceldemy20064 күн бұрын
Hello @mrpayton8839, That's awesome to hear! I'm glad my videos are helping you learn Excel. Regards ExcelDemy
@tylermeyers35127 күн бұрын
I have copied everything you have done and i still get "Spill" on my filtering table..... I have tried on 365 and newest excel version.
@exceldemy20064 күн бұрын
Dear, Thanks for sharing your problem! The "#SPILL!" error typically occurs when a formula tries to return multiple results, but the surrounding cells are not empty. So, please ensure that the cells where your results are supposed to spill are empty. If any of these cells contain data, delete or move that data. You can check the following: www.exceldemy.com/wp-content/uploads/2024/06/ensure-that-the-cells-where-your-results-are-supposed-to-spill-are-empty.gif
@abreakristinefaith12297 күн бұрын
my may got #value how to solve this? someone help
@exceldemy20067 күн бұрын
Dear, Thanks for sharing your difficulties! It is very difficult to provide an ultimate solution without glancing at your Excel file and being remote. So, please share your problem in the ExcelDemy Forum and attach your Excel file. ExcelDemy Forum: exceldemy.com/forum/
@almullae7 күн бұрын
Thank you, It was really helpful, I did it by myself with your video help, but you didn't add the weekend to the sheet as I want it to skip the weekends and count after it, can you help me with that as I want to keep only Friday as the weekend
@exceldemy20067 күн бұрын
Dear, thanks for your compliment! We have reviewed your requirements and adjusted an Excel file based on your needs. In particular, we added weekend information to the Settings sheet and created a Named Range for weekends. Later, we had to modify the date formula to skip Friday. You can download the file: www.exceldemy.com/wp-content/uploads/2024/06/Ebrahim-Al-Mulla-SOLVED.xlsm
@jorgejesuszamalloaespejo37228 күн бұрын
Thank you, you are awesome !
@exceldemy20067 күн бұрын
Hello @jorgejesuszamalloaespejo3722, You are most welcome. Your appreciation means a lot to us. Please stay connected with us. Regards ExcelDemy
@slc25538 күн бұрын
Hi, is there a version of this that is compatible with Mac Numbers? :)
@exceldemy20067 күн бұрын
Hello @slc2553, Hi, thank you for your interest! Currently, we don't have a version specifically compatible with Mac Numbers, but we have plans to cover Mac topics in the future. Stay tuned! Regards ExcelDemy
@GinaEscalante-th4wi9 күн бұрын
Would it be possible to do this with multiple websites and make one big database?
@exceldemy20067 күн бұрын
Dear, Thanks for your question! The answer is YES. You can combine data from multiple websites into one extensive database in Excel that updates automatically. To do so, use the From Web option under the Data tab to connect to each website and load the data into new sheets. Clean the data using the Power Query Editor. Then, use the Append Queries feature to combine all the tables. Import the combined data into your worksheet. To ensure the database updates automatically, enable the auto-update feature by setting a refresh interval in the Connection Properties.
@Sohailabbasi939 күн бұрын
But if we want to change location of person, how will we do?
@exceldemy20068 күн бұрын
Hello @Sohailabbasi93, To change a person’s location on a Google Map created with Excel data: You can follow these 3 ways: You can upload the updated Excel file. 1. Edit the Excel File: Open the Excel file containing the data. Find the row with the person’s information and update their address or coordinates. Save the changes. Update Google My Maps: 2. Open Google My Maps and go to your map. Click on the "Add layer" button, then select "Import" to upload the updated Excel file. Follow the prompts to import and replace the old data. Manual Adjust the Map Open your map in Google My Maps >> Click the marker you want to move >> Drag it to the new location. Regards ExcelDemy
@Sohailabbasi939 күн бұрын
Good info.
@exceldemy20068 күн бұрын
Thanks for your appreciation. Stay connected with us.
@Sunshine..150859 күн бұрын
How to substrate any number with their units? Like 100kg -20kg=?
@exceldemy20068 күн бұрын
Hello @Trina12332, Use the following formula: =LEFT(A1, LEN(A1)-2) - LEFT(B1, LEN(B1)-2) & "kg" Regards ExcelDemy
@Sunshine..150858 күн бұрын
@@exceldemy2006 okk sir thank you so much 🙃🤝
@exceldemy20067 күн бұрын
Dear, You are very welcome!
@internationaltraveler10579 күн бұрын
😇🥰 most helpful thanks, and so clearly explained
@exceldemy20068 күн бұрын
Hello @internationaltraveler1057, You are most welcome. Your appreciation means a lot to us. Regards ExcelDemy
@alexg895710 күн бұрын
Amazing video! How can I instead of use adding that macro to 1 cell, adding the same macro for a whole column?
@exceldemy20068 күн бұрын
Thanks for your compliment! Suppose you want to create this type of drop-down for the entire column C. To achieve this, select the whole C column and apply data validation as the List and source would be the items (In our case, book names). Later, go to the intended sheet module, paste the following code and save it: Private Sub Worksheet_Change(ByVal Target As Range) Dim dropdownRange As Range Set dropdownRange = Me.Range("C:C") Dim old_val As String Dim new_val As String Application.EnableEvents = True On Error GoTo Exitsub If Not Intersect(Target, dropdownRange) Is Nothing Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False new_val = Target.Value Application.Undo old_val = Target.Value If old_val = "" Then Target.Value = new_val Else If InStr(1, old_val, new_val) = 0 Then Target.Value = old_val & ", " & new_val Else: Target.Value = old_val End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub
@TheGuggo11 күн бұрын
Very good and thank you for this video. However, it would be great if the data source could be identified automatically. My data change every month and I would like to plug in the new data and have the macro able to run without declaring a new table.
@exceldemy20067 күн бұрын
Dear, Thanks for your comment! We have reviewed your requirements and created an Excel VBA event procedure and a sub-procedure. With this approach, when you paste your copied data into the sheet, the chart will automatically generated. All you need to do is paste the following code into the sheet module and save it. Please check the following: www.exceldemy.com/wp-content/uploads/2024/06/Automatically-Updating-Dynamic-Charts-with-VBA-in-Excel.gif You can download the solution workbook: www.exceldemy.com/wp-content/uploads/2024/06/Independent-Mind-SOLVED.xlsm
@202voyer13 күн бұрын
Do any of these methods work if the criteria is in the date format?
@exceldemy20068 күн бұрын
Dear, Thanks for your question! The answer is YES. All the ideas will work for date-type criteria. You just need to adjust the formulas or features based on your dataset. Assume you want to retrieve rows in between dates. In this case, you can use Excel FILTER or IF functions. The FILTER function will retrieve fresh data; however, the IF function may provide some empty rows. So, using the FILTER function is recommended. Please check the following: www.exceldemy.com/wp-content/uploads/2024/06/Dynamic-Data-Extraction-Based-on-Date.gif You can download the solution workbook: www.exceldemy.com/wp-content/uploads/2024/06/Dynamic-Data-Extraction-Based-on-Date.xlsx
@Kukolka4214 күн бұрын
What keystroke are you using after typing in each cell? Enter, Tab ..? This was a little fast for a beginner but I'll watch it again.
@exceldemy20068 күн бұрын
Hello @Kukolka42, After typing in each cell press ENTER to store the data. Sorry for the inconvenience. Please stay connected with us. Regards ExcelDemy
@Kukolka428 күн бұрын
@@exceldemy2006 Thank you so much, that helps!
@exceldemy20067 күн бұрын
Dear, We are delighted that it helps. You are very welcome.
@user-gv3vl7tr1m14 күн бұрын
Thank u sir
@exceldemy200614 күн бұрын
All the best
@makav3li66515 күн бұрын
awesome tutorial and clear explanations
@exceldemy200614 күн бұрын
Glad it was helpful!
@anwarkrg929215 күн бұрын
amazing, you are the life saver, thanks. subscribed!👍🙂
@exceldemy200614 күн бұрын
Dear, Thanks for your wonderful compliment! Welcome to the ExcelDemy community.
@shahidatul4215 күн бұрын
Hi, what if we need to add more staff to the list? I tried to just copy the formulas and drag it to the new columns but it doesn't work
@exceldemy200615 күн бұрын
Dear, Thanks for sharing your problem! Adding more rows to work with more employees and dragging the formula are not enough for the leave tracker to work properly; you must also make all the necessary adjustments. Don't worry! You have improved an Excel file where you can work with more than 100 employees. You can download the Excel file: www.exceldemy.com/wp-content/uploads/2024/06/Shahidatul-Amirah-SOLVED.xlsx
@azazkhan625216 күн бұрын
Just subscribing because you have replied to each cmt and solve their issue👍👍👍
@exceldemy200615 күн бұрын
Dear, Thanks for subscribing! We appreciate you for joining the ExcelDemy community. We try our best to respond to comments and help whenever possible.
@dimitopalidis273217 күн бұрын
I can't find the properties of the listbox, where can I open them?
@dimitopalidis273217 күн бұрын
could u help me
@exceldemy200616 күн бұрын
@@dimitopalidis2732 Dear, Thanks for your comments! Of course, we will help you; we are always here to overcome your difficulties. You can add two types of list boxes to a worksheet: Form Controls and ActiveX Controls. Form Controls are more straightforward to use. On the other hand, ActiveX Controls are more versatile and offer more properties and customization options. The Property option you refer to, which allows more detailed customization, is only available in ActiveX Controls. So, in order to find the Property options by right-clicking on a list box, you must insert a list box from ActiveX Control. Please check the following: www.exceldemy.com/wp-content/uploads/2024/06/Two-types-of-list-boxes-are-used-for-a-worksheet-Form-Controls-and-ActiveX-Controls.gif
@dimitopalidis273216 күн бұрын
@@exceldemy2006 thank you so much :) my other question is how can I connect more Listboxes then one with one Modul or do I have to create mor codes on vba?
@exceldemy200615 күн бұрын
@@dimitopalidis2732 Dear, You are very welcome. We always are here to help. If you want to insert more than one list box, follow the same procedure outlined here. However, you must create new sub-procedures and assign them to the new shapes accordingly. It is important to remember that you must modify the VBA sub-procedures as well; you can keep them in a single module. I have demonstrated your situation and inserted another list box in the same worksheet. Please check the following for a better understanding: www.exceldemy.com/wp-content/uploads/2024/06/Create-more-than-one-Multi-checkbox-dropdown-list.gif You can download the Excel file: www.exceldemy.com/wp-content/uploads/2024/06/Dimi-Topalidis-SOLVED.xlsm
@dimitopalidis273214 күн бұрын
@@exceldemy2006 <3
@nooshinfakharian542317 күн бұрын
The width stays the same as the source's format, but the height always changes. Any tips for that?
@exceldemy200617 күн бұрын
Dear, Thanks for your comment! The Paste Special dialog box does not offer a row heights option as it does for column widths. Therefore, you'll need to adjust the row heights manually to match the source data. Don't worry! You can use an Excel VBA sub-procedure we developed if you frequently need to maintain column widths and row heights when copying and pasting. All you need to do is select the source data and run the sub-procedure; later, it will ask you to select the first cell of the destination. Please check the following: www.exceldemy.com/wp-content/uploads/2024/06/Copy-and-Paste-Without-Changing-the-Format-by-Running-Excel-VBA-Code.gif You can download the solution workbook: www.exceldemy.com/wp-content/uploads/2024/06/Nooshin-Fakharian-SOLVED.xlsm Excel VBA Sub-procedure: Sub CopyPasteWithFormatting() Dim sourceRange As Range Dim firstCell As Range Dim destinationRange As Range Dim numRows As Long, numCols As Long Dim i As Integer Set sourceRange = Selection If sourceRange Is Nothing Then MsgBox "No source range selected. Exiting." Exit Sub End If On Error Resume Next Set firstCell = Application.InputBox("Select the first cell of the destination range:", "Destination Range", Type:=8) On Error GoTo 0 If firstCell Is Nothing Then MsgBox "No destination cell selected!", vbInformation Exit Sub End If numRows = sourceRange.Rows.Count numCols = sourceRange.Columns.Count Set destinationRange = firstCell.Resize(numRows, numCols) sourceRange.Copy destinationRange.PasteSpecial Paste:=xlPasteAll sourceRange.Copy destinationRange.PasteSpecial Paste:=xlPasteColumnWidths For i = 1 To sourceRange.Rows.Count destinationRange.Rows(i).RowHeight = sourceRange.Rows(i).RowHeight Next i Application.CutCopyMode = False End Sub
@nooshinfakharian542317 күн бұрын
Thank you! @@exceldemy2006
@exceldemy200616 күн бұрын
Dear, You are very welcome.
@EthanFuller-jx3yq18 күн бұрын
Thank you!
@exceldemy200617 күн бұрын
Dear, You are very welcome.
@SILVIOALENCARCANDIDOSOBRINHO18 күн бұрын
omg... huge formula, a case where regex is easier
@exceldemy200617 күн бұрын
Hello @SILVIOALENCARCANDIDOSOBRINHO, Yes, it is quite a large formula! Using regex can definitely simplify cases like this. If you need help with a regex solution, feel free to ask! Regards ExcelDemy
@zmedina507920 күн бұрын
Amazing work! Thank you
@exceldemy200618 күн бұрын
Hello @zmedina5079, You are most welcome. Please stay connected with us. Regards ExcelDemy
@cabdirizakmohamed20 күн бұрын
Amazing lesson. Thank you
@exceldemy200618 күн бұрын
Hello @cabdirizakmohamed, You are most welcome. Please stay connected with us. Regards ExcelDemy
@JoeLaFond-et9sb20 күн бұрын
How do you apply a Score between 1-5 (1 being the best, 5 being the worst) based upon each row's weighted value of the total?
@exceldemy200618 күн бұрын
Dear, Thanks for your questions! YES, you can easily apply a score between 1 and 5 (1 being the best, 5 being the worst) within the existing model mentioned in the first example. To do so, you do not need to change the formula. However, remember to ensure the sum of the weights equals 100% or 1 in decimal representation. We have demonstrated your situation in an Excel file. You can download the file: www.exceldemy.com/wp-content/uploads/2024/06/Joe-LaFond-SOLVED.xlsx
@justsayjoe963417 күн бұрын
@@exceldemy2006 Thank you for your response to my question. I took a look at your solution, and it was close, but no cigar. I'm not trying to determine what the weighted average of the scores are, I'm trying to apply a score (between 1-5) to each row, based on the row's weight value. So the row with the highest percentage share will get a score of 1 (the best), the row with the lowest percentage share will get a score of 5 (the worst), and the rows between those two are where I'm having problems figuring out how to apply a score to. I hope that makes more sense.
@exceldemy200617 күн бұрын
@@justsayjoe9634 Dear, Thanks for your kind words! You want to assign scores (between 1 and 5) to each row based on its weight value. Please check the following: www.exceldemy.com/wp-content/uploads/2024/06/Assigning-scores-between-1-and-5-to-each-row-based-on-its-weight-value.gif You can download the workbook: www.exceldemy.com/wp-content/uploads/2024/06/Joe-LaFond-SOLVED-1.xlsx Improved Excel Formula: =COUNTA($C$5:$C$9)-RANK.EQ(C5, $C$5:$C$9, 1)
@ronx76121 күн бұрын
Magnificent
@exceldemy200618 күн бұрын
Hello @ronx761, You are most welcome. Please stay connected with us. Regards ExcelDemy
@MeganGriffitt22 күн бұрын
Hi, your TextJoin function appears to be perfect, but it will not execute correctly when I try this given my parameters and I am hoping you could assist me? For A1-A4, I have these values (addresses modified): CUSTOMER ADDRESS 950 PO BOX PHILADELPHIA PA 19106 68 W CARLTON ST TELFORD PA 18970 687 BATTSY AVE GETTYSBURG PA 17337 For D1-D4 I have these values (which I am hoping to fill into B2-B4 if the city names are contained in cell A1, A2, etc.): UNIQUE CITIES PHILADELPHIA TELFORD GETTYSBURG Any ideas on what I'm doing wrong? I put the following function in, given your video: =TEXTJOIN(",",TRUE,IF(COUNTIF(A2,"*"&D$2:D$4&"*"),$D$2:$D$4,""))
@exceldemy200621 күн бұрын
Dear, Thanks for sharing your problem! We have demonstrated it within a workbook and found that you are right. The reason behind the problem is there are some extra spaces within the D column where unique city names are stored. So, remove these extra spaces for the formula to work properly. You can also improve the formula by involving the TRIM function. Don't worry! We have solved your problem; please check the following: www.exceldemy.com/wp-content/uploads/2024/06/Use-TEXTJOIN-Formula-to-Return-Value-in-Another-Cell-If-a-Cell-Has-a-Text-from-a-List.gif Improved Excel Formula: =TEXTJOIN(",",TRUE,IF(COUNTIF(A2,"*"&TRIM(D$2:D$4)&"*"),TRIM($D$2:$D$4),"")) You can download the solution workbook: www.exceldemy.com/wp-content/uploads/2024/06/Megan-Griffitt-SOLVED.xlsx
@MeganGriffitt20 күн бұрын
@@exceldemy2006 I can't tell you how much I appreciate this!! Thank you so much! :D
@MeganGriffitt20 күн бұрын
I hate to take more of your time but I have one more hangup... If the Unique Cities have 2 or 3 words in the City Name, like "LAS VEGAS", or "KING OF PRUSSIA", would that render this formula not able to work given the spaces needed in the city names?
@exceldemy200618 күн бұрын
@@MeganGriffitt Dear, Thanks for your kind words! You are very welcome. Your appreciation means a lot to us. If the Unique Cities have two or three words in the City Name, like "LAS VEGAS" or "KING OF PRUSSIA", it will not affect the functionality of the previously given formula; it will still work perfectly. Please check the following: www.exceldemy.com/wp-content/uploads/2024/06/Use-TEXTJOIN-Formula-to-Return-Value-in-Another-Cell-If-a-Cell-Has-a-Text-from-a-List-1.gif
@MeganGriffitt16 күн бұрын
@@exceldemy2006 You are the absolute best! I am so sorry as I'd forgotten to expand my range in Column D accordingly. Thank you so much!!
@kathrynbauer864123 күн бұрын
Seemed easy to follow until i noticed that he added underscores to the NAMES and not others? I'm not a coder just trying to get a functional form.. how do i get your code to copy and paste?
@exceldemy200622 күн бұрын
Hello @kathrynbauer8641, You can get the code from the article, link is given in the description. I'm attaching it here too: www.exceldemy.com/how-to-create-a-database-in-excel-with-pictures/ Here is the VBA code: Option Explicit: Dim database As Worksheet Dim imagePath As Variant Dim db_range As String Dim r As Long 'representing first empty row from the top Public Function lastRow(ws As Worksheet) As Long lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row End Function Private Sub UserForm_Activate() Set database = Worksheets("Sheet1") r = lastRow(database) + 1 db_range = "A1:G" & r End Sub Private Sub cmdSave_Click() On Error Resume Next r = lastRow(database) + 1 database.Range("A1").Cells(r, 1) = Database_Entry_Form.txtEmpNo.Value database.Range("A1").Cells(r, 2) = Database_Entry_Form.txtEmpName.Value database.Range("A1").Cells(r, 3) = Database_Entry_Form.txt_Add.Value database.Range("A1").Cells(r, 4) = Database_Entry_Form.txt_Tel.Value database.Range("A1").Cells(r, 5) = Database_Entry_Form.txt_Designation.Value database.Range("A1").Cells(r, 6) = Database_Entry_Form.txt_DOB.Value If (IsNull(img_Emp.Picture)) Then 'do nothing Else Dim selectedCell As Range Dim imgHeight As Long Dim imgWidth As Long Dim imgRatio As Double Dim img As Shape 'get selected cell Set selectedCell = database.Range("A1").Cells(r, 7) 'get image height and width imgHeight = img_Emp.Picture.Height imgWidth = img_Emp.Picture.Width 'resize image height to 40 while maintaining aspect ratio imgRatio = imgHeight / imgWidth imgHeight = 40 imgWidth = imgHeight / imgRatio 'set row height of selected cell to match image height selectedCell.EntireRow.RowHeight = imgHeight + 5 selectedCell.HorizontalAlignment = xlCenter selectedCell.VerticalAlignment = xlCenter 'insert image in selected cell Set img = ActiveSheet.Shapes.AddPicture(Filename:=imagePath, _ LinkToFile:=msoFalse, _ SaveWithDocument:=msoTrue, _ Left:=selectedCell.Left + (selectedCell.Width - imgWidth) / 2, _ Top:=selectedCell.Top + (selectedCell.Height - imgHeight) / 2, _ Width:=imgWidth, _ Height:=imgHeight) img.Name = "Pic" & Database_Entry_Form.txtEmpNo.Value End If Call ExtendNamedRange End Sub Regards ExcelDemy
@kyoshiiiii_23 күн бұрын
Hello! Thanks for this helpful tutorial. Will the summary table on the first method auto updates when you make changes on the main table?
@exceldemy200623 күн бұрын
Hello kyoshiiiii, The first method won't auto-update when you make changes on the main table. To auto update the summary table based on any changes on the main table you need to change the Named Range of Book_Name. If you select the whole column as a range. Then if you enter new rows or values it will auto update the summary table. You can use this range: ='Advanced Filter, SUMIF Function'!$B$5:$B Regards ExcelDemy
@kyoshiiiii_23 күн бұрын
@@exceldemy2006 working now, TYSM!
@exceldemy200622 күн бұрын
You are most welcome. Please stay connected with us.
@andiabsher81424 күн бұрын
I should have asked by question different. Can this also be used in a table. Meaning, I have a data table and I want to be able to use this option to fill in each cell in a column for the , does this make sense?
@exceldemy200623 күн бұрын
Dear, Thanks for your questions! The answer is YES. You can use the multiple-selection drop-down within a table. Please check the following: www.exceldemy.com/wp-content/uploads/2024/06/Multiple-selection-drop-down-in-a-table.gif All you need to do is to put the following code in the sheet module. Excel VBA Event Procedure: Private Sub Worksheet_Change(ByVal Target As Range) Dim dropdownRange As Range Set dropdownRange = Me.Range("E:E") Dim old_val As String Dim new_val As String Application.EnableEvents = True On Error GoTo Exitsub If Not Intersect(Target, dropdownRange) Is Nothing Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False new_val = Target.Value Application.Undo old_val = Target.Value If old_val = "" Then Target.Value = new_val Else If InStr(1, old_val, new_val) = 0 Then Target.Value = old_val & ", " & new_val Else: Target.Value = old_val End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub You can download the solution workbook: www.exceldemy.com/wp-content/uploads/2024/06/Andi-Absher-SOLVED.xlsm
@andiabsher81417 күн бұрын
@@exceldemy2006 Thank you so much for your continued support. this definitely fixed what I was trying to do 1. I cannot deselect data in the cell without starting all over. I know you had done that with the form option, can we add it to the table option. also, I changed the script just a bit because it was interfering with my ability to change the column heading. I changed "E:E" to $E$4:$E$11 so that when rows are added to the table everything still works? (Makes sense?) Thank you again for your continued support.
@exceldemy200616 күн бұрын
@@andiabsher814 Dear, Thanks for your kind words! Your appreciation truly means a lot to us. You are very welcome. You want a way to deselect data from the drop-down similar to how it was added. Thanks once again for sharing such a practical aspect. We have improved the event procedure (given earlier) to overcome the problem. Also, it perfectly makes sense how you handled not allowing the heading to be changed. We have integrated your idea as well. Please check the following: www.exceldemy.com/wp-content/uploads/2024/06/Selecting-and-Deselecting-Multiple-Unique-Options.gif You can download the solution workbook: www.exceldemy.com/wp-content/uploads/2024/06/Andi-Absher-SOLVED-1.xlsm Improved Excel VBA Event Procedure: Private Sub Worksheet_Change(ByVal Target As Range) Dim dropdownRange As Range Dim old_val As String Dim new_val As String Dim updated_val As String Dim pos As Integer Set dropdownRange = Me.Range("$E$4:$E$11") Application.EnableEvents = True On Error GoTo Exitsub If Not Intersect(Target, dropdownRange) Is Nothing Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else If Target.Value = "" Then GoTo Exitsub Application.EnableEvents = False new_val = Target.Value Application.Undo old_val = Target.Value If old_val = "" Then Target.Value = new_val Else pos = InStr(1, old_val, new_val) If pos = 0 Then Target.Value = old_val & ", " & new_val Else If pos > 1 Then updated_val = Left(old_val, pos - 2) & Mid(old_val, pos + Len(new_val) + 1) Else updated_val = Mid(old_val, pos + Len(new_val) + 2) End If If Left(updated_val, 2) = ", " Then updated_val = Mid(updated_val, 3) ElseIf Right(updated_val, 1) = "," Then updated_val = Left(updated_val, Len(updated_val) - 1) End If Target.Value = updated_val End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub
@jigsawjonny24 күн бұрын
Thank you!
@exceldemy200623 күн бұрын
You're welcome!
@HarpHallmuseum24 күн бұрын
Nice visualization
@exceldemy200623 күн бұрын
Dear, Thanks for the compliment!
@BoxCarWillieC2CBUTTERFIE-nw8pj25 күн бұрын
Finally Got PP to work. I have been working with "append" tables. This is so much easier. TY. I need the calculation option.
@exceldemy200623 күн бұрын
Dear, Thanks for your questions! We are glad to hear that you finally got Power Pivot working. This video focuses on creating data models using relationships between tables. However, depending on your goal, you can use DAX formulas within Power Pivot to create calculated columns or measures after appending your data.
@darlingtons.kolleh340025 күн бұрын
You are very excellent.
@exceldemy200624 күн бұрын
Many many thanks
@darlingtons.kolleh340025 күн бұрын
Thank you so much.
@exceldemy200624 күн бұрын
You're welcome!
@SuperVikas4525 күн бұрын
Can I generate seperate xml files for each data
@exceldemy200624 күн бұрын
Dear, Thanks for your query! The answer is YES. You generate separate XML files for each data set. To do so, we have developed an Excel VBA Sub-procedure to generate an XML file for each cell in UsedRange. You can download the workbook used to solve your problem: www.exceldemy.com/wp-content/uploads/2024/06/Vikas-SOLVED.xlsm Excel VBA Sub-procedure: Sub WorkingOnXML() Dim ws As Worksheet Dim lastRow, lastColumn As Long Dim xmlData, xmlLine As String Dim fileName As String Dim xmlFile As Integer Dim dataRow As Long, col As Long Dim cell As Range Dim xmlCounter As Long Set ws = ThisWorkbook.Sheets("Sheet1") Application.DisplayAlerts = False xmlCounter = 1 For Each cell In ws.usedRange xmlData = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" xmlData = xmlData & "<XML-File xmlns:xsi=""www.w3.org/2001/XMLSchema-instance"">" xmlLine = "<Data>" xmlLine = xmlLine & "<Value>" & cell.Value & "</Value>" xmlLine = xmlLine & "</Data>" xmlData = xmlData & xmlLine xmlData = xmlData & "</XML-File>" fileName = ThisWorkbook.Path & "\XML" & xmlCounter & ".xml" On Error Resume Next Kill fileName On Error GoTo 0 xmlFile = FreeFile Open fileName For Output As xmlFile Print #xmlFile, xmlData Close xmlFile xmlCounter = xmlCounter + 1 Next cell Application.DisplayAlerts = True End Sub
@cholliday25 күн бұрын
Very informative
@exceldemy200625 күн бұрын
Hello @cholliday, You are most welcome. Please stay connected with us. Regards ExcelDemy
@DequanHarrison26 күн бұрын
I understand the use case for using power query for automation. But, what are the advantages and disadvantages of using Relationship tool vs PowerPivot.
@exceldemy200625 күн бұрын
Hello @DequanHarrison, In the video, we skipped the theory part, sorry for that. Here are the advantages and disadvantages of using the Relationship tool vs. PowerPivot in Excel: Relationship Tool: Advantages: 1. Simple for linking tables. 2. Suitable for simple data models without complex calculations. Disadvantages: 1. Lacks advanced features for complex data analysis. 2. May not efficiently handle large datasets or complex queries. PowerPivot: Advantages: 1. Supports complex calculations, measures, and KPIs. 2. Optimized for large datasets and complex models. Disadvantages: 1. Requires more advanced knowledge to use effectively. 2. Needs the PowerPivot add-on, which might not be available in all Excel versions. Regards ExcelDemy
@BoxCarWillieC2CBUTTERFIE-nw8pj25 күн бұрын
Is PP closer to PowerBI ? @@exceldemy2006
@BoxCarWillieC2CBUTTERFIE-nw8pj25 күн бұрын
Can you create simple video on working with calculations on tables with PP?@@exceldemy2006
@exceldemy200623 күн бұрын
Dear, Thanks for your queries! Yes, Power Pivot is similar to Power BI. Both use the same core technology. However, Power BI is more advanced for making interactive reports and dashboards. If you know Power Pivot, Power BI will feel familiar and more powerful.
@enamulhaque63026 күн бұрын
Say i have 6 data and need to check whether these data is normally distribution or not. How can i check?
@exceldemy200624 күн бұрын
Dear, Thanks for your questions! First, calculate the average and standard deviation to check if your 6 data points are normally distributed. For this, you can use the AVERAGE and STDEV.P functions. Later, you can calculate the normal distribution values using the formula: =NORM.DIST(Data_Point, Mean, Standard_Deviation, FALSE) Lastly, you can apply the empirical rule (68-95-99.7 rule). If your data points follow the 68-95-99.7 rule, you can say that your data are likely normally distributed.