How to List All Files in a Folder and Create Hyperlinks to Each File
Below VBA Code:-
Sub Example1()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder("C:\NitinVbaApp\Images\")
i = 1
For Each objFile...
How to Delete all Shape image in Excel sheet
How to Delete all Shape image in Excel sheet
----------------------------------------------------
Sub Delshape()
Dim shape As Excel.shape
For Each shape In ActiveSheet.Shapes
Select Case shape.Type
Case msoPicture, msoMedia, msoShapeTypeMixed, msoOLEControlObject, msoAutoShape
...
How to Add slide vba powerpoint | How to Delete All Slide Power point
How to Add slide vba powerpoint
Below code:-
---------------------------------------------------------------------------
Sub addppt()
Dim objPresentaion As Presentation
Set objPresentaion = ActivePresentation
Call objPresentaion.Slides.Add(1, PpSlideLayout.ppLayoutBlank)
End Sub
---------------------------------------------------------------
How...
Powerpoint slide with excel vba code
Powerpoint slide with excel vba code
below click download file click link
https://drive.google.com/open?id=1Iglclf_H-xGuzbhQDssdZ86IkVa0mz_G
Please paste code in excel vba code moudle .
please add shape in excel sheet.
below copy code
---------------------------------------------
Sub expshape()
Dim myppt As PowerPoint.Application
Set myppt = New...
How to use Triple Loop VBA Excel
How to use Triple Loop VBA Excel
Example:-1
----------------------------------------------------
Sub myTripleLoop()
Dim c As Integer, i As Integer, j As Integer
For c = 1 To 3
For i = 1 To 6
For j = 1 To 2
Worksheets(c).Cells(i, j).Value = 1700
...
How to use Double Loop VBA Excel
How to use Double Loop VBA Excel
Example:-
---------------------------------------------------
Sub myDoubleLoop()
Dim i As Integer, j As Integer
For i = 1 To 6
For j = 1 To 3
Cells(i, j).Value = 100
Next j
Next i
End Sub
--------------------------------------------------------...
For Loop Example VBA Excel
For Loop Example VBA Excel
Example 1:-
Sub myforloop()
Dim i As Integer
Dim inp As Integer
Dim Disp As Integer
Disp = InputBox("Please Enter Display Number")
inp = InputBox("Please entry number for looping")
For i = 1 To inp
Cells(i, 1).Value = Disp
Next i
End S...
List of Folders In Directory VBA Excel Code
List of Folders In Directory VBA Excel Code
Below copy code and Paste Module
-----------------------------------------------------
Sub ListFoldersInDirectory()
Dim objFSO As Object
Dim objFolders As Object
Dim objFolder As Object
Dim strDirectory As String
Dim arrFolders()...
On Error Resume Next And On Error GoTo Example of Excel VBA
On Error Resume Next And On Error GoTo Example of Excel VBA
below click for download file
https://drive.google.com/open?id=1HpUj-gBSTERFIj6tdV8FQpIrx6bmqJ_h
Below Example vba code
---------------------------------------
Sub onerrohandlingerror()
Dim rank As Integer
rank = InputBox("Enter Rank no")
On Error Resume Next
MsgBox Columns(1).Find(What:=rank).Offset(0,...
How to Extract file name from folder excel vba
How to Extract file name from folder excel vba
Please click for download file
https://drive.google.com/open?id=1HpUj-gBSTERFIj6tdV8FQpIrx6bmqJ_h
Below VBA code
-------------------------------------------------------
Sub myextrfile()
Dim n As Integer
Dim i As Integer
Dim xx As String
With Application.FileDialog(msoFileDialogOpen)
...
How to USerform - only Userform Visible not Excel Sheet
How to USerform - only Userform Visible not Excel Sheet
Please click here for download File vba.
https://drive.google.com/open?id=1twWXZ1JAGuF0nLQYqaToj--fsqba4nKW
Step1-
step 2:-
Step 3
below vba code
Private Sub SubmitB_Click()
If UsernameT.Value...
How to make excel VBA power point slide
How to make excel VBA power point slide
Click for Download file:-https://drive.google.com/file/d/1twWXZ1JAGuF0nLQYqaToj--fsqba4nKW/view?usp=sharing
Below copy code and paste excel vba module - 100% Working
--------------------------------------------------------------------------------------
Sub powerpointmyppt()
Dim ppapp As PowerPoint.Application
Dim...
