TEXTBOX QUICKIE
 

HI,

I HAVE A USERFORM AND ON IT I HAVE A LISTBOX, VARIOUS BUTTONS AND A
TEXTBOX. WHEN I CLICK ON A ROW IN THE LISTBOX THE FIRST DATA IN THE
ROW APPEARS IN MY TEXT BOX. I DO THIS BY COPYING THE CONTROL SOURCE OF
THE LISTBOX AND PASTING IT TO THE CONTROL SOURCE OF THE TEXTBOX. AND IT
APPEARS BEFORE YOU EYES. I THEN WISH TO DELETE THE ROW I ON, THIS IS
NO PROBLEM, BUT THE CODE CHECKS THAT I AM STILL ON THE SAME ROW BY
CHECKING THAT THE VALUES OF THE 2 CONTROL SOURCES ARE THE SAME, IF I
HAVE CLICK ON ANOTHER ROW BY MISTAKE I CANNOT DELETE THE ROW. THE
PROGHRAM WORKS FINE BUT SOMETIME AFTER I HAVE FIRST MADE A SELECTION
FROM THE LISTBOX AND CLICK ON THE COMMAND BUTTON TO MAKE THAT APPEAR IN
MY TEXTBOX MY EXCEL FREEZES, IS THERE A BETTER WAY OF DOING THIS OR WHY
IS IT DOING THIS. SHOULD I BE UPDATING THE FORM OR SOMETHING

CODE AS FOLLOW

SUB MAKELISTBOXSELECTIONAPPEARINTEXBOX
'sheet1a1 controlsource for listbox codesl2 controlsource for textbox
worksheets("sheet1").Range("A1").Copy
Destination:=Sheets("CODES").Range("L2")

TEXTBOX QUICKIE
 

Maybe repeat your posting in regular case ? - it's impossible to read
in all caps and it's the equivalent of SHOUTING.

Tim.


wrote in message
oups.com...
HI,

I HAVE A USERFORM AND ON IT I HAVE A LISTBOX, VARIOUS BUTTONS AND A
TEXTBOX. WHEN I CLICK ON A ROW IN THE LISTBOX THE FIRST DATA IN THE
ROW APPEARS IN MY TEXT BOX. I DO THIS BY COPYING THE CONTROL SOURCE
OF
THE LISTBOX AND PASTING IT TO THE CONTROL SOURCE OF THE TEXTBOX. AND
IT
APPEARS BEFORE YOU EYES. I THEN WISH TO DELETE THE ROW I ON, THIS
IS
NO PROBLEM, BUT THE CODE CHECKS THAT I AM STILL ON THE SAME ROW BY
CHECKING THAT THE VALUES OF THE 2 CONTROL SOURCES ARE THE SAME, IF I
HAVE CLICK ON ANOTHER ROW BY MISTAKE I CANNOT DELETE THE ROW. THE
PROGHRAM WORKS FINE BUT SOMETIME AFTER I HAVE FIRST MADE A SELECTION
FROM THE LISTBOX AND CLICK ON THE COMMAND BUTTON TO MAKE THAT APPEAR
IN
MY TEXTBOX MY EXCEL FREEZES, IS THERE A BETTER WAY OF DOING THIS OR
WHY
IS IT DOING THIS. SHOULD I BE UPDATING THE FORM OR SOMETHING

CODE AS FOLLOW

SUB MAKELISTBOXSELECTIONAPPEARINTEXBOX
'sheet1a1 controlsource for listbox codesl2 controlsource for
textbox
worksheets("sheet1").Range("A1").Copy
Destination:=Sheets("CODES").Range("L2")