Posts by sal21

based: https://www.tuttitalia.it/banche/classifica/

i need to loop in all row in table and extract only a link where tag is "img"

for example for first bank, i need:

https://images.tuttitalia.it/b…_i_58-intesa-sanpaolo.gif

possible?

based this url: https://www.tuttitalia.it/banche/classifica/

how to get 1 and 10 from [h=1]Banche per numero di succursali (1/10)[/h]



?

Tks.

i use vba for excal

Possible?
I'm working with useform and listview1 on VBA for Excel
Tks

I need a tooltip on listview but only for column 4 and 5
possible?
Tks

I need to hide x close and not to permit from the user to move the userform from my code position....
in my case Center Screen
Tks.

I need to use recordset from ADO and Access database to fill chart in a vba userform, but with array and not to write anithing in sheet
possible?
tks

add icon in items of combobox from imalist, possible?
Tks.

Re: get the first newest date from culumn

Quote from Luke M;721830

Newest date:
=INDEX(A:A,MATCH(9E99,A:A))
2nd newsest
=INDEX(A:A,MATCH(9E99,A:A)-1)
3rd newest
=INDEX(A:A,MATCH(9E99,A:A)-2)

VBA code please?

I need, via vba code, the first newest 3 date in column D.

example:
...
31/07/2014
30/06/2014
30/05/2014
31/07/2014
30/06/2014
30/05/2014
31/07/2014
30/06/2014
30/05/2014
31/07/2014
30/06/2014
30/05/2014
31/07/2014
30/06/2014
30/05/2014
31/07/2014
30/06/2014
30/05/2014
31/07/2014
....

i need:
30/06/2014
30/05/2014
31/07/2014

Set Rng = WS1.Range("C10:C8000")

i need to set the Rng where column AM, from cell 10 to the and of list, contain the string "85", is possible without to loop all value in sheets column AM?

set CMD = New ADODB.Command
With CMD
Set .ActiveConnection = CONN
.CommandText = "ESTRAI"
.CommandType = adCmdStoredProc
Set prm = .CreateParameter("[INIZIO]", adDate, adParamInput, , CDate(DATA_RIF))
.Parameters.Append prm
Set RS = .Execute
Set CMD = Nothing
End With

i use this code to extract the rs value.

But during the loop the rs.movenext is extremly slow!!!!!

note:
the access table are on a lan dir

peraphs i need to loop a disconnected recorset?

set CMD = New ADODB.Command
With CMD
Set .ActiveConnection = CONN
.CommandText = "ESTRAI"
.CommandType = adCmdStoredProc
Set prm = .CreateParameter("[INIZIO]", adDate, adParamInput, , CDate(DATA_RIF))
.Parameters.Append prm
Set RS = .Execute
Set CMD = Nothing
End With

i use this code to extract the rs value.

But during the loop the rs.movenext is extremly slow!!!!!

note:
the access table are on a lan dir

peraphs i need to loop a disconnected recorset?

In c:\mydir\ have only a file with estention .txt.
the all files name have this structure similar:

1001_12-05-2012.txt
1003_02-11-2012.txt
1001_12-06-2012.txt
1002_11-05-2012.txt

i need to loop the files names based the first 4 digit (for example 1001, 1002, 1003...ecc) and the related date in name of file...
how to?

in my case the result of loop is:

1001_12-05-2012.txt
1001_12-06-2012.txt
1002_11-05-2012.txt
1003_02-11-2012.txt

Re: autoincrement special number

ok tks for code! no all is clear about function.

Re: autoincrement special number

ok tks... how to call this function?

I need to autoincrement the string MyString="00.00.00", similar version in vb6, how to?

example for initial value =00.00.00

00.00.00 +1=00.00.01
00.00.01+1=00.00.02

Re: set reference of .OCX va code

Quote from snb;635495

Code

Sub tst()
For Each fr In Application.VBE.ActiveVBProject.References
c00= c00 & fr.fullpath
Next
if instr(c00 & vblf , vblf & "c:\mydir\myocx.ocx" & vblf)=0 then Application.VBE.ActiveVBProject.References.AddFromFile "c:\mydir\myocx.ocx"
End Sub

TKX for code , but i dont see where i put my path of OCX and how to start the macro?

Is possible to add in the reference of my workbook an extrnal .OCX from c:\mydir\myocx.ocx via code?

Skip this operation if in the Reference Library already exists the .OCX

Re: dictionary distinct value

Stanley here the wbook, tks.

I loop with a simple for next a value in column...
i need to fill a dictionary collection with distinct value from column...
How to in vba for excel?