M. Excel can automatically save a worksheet in PDF format. However, this part of the code can also be used for other automated processes, especially if you want to attach it into outlook.

PDF Macro1: export the whole active sheet in PDF; you just need to select a destination. Click Here

PDF Macro2: After selecting a destination and a range, you will be able to save it in PDF format.

'PDF programas
Option Explicit
Dim filepath As String
'----------------------
Sub PDF_V1()
'select_folder
path
  'give a name to the pdf file
Dim name As String 'Name of the pdf file
name = InputBox("Please type the PDF name")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        filepath & "\" & name & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
End Sub
'----------------------------
Sub PDF_V2()
'select_folder
path
Dim myRange As Range
Dim name As String 'Name of the pdf file
'    On Error Resume Next
Set myRange = Application.InputBox(Prompt:="Please select range", Title:="Range", Type:=8)
name = InputBox("Please type the PDF name")
myRange.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        filepath & "\" & name & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
     
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
End Sub
'-------------------------------
Sub path()
'routine to select the folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Select a location for the backup."
        .Show
        If .SelectedItems.count = 0 Then
            MsgBox "Canceled"
        Else
        filepath = .SelectedItems(1)
           ' MsgBox .SelectedItems(1)
           ' MsgBox "Este es el escogido: " & filepath
             
        End If
    End With
End Sub

Word finder

Word finder, is a macro similar Excel CTRL+F tool, with the difference that I will be able to make any operation to the word that I need to find, instead of just replacing it:

Option Explicit
Dim count_string
Dim j As Integer 'para insertar valores en el array
Dim space() As Integer
Dim words() As String
Dim count As Integer
Dim blanks As Integer
Dim word 'this variable is to save the word that the user will typo
'---------------------
Sub word_finder()
'1st delete unnecesary space and save in a avariable the length
'phrase = "  Hola mundo fabian manzano calvetirijillo "
Dim phrase As String 'frase
Dim c
Dim myRange As Range
Set myRange = Application.InputBox(Prompt:="Please select range", Title:="Escoja el rango", Type:=8)
word = InputBox("Porfavor escaja la letra")
If word = "" Or word = " " Then
    MsgBox ("No hubo seleccion")
    Exit Sub
End If
For Each c In myRange
    phrase = c.Formula
    phrase = Trim(phrase)
    count_string = Len(phrase)
    blank_space_array (phrase) ' in order to redim space array
    ReDim space(0 To blanks)
    fill_space_array (phrase) 'fill array with the values
'    ReDim words(1 To j) 'this array is to save the words in the field in order to compare
    Dim x As Integer
    Dim length As Integer
    Dim compare As String
    'the first time is different, them i have to add an extra otherwise the word has a space before
    Dim a, b As Integer 'the position of the spaces in the phrase
    x = 0
    For j = 1 To j
        length = space(x + 1) - space(x)
        compare = Mid(phrase, space(x), length)
        compare = Trim(compare)
         
      '  MsgBox "Esta es la funcion: " & compare & "Y esta es la palabra a buscar: " & word
        If compare = word Then
            MsgBox "palabra encontrada"
            c.Interior.ColorIndex = 3
            Exit For
        Else
        x = x + 1
        End If
    Next j
Next
End Sub
'--------------------------------
Sub select_word()
word = InputBox("Porfavor escaja la letra")
If word = "" Or word = " " Then
    MsgBox ("No hubo seleccion")
    Exit Sub
End If
End Sub
Sub blank_space_array(ByVal phrase)
'determine how many spaces I have, i will add to the total 2 more for the 1 letter and the total of character of string
Dim i As Integer 'para el ciclo
j = 0
i = 0
count = 1
For i = 1 To count_string - 1
    count = InStr(count, phrase, " ")
        If count = 0 Then
            Exit For
        Else
            count = count + 1
            j = j + 1
        End If
Next i
blanks = j + 2
End Sub
Sub fill_space_array(ByVal phrase)
'fill the array i need to add also in order to do the first and the last character
Dim i As Integer 'para el ciclo
space(0) = 1 'this calue is in order to make easy the rest to get the words
j = 1
i = 0
count = 1
For i = 1 To count_string - 1
    count = InStr(count, phrase, " ")
        If count = 0 Then
            Exit For
        Else
            space(j) = count
            count = count + 1
            j = j + 1
        End If
Next i
space(j) = Len(phrase) + 1
End Sub

 

In order to keep up to date with the latest technologies and standard for web development, I decide to implement twitter Bootstrap Framework for my templates and Joomla as a CMS.

You can see an example of these two tools in the following link:

Http://www.tbaa.com.au

Also you can an example in the thumbnails below, of the display of this website in a smartphone.

responsive website with bootstrap and joomla responsive website with bootstrap and joomla