Posts by dev99

Thank you so much Ali...

Salute
Dev

Hi,

Need your help to resolve this.....

Column A has number or a word for e.g cell A1 has 1000, A2 has again 1000 ,A3 has 2000 and so on...

I need a formula in B column which will show me exactly how many times its appeared in A column, i dont need the sum count of a word or number .
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]

[TD="width: 64"]asdf[/TD]
[TD="width: 64, align: right"]1[/TD]

asdf

[TD="align: right"]2[/TD]

asdf

[TD="align: right"]3[/TD]

asdf

[TD="align: right"]4[/TD]

asdf

[TD="align: right"]5[/TD]

asasas

[TD="align: right"]1[/TD]

asasas

[TD="align: right"]2[/TD]

asasas

[TD="align: right"]3[/TD]

dev

[TD="align: right"]1[/TD]

1000

[TD="align: right"]1[/TD]

1000

[TD="align: right"]
2[/TD]

[/TABLE]

Hi Streub,

i see the in the above post no respond received to you quary on the question posted by Arputharaj,
Currently i looking for the same solution, if you permit me to continue with the same thread.

Hi, i am trying to send a email from lotus notes(version9) below mentionedcode works fine for sometime and than i received debugging error. As i new to VBA I dont know what to replace with the code for Set NUIdoc = NUIWorkSpace.EDITDocument(True, NDoc) and .GotoField ("Body").

what i want a code for pasting a picture from excel sheet (picture 5) to body of the email, without editing the body for e.g the below code does that but it first goes to body write (.) and again it goes back to body find (.) and paste the picture. i want it to be pasted in the first time itself rather rounding around.

Any help really appreciated.

Sub Notes_Email_Excel_Cells()


Dim NSession As Object
Dim NDatabase As Object
Dim NUIWorkSpace As Object
Dim NDoc As Object
Dim NUIdoc As Object


Set NSession = CreateObject("Notes.NotesSession")
Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace")
Set NDatabase = NSession.GetDatabase("", "")


If Not NDatabase.IsOpen Then
NDatabase.OPENMAIL
End If


Set NDoc = NDatabase.CreateDocument


With NDoc
.SendTo = Range("F6").Value
.CopyTo = ""
.Subject = Range("Y17").Value & " " & Now
.body = "."
.Save True, False
End With


Set NUIdoc = NUIWorkSpace.EDITDocument(True, NDoc)
With NUIdoc


.GotoField ("Body")
.FINDSTRING "."
ActiveSheet.Shapes.Range(Array("Picture 5")).Select
Selection.Copy


.Paste
Application.CutCopyMode = False


'
End With


Set NSession = Nothing


End Sub

thanks
Dev