Hi all again,

does anyone know VBA code to select value ranges both in
colum A and B, based on not NULL values in colum B. In
other words, select A and B according how many values in
B. And then save it as csv file.
exp.: Select A and B but only where B= 2,3,4, not (A:B)

A | B
-------
1 | 2
1 | 3
1 | 4
3
4

Thank you all in advance,

Will

Will,

Try something like:

Sub Export_csv()
Dim cntr As Long
Range("A1").Select
cntr = 0
'put a valid path and the desired filename in the next line
Open "C:\SomeFolder\SomeFile.csv" For Output As #1
Do
If Not IsEmptyl(Activecell.Offset(cntr,1)) Then
Print #1, Activecell.Offset(cntr,0) & "," &
Activecell.Offset(cntr,1) & ","
End If
cntr = cntr + 1
If IsEmpty(Activecell.Offset(cntr,0)) Then Exit Do
Loop
Close #1
End Sub

HTH,
Nikos


"Will" wrote in message
...
Hi all again,

does anyone know VBA code to select value ranges both in
colum A and B, based on not NULL values in colum B. In
other words, select A and B according how many values in
B. And then save it as csv file.
exp.: Select A and B but only where B= 2,3,4, not (A:B)

A | B
-------
1 | 2
1 | 3
1 | 4
3
4

Thank you all in advance,

Will

Nikos, thanks a lot,

I need to learn VBA, what book would you recommend?

Greece is the beautiful country and great people!!!
It is important that Greece will host 2004 Olympic, the
place were it was born. I wish I had time to travel to
your country, perhaps some day.

Thanks again,
Sergey

-----Original Message-----
Will,

Try something like:

Sub Export_csv()
Dim cntr As Long
Range("A1").Select
cntr = 0
'put a valid path and the desired filename in the next
line
Open "C:\SomeFolder\SomeFile.csv" For Output As #1
Do
If Not IsEmptyl(Activecell.Offset(cntr,1)) Then
Print #1, Activecell.Offset(cntr,0) & "," &
Activecell.Offset(cntr,1) & ","
End If
cntr = cntr + 1
If IsEmpty(Activecell.Offset(cntr,0)) Then Exit Do
Loop
Close #1
End Sub

HTH,
Nikos


"Will" wrote in
message
...
Hi all again,

does anyone know VBA code to select value ranges both in
colum A and B, based on not NULL values in colum B. In
other words, select A and B according how many values in
B. And then save it as csv file.
exp.: Select A and B but only where B= 2,3,4, not (A:B)

A | B
-------
1 | 2
1 | 3
1 | 4
3
4

Thank you all in advance,

Will



.