Code:
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("1").Activate
Range("b2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
If ActiveCell.Row >= [3!a1] And ActiveCell.Column < 6 Then
MsgBox ("KRAJ UNOSA - VIŠE NIJE DOZVOLJENO"), vbQuestion, "MAGDIC"
Exit Sub
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value
ActiveCell.Offset(0, 3) = TextBox4.Value
ActiveCell.Offset(0, 4) = TextBox5.Value
ActiveCell.Offset(0, 5) = OptionButton1.Value
ActiveCell.Offset(0, 6) = OptionButton2.Value
ActiveCell.Offset(0, 7) = OptionButton3.Value
ActiveCell.Offset(0, 8) = OptionButton4.Value
End Sub
Evo ovo je ceo kod za popunjavanja
[Ovu poruku je menjao Jpeca dana 31.03.2009. u 12:47 GMT+1]