Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
UserForm to view contents of spreadsheet
Hello all I have a userform currently that I enter data into my speadsheet with, however the spreadsheet itself is getting way too crowded and is not easily navigable by the untrained eye. Is there a way of getting a userform to show the contents of selected rows in a worksheet as in a database table-form relationship?? I have noticed another thread on this and someone mentioned a "microsoft office spreadsheet control" that can be built in to worksheets, but alas I dont think I have this add-in, or cannot find it in my installation of Excel anyway. Can anyone shed some light on the situation??? Many thanks Jon -- mushybrain ------------------------------------------------------------------------ mushybrain's Profile: http://www.excelforum.com/member.php...o&userid=19578 View this thread: http://www.excelforum.com/showthread...hreadid=345812 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
UserForm to view contents of spreadsheet
Or does anyone know if this is actually possible at all in Excel?? Help! :confused -- mushybrai ----------------------------------------------------------------------- mushybrain's Profile: http://www.excelforum.com/member.php...fo&userid=1957 View this thread: http://www.excelforum.com/showthread.php?threadid=34581 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
UserForm to view contents of spreadsheet
Hi I managed to do it with out an add-inn . what i did was link a cell an make that cell one of the text boxs values then what i did what create unique ID with this i managed to create a search engine which finds th unique ID and then changes the textboxs to the value of those cells. Sheets("Data").Visible = True Sheets("data").Select Columns("o:o").Select Id = Range("x5").Value ' i put in the following in this cel =x4&x5 Set abc = Selection.Find(What:=Id, After:=ActiveCell LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext MatchCase:= _ False) If abc Is Nothing Then Sheets("Data").Select Range("a2").Select ' finds end of data list and then inserts a new record Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveCell.Value = court.Value ActiveCell.Offset(0, 1).Value = Month.Value ActiveCell.Offset(0, 2).Value = Year.Value ActiveCell.Offset(0, 3).Value = CJHours.Value ActiveCell.Offset(0, 4).Value = DJHours.Value ActiveCell.Offset(0, 5).Value = HCHours.Value ActiveCell.Offset(0, 6).Value = THours.Value ActiveCell.Offset(0, 7).Value = MHours.Value ActiveCell.Offset(0, 8).Value = Chours.Value ActiveCell.Offset(0, 9).Value = OHours.Value ActiveCell.Offset(0, 10).Value = Total.Value ActiveCell.Offset(0, 11).Value = "Yes" Else abc.Activate CommandButton1.Enabled = False CommandButton5.Enabled = True Beep Reply = MsgBox("You have already entered in " court.Value & " for " & Month.Value & " " & Year.Value & ". Would yo like to change this information?", vbYesNo) If Reply = vbYes Then admin = InputBox("What is the Password?") If admin = "password" Then CJHours.Value = ActiveCell.Offset(0, -11).Value DJHours.Value = ActiveCell.Offset(0, -10).Value HCHours.Value = ActiveCell.Offset(0, -9).Value THours.Value = ActiveCell.Offset(0, -8).Value MHours.Value = ActiveCell.Offset(0, -7).Value Chours.Value = ActiveCell.Offset(0, -6).Value OHours.Value = ActiveCell.Offset(0, -5).Value Total.Value = ActiveCell.Offset(0, -4).Value CommandButton7.Enabled = False CommandButton10.Enabled = True Else MsgBox ("Sorry you do not have Authorisation") End If End If End If End Sub if you need any help just shout..... -- funkymonkU ----------------------------------------------------------------------- funkymonkUK's Profile: http://www.excelforum.com/member.php...fo&userid=1813 View this thread: http://www.excelforum.com/showthread.php?threadid=34581 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
spreadsheet contents have become hidden from view | Excel Discussion (Misc queries) | |||
view data into userform | Excel Programming | |||
View only UserForm? | Excel Programming | |||
MS Month View Control for use in XL Userform | Excel Programming | |||
View the data in a cell on a userform | Excel Programming |