Posts by jonny

Re: Autofilter By Criteria

Thank you friends.

I have some table with data.
I need to filter the data by criteria "inactive" in column B and then to delete all rows that fit criteria condition.

The code is following:

Sub Macro1()
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Selection.AutoFilter
    Range("B2").Select
    Selection.AutoFilter Field:=2, Criteria1:="Inactive"
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlUp
End Sub

I understand that next row must be variable?

Range("A2").Select

May anybody to help.
Thanks in advance.

Re: Converting *.frm or *.bas to *exe

To use the "windows form" without entering to Excel

How I can to convert *.frm format that I exported from Excel to executable file.
Thanks

Re: Available Fields are Empty

I tried but it doesn't solve the problem

I have built some tables and now try to build a form by using the wizard In Form Wizard combo box appear my tables, but "Available Fields" are Empty,
What is the problem

P.S. In northwind.mdb the same problem.

Thanks

I have number of macros that activate the same user form.
How to return the value from this user from back to module?

Thanks in advance

I have custom toolbar with my macros. I saved the macros file in "XLA" format. The question is how to save the ICONS on my own toolbar.

Thanks

Saving Custom Macros Icons

I have custom toolbar with my macros. I saved the macros file in "XLA" format. The question is how to save the ICONS on toolbar.

Thanks

Maybe this type of a question already asked in this forum, but I have not found it.
The question is following:
I use GetOpenFilename dialogbox and it always opening with a default folder, is any way to change it to another folder.

Thanks

Help me to write "If contains" user defined function, that gets character and returns true/false if it appears in a cell.

Thanks

Re: CreateItemFromTemplate

Yep, I just changed ".body" to ".HTMLbody", cause I have autosignature.

May you help me with another issue?
I want to make rule that automatically will put "from" names of each arrived e-mail to m personal distribution list.
I am not sure that I can do it in "Rule Wizard", so maybe any VBA code.

I want to make rule that automatically will put "from" names of each arrived e-mail to m personal distribution list.
I am not sure that I can do it in "Rule Wizard", so maybe any VBA code.

Thanks

Re: CreateItemFromTemplate

Dear Norie.
That's all?!

Thanks a lot

Re: CreateItemFromTemplate

You're right. This is actually the reason, so what the way to add to each e-amil different person name and to continue to use the template.

Re: CreateItemFromTemplate

Sub letter()


    '   sending e-mails to multiple recipients with template


    Dim olApp As Outlook.Application
    Dim olMail As MailItem


    Set olApp = New Outlook.Application


    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select


    For Each rng In Selection
        Set olMail = olApp.CreateItemFromTemplate("C:\letter.oft")
        With olMail
            .To = rng.Offset(0, 1) & " [" & rng.Offset(0, 2) & "]"
            .Subject = rng.Offset(0, 0) & " letter"
 '          .Body = rng.Offset(0, 1)  & ", Hi"
            .Display
        End With
    Next rng
End Sub

See the row of ".body", this row cancel "CreateItemFromTemplate" row.

I send an e-mail from Excel to multiple recepients using method CreateItemFromTemplate, but I need to add also the recepient name from Excel.
It doesn't work together.

Any suggestion to do it?

Thanks

Re: Error 52 "Bad file name or number"

Thank you, Derk.

Re: Error 52 "Bad file name or number"

Derk, attached the printscreen of Error message.
Error cell contains value "SAMSUNGCL10B105KANC"
Strange that the cells before it with the same format work ok, for example the cell that contains "SAMSUNGCL10B104JONC" did not give the problem.

Re: Error 52 "Bad file name or number"

Derk , may you help to add code to throw exeption to show the requested cell. Sorry for inconvenience.