Private
Sub
CommandButton1_Click()
Dim
ze
As
Integer
With
Worksheets(
"Indoor"
)
For
ze = 17
To
27
Step
3
If
.Cells(ze, 6) =
""
Then
.Cells(ze, 6) = TextBox6.Value
If
.Cells(ze + 1, 5) =
""
Then
.Cells(ze + 1, 5) = TextBox7.Value
If
.Cells(ze, 6) =
""
Then
.Cells(ze, 6) = TextBox9.Value
If
.Cells(ze + 1, 5) =
""
Then
.Cells(ze + 1, 5) = TextBox10.Value
If
.Cells(ze, 6) =
""
Then
.Cells(ze, 6) = TextBox12.Value
If
.Cells(ze + 1, 5) =
""
Then
.Cells(ze + 1, 5) = TextBox13.Value
Exit
For
End
If
End
If
End
If
End
If
End
If
End
If
Next
ze
End
With
Unload
Me
End
Sub