Hi,

I am placing information to a worksheet via vba code and the wrap is not
working. How do I correct this? Here is my code:

Sub SaveTenantName(Choice)

With MainPagepg

'save Tenants Name
With .Cells(Choice, 6)
.NumberFormat = "General"
.HorizontalAlignment = xlLeft
.WrapText = True
.Value = frmStoreData.txtTenantName.Value
End With

End With

End Sub
--
Thanks for your help.
Karen53

I realize now the wrap is there but the row height is not adjusting to show
the text.
--
Thanks for your help.
Karen53


"Karen53" wrote:

Hi,

I am placing information to a worksheet via vba code and the wrap is not
working. How do I correct this? Here is my code:

Sub SaveTenantName(Choice)

With MainPagepg

'save Tenants Name
With .Cells(Choice, 6)
.NumberFormat = "General"
.HorizontalAlignment = xlLeft
.WrapText = True
.Value = frmStoreData.txtTenantName.Value
End With

End With

End Sub
--
Thanks for your help.
Karen53

Hi,

I've added row autofit but it still is not sizing. What am I doing wrong?

Sub SaveTenantName(Choice)

With MainPagepg

'save Tenants Name
With .Cells(Choice, 6)
.NumberFormat = "General"
.HorizontalAlignment = xlLeft
.WrapText = True
.Value = frmStoreData.txtTenantName.Value
End With
.Rows(Choice & ":" & Choice).EntireRow.AutoFit
End With

End Sub
--
Thanks for your help.
Karen53


"Karen53" wrote:

Hi,

I am placing information to a worksheet via vba code and the wrap is not
working. How do I correct this? Here is my code:

Sub SaveTenantName(Choice)

With MainPagepg

'save Tenants Name
With .Cells(Choice, 6)
.NumberFormat = "General"
.HorizontalAlignment = xlLeft
.WrapText = True
.Value = frmStoreData.txtTenantName.Value
End With

End With

End Sub
--
Thanks for your help.
Karen53

Try this change
from:
With MainPagepg
to:
With sheets(MainPagepg)

or

With sheets("MainPagepg")

"Karen53" wrote:

Hi,

I've added row autofit but it still is not sizing. What am I doing wrong?

Sub SaveTenantName(Choice)

With MainPagepg

'save Tenants Name
With .Cells(Choice, 6)
.NumberFormat = "General"
.HorizontalAlignment = xlLeft
.WrapText = True
.Value = frmStoreData.txtTenantName.Value
End With
.Rows(Choice & ":" & Choice).EntireRow.AutoFit
End With

End Sub
--
Thanks for your help.
Karen53


"Karen53" wrote:

Hi,

I am placing information to a worksheet via vba code and the wrap is not
working. How do I correct this? Here is my code:

Sub SaveTenantName(Choice)

With MainPagepg

'save Tenants Name
With .Cells(Choice, 6)
.NumberFormat = "General"
.HorizontalAlignment = xlLeft
.WrapText = True
.Value = frmStoreData.txtTenantName.Value
End With

End With

End Sub
--
Thanks for your help.
Karen53

Hi,

Thank you for your suggestions. I'm using the sheets code name, though.
They did not work.
--
Thanks for your help.
Karen53


"Joel" wrote:

Try this change
from:
With MainPagepg
to:
With sheets(MainPagepg)

or

With sheets("MainPagepg")

"Karen53" wrote:

Hi,

I've added row autofit but it still is not sizing. What am I doing wrong?

Sub SaveTenantName(Choice)

With MainPagepg

'save Tenants Name
With .Cells(Choice, 6)
.NumberFormat = "General"
.HorizontalAlignment = xlLeft
.WrapText = True
.Value = frmStoreData.txtTenantName.Value
End With
.Rows(Choice & ":" & Choice).EntireRow.AutoFit
End With

End Sub
--
Thanks for your help.
Karen53


"Karen53" wrote:

Hi,

I am placing information to a worksheet via vba code and the wrap is not
working. How do I correct this? Here is my code:

Sub SaveTenantName(Choice)

With MainPagepg

'save Tenants Name
With .Cells(Choice, 6)
.NumberFormat = "General"
.HorizontalAlignment = xlLeft
.WrapText = True
.Value = frmStoreData.txtTenantName.Value
End With

End With

End Sub
--
Thanks for your help.
Karen53