Type Mismatch Error
 

I am receiving a type mismatch error on the below code.

Range("SUB!D" & i).Value = Range("SUB.CSV!D" & x) + Str(Range("SUB.CSV!F" &
x)) + " /" + Range("SUB.CSV!E" & x)

The problem is the Range("SUB.CSV!D" & x) piece of the code can sometimes
have characters, sometimes it has numbers, it varies. Is there a way around
this?

Thank you

Type Mismatch Error
 

Hi
try something like the following:

sub foo()
dim wks1 as worksheet
dim wks2 as worksheet
set wks1 = worksheets("SUB")
set wks2 = worksheets("SUB.CSV")

with wks2
wks1.range("D"&i).value = Cstr(.Range("D"&x).value) & _
cstr(.Range("F"&x).value) & "/" & Cstr(.range("E" & x).value)

end with
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


SRS Man wrote:
I am receiving a type mismatch error on the below code.

Range("SUB!D" & i).Value = Range("SUB.CSV!D" & x) +
Str(Range("SUB.CSV!F" & x)) + " /" + Range("SUB.CSV!E" & x)

The problem is the Range("SUB.CSV!D" & x) piece of the code can
sometimes have characters, sometimes it has numbers, it varies. Is
there a way around this?

Thank you

Type Mismatch Error
 

Thank you Frank.

I already had the code in place, the CSTR did the trick.
Is there a way to format the "F" range, so it is always five digits using
code? It is on the spreadsheet, but that doesn't come over.


"Frank Kabel" wrote in message
...
Hi
try something like the following:

sub foo()
dim wks1 as worksheet
dim wks2 as worksheet
set wks1 = worksheets("SUB")
set wks2 = worksheets("SUB.CSV")

with wks2
wks1.range("D"&i).value = Cstr(.Range("D"&x).value) & _
cstr(.Range("F"&x).value) & "/" & Cstr(.range("E" & x).value)

end with
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


SRS Man wrote:
I am receiving a type mismatch error on the below code.

Range("SUB!D" & i).Value = Range("SUB.CSV!D" & x) +
Str(Range("SUB.CSV!F" & x)) + " /" + Range("SUB.CSV!E" & x)

The problem is the Range("SUB.CSV!D" & x) piece of the code can
sometimes have characters, sometimes it has numbers, it varies. Is
there a way around this?

Thank you

Type Mismatch Error
 

Hi
change the line
wks1.range("D"&i).value = Cstr(.Range("D"&x).value) & _
cstr(.Range("F"&x).value) & "/" & Cstr(.range("E" & x).value)

to
wks1.range("D"&i).value = Cstr(.Range("D"&x).value) & _
format(.Range("F"&x).value,"00000") & "/" & Cstr(.range("E" &
x).value)


--
Regards
Frank Kabel
Frankfurt, Germany


SRS Man wrote:
Thank you Frank.

I already had the code in place, the CSTR did the trick.
Is there a way to format the "F" range, so it is always five digits
using code? It is on the spreadsheet, but that doesn't come over.


"Frank Kabel" wrote in message
...
Hi
try something like the following:

sub foo()
dim wks1 as worksheet
dim wks2 as worksheet
set wks1 = worksheets("SUB")
set wks2 = worksheets("SUB.CSV")

with wks2
wks1.range("D"&i).value = Cstr(.Range("D"&x).value) & _
cstr(.Range("F"&x).value) & "/" & Cstr(.range("E" & x).value)

end with
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


SRS Man wrote:
I am receiving a type mismatch error on the below code.

Range("SUB!D" & i).Value = Range("SUB.CSV!D" & x) +
Str(Range("SUB.CSV!F" & x)) + " /" + Range("SUB.CSV!E" & x)

The problem is the Range("SUB.CSV!D" & x) piece of the code can
sometimes have characters, sometimes it has numbers, it varies. Is
there a way around this?

Thank you