Replies

thank you to all who have taken part in trying to help me.
a “blob” was something i could not read and i related it to a blob of ink on a paper.
I have come to the conclusion that i have damaged the system and will have to re-instal windows (other thing are going wrong ) i will try to recover the system before i go whole hog and re-format my hard disc..
thanks to one and all for the help

sorry to bother you again but::
AutoRuns for Windows v8.54. is great and without any problem takes you straight to the correct poisition in regedit. trying to be clever i added the word “YES” to the load and run data. My system screamed at me and said no no no …..
should there be a value there? if so help what would it be

i have down loaded autoruns, will seee what this shows.
thank you for your help, hopefully i will be able to resolve this.

autostreamer seems to work (and is easy to use) except at the last part wher the two disc are combined. after waiting for an hour for this to happen, the last screen only showed “EXIT” not finished and nothing to show for it. what could i have done wrong????????
as i have both of these disc (windowsXP and SP2) i anm going to take your advise and trawl microsoft site for all the relevant bulletins.
If i am able to get them on to a disc i will post the results( bound to be greater than 100k). where would you suggest i post it??
thanks to all for your help.

thank you for your help , i will try this before i reformat my hard disc

pls bear with me, i have to go out to re-stock our larder after our hols, but see attachment in the meantime. once i have recovered from the journey i will look at the file again.

if you were confused so was i and i appologise for that. If the second list box was renamed listbox 3, and the properties were changed from ” LISTBOX2 To LISTBOX3″ all works out OK.
if i am correct i could have listbox1, listbox3, listbox4 ect. and drag and drop from any of the listboxes to listbox2 which in my case is great.
‘Private Sub ListBox3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ## change listbox3 or 4 or 5 or 6’Dim MyDataObject As DataObject
‘ If Button = 1 Then
‘ Set MyDataObject = New DataObject
‘ Dim Effect As Integer
‘ MyDataObject.SetText ListBox3.Value ‘############## these are the only lines which has to be changed listbox3 or 4 or 5 or 6 ################
‘ Effect = MyDataObject.StartDrag
‘End If
‘End Sub

sorry for any confusion also my delay for relying sooner is that i have had a short break.
thank you for all your trouble
alex

Superfluous empty lines removed by HansV

as you will see my way is with the two files in the same folder which works A OK for me, may be my pears could inprove on it
****************************************************************************************************************************************
Private Sub ABCDEF()
Dim Wkb As Workbook
Dim wksheet As Worksheet
Dim Path As String
Dim FName As String
Dim Pass As String
Dim Str As String
Dim LastRow As Long
Sheets(“Sheet1”).Select
Path = ThisWorkbook.Path
FName = “A.xls”
Pass = “ABC”
Sheet1.Unprotect Password:=”ABC”
Set Wkb = Workbooks.Open(Filename:=Path & “” & FName, Password:=Path)
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect “ABC”
LastRow = Wkb.Sheets(1).Range(“A65536”).End(xlUp).Row
Windows(“3aSparePartsrequestAok.xls”).Activate
Wkb.Sheets(1).Range(“A” & LastRow).Copy Destination:=Range(“A2”) ‘??Paste Location Here??
ThisWorkbook.Sheets(1).Range(“A2”).EntireRow.Copy Destination:=Wkb.Sheets(1).Range(“A” & LastRow + 1)
Windows(“3aSparePartsrequestAok.xls”).Activate
Range(“A2”).Select
Range(“A3”).Value = Range(“A2”).Value + 1
Range(“A2:A3”).Select
Selection.NumberFormat = “0”
Range(“A3”).Select
Rows(“3:3”).Select
Selection.Copy
Windows(“A.xls”).Activate
Range(“A65536”).End(xlUp).Select
ActiveSheet.Paste
Range(“A2”).Select
End If
Application.DisplayAlerts = False
ActiveSheet.Protect “ABC”
ActiveWorkbook.Save
Wkb.Close
Application.DisplayAlerts = True
Windows(“3aSparePartsrequestAok.xls”).Activate
End Sub
******************************************************************************
for all who answered my call for help THANK YOU. if my my method is of use to any one be my guest

this looks great and after perservering i have arrive at a different way.
i look foirward to comparing the two different ways , i wil reply in full tomorrow.

thank you for your help

i have a form on workbook “B” which opens workbook “A” which is protected with a password. i would like to open workbook “A” transfere the last cell in colum “A” to cell “A1” in Workbook “B”. the value of cell “A1” + 1 is then placed in cell “A2” and the row (2:2) copied back to last cell in colum “A” +1 in workbook “A”.
the workbook is then closed and the password re-instated. i am using worksheet 1 in both workbooks

thank you for your quick response. i have already looked at API and find it is leading me in circles but i will persevere . if i find anything that is of help to me i will let you know.
thank you for your help once again

i have a textbox on a form, the textbox contains some 3000 lines of which 20 lines are visible at a time. Instead of using the vertical scroll bar i would like to be able to scroll within the textbox using the mouse wheel. is this possible?

thank you for your help i have resolved the problem with your input

thank you for your help i have resolved the problem with your input

thank you for your quick respone and i hope you had a good new year

what i should have said is that i would like to select “B3:B221″and paste B2 into it. The end row can variable, how can i do this without having to know what the end row is