Wednesday, December 30, 2015

Excel VBA AutoFit Method

Setting  The Width Of Columns According To The Cell Content

The Life-Saving Excel Feature You Probably Didn’t Notice.

Owing to code, Excel automatically adjusts the width of a column to accommodate the width of the text that takes up the most horizantal space in each row :

" Columns(Target.Column).AutoFit  "


Tuesday, December 29, 2015

Daily Sales Report

Personnel Based Daily Sales Report Template

        In this template ago ,we entered the amount of products sold by each personel. Then we created a separate page for each personnel with “Report” button .In this way,we can add every day to their own pages the amount of products sold by each personnel.

If you want to delete this report pages, can be deleted with “Delete Pages Report” button.Also we added a Combobox for to select the pages by easily.


Sunday, December 27, 2015

Use Calendar Control To Fill In Dates

Adding Date Easily With Calendar Control

       In our template, the date column is Column I (column 9).
If you select a cell in the Column I, the calendar will popup and when you click on the calendar the date will be placed in the active cell.

If you select a cell outside the Column I the calendar will disappear.


To appear and to hide of the "calendar control" is provided with Vba Codes :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
    Case Is = 9                         'Column No
        Sheets("Data1").Calendar1.Visible = True
        evnsatırı = ActiveWindow.ScrollRow
            For i = 1 To evnsatırı
            evngelbenimle = evngelbenimle + Cells(i, 1).Height
            Next i
 ActiveSheet.Shapes("Calendar1").Left = 490                'Left Margin
ActiveSheet.Shapes("Calendar1").Top = evngelbenimle - 12  'Top Margin
Case Else
Sheets("Data1").Calendar1.Visible = False
End Select
End Sub


Friday, December 25, 2015

Yearly Planner Spreadsheet - Agenda

A Yearly Calendar With Multi Line Cells To Store Your Notes

            Create Yearly Planning Spreadsheet İn Your Own Language.

When you click the button on the page , before inputbox opens to learn if you want to create a calendar which year. Wanted year's calendar is created. The language of your system is used when preparing  yearly .

            Twelve sheets are created for each month.
In column A in these pages,  days of the month are listed as day name and date of day.
For instance ; Mon 11.01.2016

            Hours of day are added as column heads.Data can be entered into cells as multiple lines  .
For this ,I added "WrapText = True" feature to codes.


Tuesday, December 22, 2015

Create A Picture From Cells

Creating Image From Selected Cells And Saving

        An image is created  from selected cell or cells. Generated images are saved to the  in the same  location with workbook.

Image names are checked and each recorded image is saved with a different name.
For example : myimage1.jpg,myimage2.jpg



myimage1.jpg

Sunday, December 20, 2015

Listbox Selection Methods And Copying Of Selected Data

Copy /Transfer Selected Rows Of Multiselect And Multi Column Listbox To Range Of Cells On Sheet 
- Single Item Selecting

- Multiple Items Selecting

- Multiple Selection By Pressing Ctrl And Shift

          In the page  searchable with the userform.

Items selected by the above methods are copied to other page (SeletctedData)

The first blank cell in  column A is selected while transferring .The border is drawn under of transfered data.



Thursday, December 17, 2015

Frame Effect

Frame Lengthening And Shortening Effect With Buttons

The loops were used  purpose of lengthening / shortening frame ,stopping operation.

For instance :

Private Sub CommandButton1_Click()
Dim i As Double
Cancel = False
i = Frame1.Height
    Do
        i = i + 0.015
        Frame1.Height = i
                 If Cancel Then
                Exit Do
            End If
        DoEvents
        Loop Until Frame1.Height >= 276
End Sub



Sunday, December 13, 2015

Create A New Book From Selected Pages

Create A New WorkBook From Selected Sheets On Userform -  Listbox Drag & Drop Event

       We put 3 list boxes on the userform.We added pages’ name of a book in the first listbox .
When clicked the page names in the listbox , content of the pages are displayed in another listbox (listbox3).

       To create a new book from selected pages, ago we drag page names from listbox(listbox1) to other listbox(listbox3) and we drop (listbox drag & drop) . Later when  we press the button , a new book is formed.



Also we created a popup menu that working on the listbox3  .


Tuesday, December 8, 2015

Simple Userform With Picture

Excel Simple Userform With Picture

         Simple userform with next and previous record displaying command buttons including picture displays.
Important point is that ,names of the pictures with names of people in column A are same.

If recording do not have picture ,"No Picture" (nopic.jpg) is displayed.


Monday, December 7, 2015

Price Quote Template

Price Quote Form Containing Image

          When product code is selected from combo boxes in Column B , product description, product image and product price are automatically assigned to the relevant cells.

I did not use Vba Codes in this template.Only I used formulas.



To delete data,  only  "-" you need to add into cell in column B.

Sunday, December 6, 2015

Excel Vba Game

To Reveal Colors Or Couples 

      Reveal colors or couples, to find pairs with as few tries as possible.Double click with  your mouse to reveal colors or couples within the black cell

Once found, pairs stay visible!

Level of the game can be selected with Level toolbar.So that ,new rows and columns  can be added to game.