Excel Question

AricC

Does anyone know how to select all of the fields in the column that are populated? I want to select all of column B and paste new info in, however I don't want to populate the fields by selecting all of column B. I would highlight all of them then copy but it's 11000 rows and it takes forever to do.

Thanks,
AC

albertw

Does anyone know how to select all of the fields in the column that are populated? I want to select all of column B and paste new info in, however I don't want to populate the fields by selecting all of column B. I would highlight all of them then copy but it's 11000 rows and it takes forever to do.

Thanks,
AC

hi

try a button and this small macro
assuming NewInfo for all cell in Column B is same ?

Expand|Select|Wrap|Line Numbers

  
Private Sub CommandButton1_Click()

NewInfo = InputBox("Enter new info", "Info")

If Not NewInfo = vbNullString Then

Counter = 0

Do

Range("B1").Offset(Counter, 0).Value = NewInfo

Counter = Counter + 1

Loop Until Counter = 11000

End If

End Sub

AricC

A button in excel? How do you add a button in excel?

albertw

A button in excel? How do you add a button in excel?

hi
simply click with your right mousebutton on the menubar
select visual basic
from the shown window select toolbox and edit mode
select button from the toolbox
when in editmode you may doubleclick this button to gain access to the codepage, or use Alt+F11

AricC

What about one that doesn't require hard coded value like 11000? Is that possible?

albertw

What about one that doesn't require hard coded value like 11000? Is that possible?

hi
yes possible, search in same column for first item to be empty

Expand|Select|Wrap|Line Numbers

 
Private Sub CommandButton1_Click()

NewInfo = InputBox("Enter new info", "Info")

If Not NewInfo = vbNullString Then

Counter = 0

Do

Range("B1").Offset(Counter, 0).Value = NewInfo

Counter = Counter + 1

Loop Until Range("B1").Offset(Counter, 0).Value = vbNullString

End If

End Sub

Excel Question

Post your reply

Similar topics