Recent content by 03021979

The object I would like to paste data is MailItem created by: Set ol = CreateObject("Outlook.Application") Set MailItem = ol.CreateItem(olMailItem) Unfortunalety, this method isn't working for e-mails.

Runtime error appears at: MailItem.SetFocus :(

I don't know where to put it exactly :( Set ol = CreateObject("Outlook.Application") Set MailItem = ol.CreateItem(olMailItem) With MailItem .To = "Angelika.Bogumil@thomson.net" .CC = "Tomasz.Skura@thomson.net" '.To = "Danuta.Pawlowska@thomson.net" '.CC =...

Thanks! I already knew this solution but I want the data to be pasted exactly as they are in the sheet, i.e. borders, fonts so I mean to paste 'screenshot' from the certain cell range.

I have a code to send en email: Application.DisplayAlerts = False Set ol = CreateObject("Outlook.Application") Set MailItem = ol.CreateItem(olMailItem) My_File1 = "C:\aaa.txt" Dim Msg As Variant ThisRecipient = "Tomasz.Skura@thomson.net" Msg = "Witam," & Chr(10) & Chr(13) & "Nast?puj?ce...

I know it know! ActiveCell.NumberFormat :)

I need to write VB code to determine the format of a certain cell and display it with MSGBOX. Anybody?

but I need to have it as a VB macro because I need to switch through all values in this autofilter and print a sheet with each autofilter criteria...

Let's assume that a certain range is with autofilter option on. There can be many values (the number of these values may change). How to write a code to go through each value in this autofilter?

many thanks! I will see it tomorrow as I have to check it in my company! :)

there is no possibility to have the same SO and CODE_ID so there is no problem!

vongrunt: what is "min" in your query for?

does each value of ID exist? Each from 1 to 3000000...

SQl Denis: I wrote that we could assume we have only two value to be easier. CODE_ID my have values from 1 to 25 (each value is a separate text comment line). But only the first two lines are concerned.

For some reason code_id can have 25 values :)