AllExperts > Visual Basic 
Search      
Visual Basic
Volunteer
Answers to thousands of questions
 Home · More Visual Basic Questions · Answer Library  · Encyclopedia ·
More Visual Basic Answers
Question Library

Ask a question about Visual Basic
Volunteer
Experts of the Month
Expert Login

Awards

About Us
Tell friends
Link to Us
Disclaimer

 
 
 
 
About Ravindra
Expertise
visual basic application programming from design to access information, sql, engineering and commercial applications. access databases, excel.(VB6) basic questions in vb 2008. Optional: 1)a large number of people want me to do work which takes some time and effort. can do projects in vb 2008. Pl.note that i would like to be paid for such work. 2) if you want me to spend quality time and do special work, i expect to be paid a reasonable price for my time. 3) if you are pleased with my reply you could consider a donation of 1$. 4) you can visit my website http://ravindra.coolpage.biz

Experience

Education/Credentials
engineering, management degrees.

Past/Present Clients
project work for a Norway company,USA company and a Canadian company completed. Freelance Project work and Teaching. helping programmers with their work
teaching vb

 
   

You are here:  Experts > Computing/Technology > Basic > Visual Basic > Programming User Form

Visual Basic - Programming User Form


Expert: Ravindra - 10/26/2009

Question
Hi Ravindra,

My Knowledge is very limited.

I have a user from set up and want it to get information from a sheet called "datadase". I have the below code but i can't get it to display the information in the Cell range on the user for.
Not sure what i am doing wrong

Private Sub PPMB1()
   UserForm1.Show
   TextBox1 = Worksheets("Database").Range("A4")
   TextBox2 = Worksheets("Database").Range("B4")
   TextBox3 = Worksheets("Database").Range("S4")
End Sub


Thanks in Advance
Mark


Answer
for this the excel sheet needs to be open
then you can put this code with changes as required

create a macro called say Macro1
and add this code

Sub Macro1()

UserForm1.TextBox1 = ActiveSheet.Cells(1, 1)
UserForm1.TextBox2 = ActiveSheet.Cells(1, 2)
UserForm1.TextBox3 = ActiveSheet.Cells(1, 3)
UserForm1.Show

End Sub


run the macro from an icon on toolbar

Ask a Question


 
User Agreement | Privacy Policy | Kids' Privacy Policy | Help
Copyright  © 2008 About, Inc. AllExperts, AllExperts.com, and About.com are registered trademarks of About, Inc. All rights reserved.