Thursday, 27 February 2020

How to Blur Selected Area in Image (online)


1. Visit this Website "https://www3.lunapic.com/editor/"

2.  Then Upload Image


3. Then Under Draw Option, Select " Blur a face"



4. Then Select Area where you want to blur.



5. Done







How to Generate Transport or Delivery Challan E-Way Bill (Without Tax)


1. First =>Login on your Account of GST "https://ewaybillgst.gov.in/login.aspx"

2. Second=> Under e-Way bill option Click on "Generate New"


3. Third => Under e-Way bill option Click on "Generate New"

4. Fourth => Under subtype Option Select "Other" Option and Fill "Delivery Challan"

5. Fifth =>  Under Document Type Select "Delivery Challan"


6. Sixth => Fill the item details. After filling the amount of the product. Select IGST "0%".




7. Seventh=> Submit the E-Way Bill.





How to Insert the Degree Symbol in MS Word?


1. First of open Word File then Select where you want to place the degree sign

2. Second While holding down the Alt key, use the keypad to type “0176.” Release the Alt key, and the degree sign will appear.

3. Or you can copy directly below & Paste on your word file.


                 °



4. Done


Sunday, 22 December 2019

How to compress Multiple Folders to Separate Archive (RAR)



1. First of all You need winrar Software.

2. Second Select the Multiple Folder which you want to Compress to Separate Archive

3. Then go to File Tab and Select "Put each file to separate archive".



4. Done

How to Deleting rows containing bold text in Excel



1.  First open VBS (Alt + F11)

2. Then Select Sheet and Paste Below Code 


3. Last Step Run Macro (F5).

4. That's it.


Sub del_rows_with_bold()
   ' David McRitchie, 2005-09-01
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim Rcnt As Long, Ccnt As Long, r As Long, c As Long
    Dim CurrCell As Range
    On Error Resume Next
    Rcnt = Cells.SpecialCells(xlLastCell).Row
    Ccnt = Cells.SpecialCells(xlLastCell).Column
    '-- check up to row 2 from the bottom
    For r = Rcnt To 2 Step -1
       '-- check all cells on row beginning at column 1
       For c = 1 To Ccnt
         If Cells(r, c).Font.Bold And Not IsEmpty(Cells(r, c)) Then
            '-- Must be bold and have content
            Cells(r, c).EntireRow.Delete
            GoTo next_r
        End If
      Next c
next_r:
    Next r
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub