Member Avatar for Nischal_1

can any one give me simple data entry application code

  • 2 Contributors
  • 1 Reply
  • 46 Views
  • 5 Hours Discussion Span
  • Latest Post Latest Post by Stuugie
Member Avatar for Stuugie 
Sub SimpleDataEntryCode()

    Dim ws1 As Worksheet
    Dim EntryRng As Range
    Dim inputStr As String

    Set ws1 = Worksheets("Sheet1")
    Set EntryRng = ws1.Range("A2")
    inputStr = InputBox("Enter some data to go into A2")
    EntryRng.Value = inputStr

End Sub
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.