Wednesday, January 25, 2017

Excel Vba Games

Fun Games Created With Excel VBA Codes

There are three games in three separate workboks:
  1. Tetris
  2. Find Matches
  3. Rocket

Thursday, January 19, 2017

Parsing Data Into Multiple Worksheets With Drop-Down Lists

     
         In this study, the row is copied to the sheet (e.g On_hire sheet) according to the value selected from the drop-down list in column H, and the row is deleted.

The following steps have been taken for data parsing into multiple sheets :
- "Options" name is defined for Range("J1:J3")

- Drop-down lists is created in Column H using Data Validation - List Method. The name we defined is entered to the "Source" section.

- The macro codes are added to Worksheet_Change Function in Vbe window :
"Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Column = 8 Then
For i = 5 To Me.Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, "H").Value = "On hire" Then
        Rows(i).Copy
        Sheets("On_hire").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        Rows(i).Delete
        i = i - 1
    ElseIf Cells(i, "H").Value = "Off hire" Then
        Rows(i).Copy
        Sheets("Off_hire").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        Rows(i).Delete
        i = i - 1
ElseIf Cells(i, "H").Value = "On sales" Then
        Rows(i).Copy
        Sheets("On_sales").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        Rows(i).Delete
        i = i - 1
End If
Next i
End If
End Sub"

excel parsing data

Saturday, January 14, 2017

Search The Matching Data Within Entire Workbook

          When the cell that to be searched is double-clicked , immediate search process is performed. Userform is loaded and  the matching cells  can be seen as page name and cell address on the userform.

 User can adapt this template to your own file. For this, follow the instructions below :
     - Open your own file
     - Press Alt+F11 keys and open VBE Window
     - In left side of VBE window, drag - drop the userform in the template to your own workbook
     - Copy the code in the ThisWorkBook field and paste it into this section of your own file.

search matching data

Monday, January 9, 2017

Employee Database With Images

         In the template, the employee information is entered into columns in the first sheet.On the other sheet,the recorded entries can be displayed in rows (vertically) in a column .
         We added a listbox, textbox, spinbutton to the report sheet. When this page is active, the names of the employees  are populated to listbox :
"lrow = Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row
  ListBox1.List = Sheets("Data").Range("B2:B" & lrow).Value “


          If item of listbox is clicked, the employee's informations are displayed on rows in the sheet (e.g employee’s image,staff no, job title, date of employment).With spinbutton can be navigated between items of the listbox ,any value can be searched with textbox.