Thread: New value in a cell

Hi
I'm using this to write a new value in a empty cell
With Worksheets("Ark1")
Set cell = .Cells(Rows.Count, 1).End(xlUp)
End With
If Not IsEmpty(cell) Then Set cell = cell(2)
cell.Value = antal

this code insert a new postin collum A

Now my problem is that i have 2 values i want to ahve in collum
A and B How do i do that?

regards

Alvin

if i understand, you wnt something in the cell next to it?

cell.offset(0,1).value = "your 2nd value"

--


Gary


"alvin Kuiper" <alvinKuiper@discussions.microsoft.com> wrote in message
news:23944627-115B-4692-909F-7324998D80BF@microsoft.com...
> Hi
> I'm using this to write a new value in a empty cell
> With Worksheets("Ark1")
> Set cell = .Cells(Rows.Count, 1).End(xlUp)
> End With
> If Not IsEmpty(cell) Then Set cell = cell(2)
> cell.Value = antal
>
> this code insert a new postin collum A
>
> Now my problem is that i have 2 values i want to ahve in collum
> A and B How do i do that?
>
> regards
>
> Alvin
>
>
>

Hi

- first , you may want to put a dot '.' in front of the property Rows.Count.
- now to get the cell to the right of the variable cell, you can use :
cell.Offset(0,1)

With Worksheets("Ark1")
Set cell = .Cells(.Rows.Count, 1).End(xlUp)
End With
If Not IsEmpty(cell) Then Set cell = cell(2)
cell.Value = antal
cell.Offset(0,1).Value = ...
--
Regards,
Sébastien
<http://www.ondemandanalysis.com>


"alvin Kuiper" wrote:

> Hi
> I'm using this to write a new value in a empty cell
> With Worksheets("Ark1")
> Set cell = .Cells(Rows.Count, 1).End(xlUp)
> End With
> If Not IsEmpty(cell) Then Set cell = cell(2)
> cell.Value = antal
>
> this code insert a new postin collum A
>
> Now my problem is that i have 2 values i want to ahve in collum
> A and B How do i do that?
>
> regards
>
> Alvin

thanks its working

best regards
ALivn


"sebastienm" wrote:

> Hi
>
> - first , you may want to put a dot '.' in front of the property Rows.Count.
> - now to get the cell to the right of the variable cell, you can use :
> cell.Offset(0,1)
>
> With Worksheets("Ark1")
> Set cell = .Cells(.Rows.Count, 1).End(xlUp)
> End With
> If Not IsEmpty(cell) Then Set cell = cell(2)
> cell.Value = antal
> cell.Offset(0,1).Value = ...
> --
> Regards,
> Sébastien
> <http://www.ondemandanalysis.com>
>
>
> "alvin Kuiper" wrote:
>
> > Hi
> > I'm using this to write a new value in a empty cell
> > With Worksheets("Ark1")
> > Set cell = .Cells(Rows.Count, 1).End(xlUp)
> > End With
> > If Not IsEmpty(cell) Then Set cell = cell(2)
> > cell.Value = antal
> >
> > this code insert a new postin collum A
> >
> > Now my problem is that i have 2 values i want to ahve in collum
> > A and B How do i do that?
> >
> > regards
> >
> > Alvin
>

Yes thank you

Alvin

"Gary Keramidas" wrote:

> if i understand, you wnt something in the cell next to it?
>
> cell.offset(0,1).value = "your 2nd value"
>
> --
>
>
> Gary
>
>
> "alvin Kuiper" <alvinKuiper@discussions.microsoft.com> wrote in message
> news:23944627-115B-4692-909F-7324998D80BF@microsoft.com...
> > Hi
> > I'm using this to write a new value in a empty cell
> > With Worksheets("Ark1")
> > Set cell = .Cells(Rows.Count, 1).End(xlUp)
> > End With
> > If Not IsEmpty(cell) Then Set cell = cell(2)
> > cell.Value = antal
> >
> > this code insert a new postin collum A
> >
> > Now my problem is that i have 2 values i want to ahve in collum
> > A and B How do i do that?
> >
> > regards
> >
> > Alvin
> >
> >
> >
>
>
>