More Variety, Better Society

Excel VBA: Insert Picture from Directory on Cell Value Change Without Error Youtube Link : https://youtu.be/3BJaYVOy4TM Code : This Code paste in Active sheet Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim myPict As Picture Dim PictureLoc As String If Target.Address = Range("b3").Address Then ActiveSheet.Pictures.Delete PictureLoc = " PICTURE  LOCATION " & Range("b3").Text & ".jpg" With Range("g3") On Error GoTo errormessage: Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)  myPict.Height = 300  myPict.Width = 200  myPict.Top = .Top  myPict.Left = .Left myPict.Placement = xlMoveAndSize myPict.ShapeRange.LockAspectRatio = msoTrue errormessage: If Err.Number = 1004 Then MsgBox "File does not Exist, Please first update photo with .jpg File" End If End With End If Application.ScreenUpdating = True End Sub

EXCEL TRICK :  formula to convert number to words in excel 2016 PRESS : Alt + F11 Select New Modual Below code Copy paste youtube link : https://youtu.be/8pQ97mUeSwo ______________________________________________________ Function SpellIndian(ByVal MyNumber) ' ' ' ' Dim Rupees, Paise, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Lac " Place(4) = " Crore " Place(5) = " Arab " ' String representation of amount MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none DecimalPlace = InStr(MyNumber, ".") ' Convert Paise and set MyNumber to Rupee amount If DecimalPlace > 0 Then Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber ...