Display Text when Button is checked

[eagerbeav3r]

i dont seem to make progress bcs I dont have experience. Maybe you guys can help me out.

If a button is checked i want it to display the text in a free cell from A1 to A14. I tried .TypeText „…“ but that does not work.

Help is much appreciated

 

[Micron]

So put "the text" in an empty cell between A1 and A14, otherwise do nothing?
Perhaps put this between the beginning and end of your button click event. Note that Range reference may not work as written - depends on where you put this code. You might have to further qualify it such as Sheets("yourSheetNameHere").Range("A"& i)

Dim i As Integer

For i = 1 to 14
  If Range("A" & i) = "" Then
    Range("A" & i) = "the text"
  End If
Next

 

[eagerbeav3r]

So put "the text" in an empty cell between A1 and A14, otherwise do nothing?
Perhaps put this between the beginning and end of your button click event. Note that Range reference may not work as written - depends on where you put this code. You might have to further qualify it such as Sheets("yourSheetNameHere").Range("A"& i)

Dim i As Integer

For i = 1 to 14
  If Range("A" & i) = "" Then
    Range("A" & i) = "the text"
  End If
Next

Thanks for the reply. The code is working but it displays the text in every free cell ranging 1-14. Is there a way to only display it once in one free cell ranging 1-14?

 

[Micron]

This should do that. Might not be what you really need if that code is contained within other code. In that case, use Exit For , not Exit Sub.

Dim i As Integer

For i = 1 to 14
  If Range("A" & i) = "" Then
    Range("A" & i) = "the text"
    Exit Sub
  End If
Next

 

[eagerbeav3r]

Maybe this helps. As you see in the Picture below I got a Series of buttons. Each button will display different text to the Cells in A.
Is there a way to get the text of the button which is pressed first in A 1 the Second one in A 2.
It should depend on the order in which they are pressed rather than the button itself.

Because there are going to be more buttons i dont want the order to be set in stone.

 

[Micron]

So now you want the button caption to be written to the next empty cell in column A, but do not go beyond A14? Then the only way I know how to do that in Excel vba is to have the same sub for each button.

Dim i As Integer

For i = 1 to 14
If Range("A" & i) = "" Then
Range("A" & i) = ActiveControl.Caption
Exit Sub
End If
Next

 

[eagerbeav3r]

So now you want the button caption to be written to the next empty cell in column A, but do not go beyond A14? Then the only way I know how to do that in Excel vba is to have the same sub for each button.

Dim i As Integer

For i = 1 to 14
If Range("A" & i) = "" Then
Range("A" & i) = ActiveControl.Caption
Exit Sub
End If
Next

Okay this solved it thank you so much. I kept forgetting to Exit the Sub, that was the Problem...