Excel VBA Tutor

How to save workbook as a PDF using VBA.

Sub SaveWorkbookAsPDF()
Dim FilePath As String
Dim FileName As String

' Set the file path and name for the PDF file
FilePath = "C:\Your\Desired\Path\" ' Specify the desired file path
FileName = "YourFileName.pdf" ' Specify the desired file name

' Save the workbook as a PDF file
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=FilePath & FileName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False

' Display a message when the PDF file is saved
MsgBox "Workbook saved as PDF file: " & FilePath & FileName, vbInformation
End Sub

Need to automatically update the chart data sheet in PowerPoint chart using excel vba.

How to add data onto the name range dynamically.

Sub dynamicnamevalueadd()
Dim i As Integer
Dim lastrow As Long

'This will provide the lastrowcount
lastrow = Range("A" & Rows.Count).End(xlUp).Row

'Using resize will help to increase the name range
With Range("Data")
Resize(lastrow).Name = "Data"
End With
End Sub

Excel Sheet sort using bubble sort
Sub Sheet_Sort()
Dim i As Integer, j As Integer
Dim sheetname() As String
Dim ws As Worksheet
j = 1
i = Sheets.Count
ReDim sheetname(1 To i)
For Each ws In Worksheets
sheetname(j) = ws.Name
j = j + 1
Next
Call bubblesort(sheetname)
j = 1
For Each ws In Worksheets
ActiveWorkbook.Sheets(sheetname(j)).Move before:=Sheets(j)
j = j + 1
Next
End Sub

Sub bubblesort(ss() As String)
For i = LBound(ss) To UBound(ss) - 1
For j = i + 1 To UBound(ss)
If ss(i) > ss(j) Then
temp = ss(j)
ss(j) = ss(i)
ss(i) = temp
End If
Next
Next
End Sub

Feedback... :) :)

To check whether a number is a palindrome or not first we reverse it and then compare the number obtained with the original number, if both are same then the number is palindrome otherwise not. Palindrome string program.Like 16461

Below is the program for your reference.

Sub Check_palindrome()
Dim ss As String
ss = Val(Range("a1"))
For i = Len(ss) To 1 Step -1
mm = mm & Mid(ss, i, 1)
Next
If ss = mm Then
MsgBox "No is palindrome"
Else
MsgBox "No is not palindrome"
End If
End Sub

Advance filter in excel data tab.

Excel Table tutorial.

https://youtu.be/Vud7HJpGR9c

issue SQL Server 2008: How to fix Access Denied error when trying to attach Adventure Works .mdf

Home Loan Calculator by using PMT goal seek function in Excel.

Sub extracting_hyperlinks()
Dim i As Integer
Dim j As Integer
For i = 1 To 3
Cells(i, 2).Value = Cells(i, 1).Hyperlinks(1).Address
Next
End Sub