A to Z Excel Data Entry in 2025

A to Z Excel Data Entry in 2025

Niche Data Entry Video me Use Kiya Gaya Formula

1-Serial Number ka Formula =IF(B2="","",ROW(1:1))
2-Automatic Date Entry ka Formula =IF(C2<>"",IF(B2<>"",B2,TODAY()),"")
3-Automatic Time Entry ka Formula =IF(D2<>"",IF(C2<>"",C2,NOW()),"")
4-Steps To Set Items Data Validation: - Select Items Column > Goto Data Menu > Data Tools > Click at Data Validation > Click at Any Value > Select List > Select All Items Column Written in R Column > Set Error Alert > Ok
5-To Pce Format in Qty Column: - Select Qty Column > Deselect Qty Cell > Then Press Ctrl+1 > Click Custom > Delete General > Type @ "Pcs" > Ok
6-Type Total Formula =E2*F2
7-Automatic Mobile No Insert ka Formula =XLOOKUP(H2,$T:$T,$U:$U)

Niche Picture ko Comment me Automatic Insert Krne ka code Hai

'yah Picture ko Comment me Automatic Insert Krne ka code Hai
Sub PicLelo()
    Dim cell As Range
    Dim imgPath As String
    Dim comment As comment
    Dim shp As Shape
    
    Set cell = ActiveCell
    imgPath = Application.GetOpenFilename("Image Files (*.jpg;*.jpeg;*.png), *.jpg;*.jpeg;*.png", , "Picture Ko Select Kijiye")
    If imgPath = "False" Then Exit Sub
    If Not cell.comment Is Nothing Then cell.comment.Delete
    cell.AddComment
    Set comment = cell.comment
    comment.Text Text:=" "
    comment.Shape.Width = 1.15 * 72
    comment.Shape.Height = 1.35 * 72
    Set shp = comment.Shape
    shp.Fill.UserPicture imgPath
End Sub

Niche Pure Row Data ko Print me Automatic Insert Krne w Print ka code Hai

'yah Pure Row Data ko Print me Automatic Insert Krne w Print ka code Hai
Sub PrintDataEntry()
    Dim wsData As Worksheet
    Dim wsInvoice As Worksheet
    Dim currentRow As Long
    Set wsData = ThisWorkbook.Sheets("DataEntry") ' Define Data Entry Sheet and Invoice Sheet
    Set wsInvoice = ThisWorkbook.Sheets("Billing")
    currentRow = ActiveCell.Row ' Get the active row from Data Entry Sheet
    
    wsInvoice.Range("E6").Value = wsData.Cells(currentRow, 1).Value ' Column A to E6 ' Transfer data from the current row to the Billing sheet
    wsInvoice.Range("A21").Value = wsData.Cells(currentRow, 2).Value ' Column B to E7
    wsInvoice.Range("E21").Value = wsData.Cells(currentRow, 3).Value ' Column C to E8
    wsInvoice.Range("C7").Value = wsData.Cells(currentRow, 4).Value ' Column D to E9
    wsInvoice.Range("C8").Value = wsData.Cells(currentRow, 5).Value ' Column E to E10
    wsInvoice.Range("C9").Value = wsData.Cells(currentRow, 6).Value ' Column F to E11
    wsInvoice.Range("C10").Value = wsData.Cells(currentRow, 7).Value ' Column G to E12
    wsInvoice.Range("C12").Value = wsData.Cells(currentRow, 8).Value ' Column H to E13
    wsInvoice.Range("C13").Value = wsData.Cells(currentRow, 9).Value ' Column I to E14
    wsInvoice.Range("C14").Value = wsData.Cells(currentRow, 10).Value ' Column J to E15
    wsInvoice.Range("C16").Value = wsData.Cells(currentRow, 11).Value ' Column J to E15
    wsInvoice.Range("C17").Value = wsData.Cells(currentRow, 12).Value ' Column J to E15
    wsInvoice.Range("C18").Value = wsData.Cells(currentRow, 13).Value ' Column J to E15
    wsInvoice.Range("C19").Value = wsData.Cells(currentRow, 14).Value ' Column J to E15

    wsInvoice.PrintPreview ' Show print preview and print the invoice
    wsInvoice.PrintOut Copies:=1

    wsData.Cells(currentRow, 16).Value = "Printed" ' Mark the current row as "Printed" in column P
    
    MsgBox "Invoice printed and status updated!", vbInformation ' Notify user that the print is done
End Sub

Watch Video To Create A to Z Excel Data Entry in 2025 with New Methods