Posts by biz.sonia

Hi All,

I am trying to Save the workbook without the alert.

My macro is below

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ThisWorkbook.Save
'SendKeys "Y"
ThisWorkbook.Unprotect "XXX"
Sheet3.Visible = xlSheetVisible
Sheet3.Protect "XXX"
Sheet1.Unprotect "XXX"
Sheet2.Unprotect "XXX"
Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden
ThisWorkbook.Protect "XXX"
End Sub

this is my code and i have few codes in the Workbook_BeforeSave to make some changes.

Now after this i get a message "Do you want to save the Workbook."

Is there a way i can get rid of this message and save the workbook automatically.

Thanks

Re: Get Text From Listbox To Textbox

Thank for the Quick Response.

But When I Place a List Box on the Sheet - I am not able to get the Reffernce to the Same in the Macro.

It give me a run Time error - 438 "Object doesnt support this property or method.

Just to Reiterate - I have placed a List box on Sheet1. - Should I Name the List box as i am not getting an option to do that?

I am Facing one problem that is i am not able to place a textbox on the sheet as that property is disabled.

Please help.

Thanks

Is th[hr]*[/hr] Auto Merged Post Until 24 Hrs Passes;[dl]*[/dl]I am Sorry guys I worked arround it and found the Answer - Thanks a Lot.

Hi All,

I have a Set of Strings in Sheet 1 - which i pull in to a List Box on Sheet 2.

Now i have a Text Box in the same Sheet - I would like to have a macro for Text Box where when as and when i type in the Textbox i need only relevant strings to be in the Listbox.

Ex: I i have INDIA,AUSTRALIA, AFRICA, USA, INDONASIA in my listbox - as i type a letter in the text box for example "I" i need only INDIA & INDONASIA to be in the list box and as i continue typing "INDO" i should be left out with only INDONASIA.

Please help on this.

Thanks

Re: Store Array Elements In String Vertically

Thanks Andy - It worked

Hi All

I am creating a Macro where i extract strings from the sheet to an array.
Now i want this array of strings to be Concatenate to one String Variable but in different lines

For ifor = 1 To 10
    If sAssistantManagers(ifor) <> "" Then
        mAssistantManagers = mAssistantManagers & vbNewLine & sAssistantManagers(ifor)
    End If
Next

So if i have 3 strings in array 1 to 3 - Example "A" , "B' , "C"

I want the string mAssistantManagers to Have
A
B
C

This macro is a module which i use in another macro to send mail so this variable becomes the body of the email.

.to - XYZ
.body = mAssistantManager

I tried using vbNewline & vbCrlf but the output is ABC and not what i want.

Could some one help me on this please

Thanks

I am trying to create a macro for my sheet
1 - which uses rows to check a condiction

for ifor = 1 to 100
if sheet1.range("A" & ifor)<>0 then
   sheet1.range("B" & ifor)=sheet1.range("A" & ifor)
endif
next

but i am not able to do the same with colomuns
if my excel sheet has only few columns then i can write

for ifor = 65 to 90
if sheet1.range(chr(ifor) & 1)<>0 then
   sheet1.range(chr(ifor) & 2)=sheet1.range(chr(ifor) & 2)
endif
next

this works perfect till Z column but i want to do the same to all the 256 colomns. Can any one help me.

Thanks