Hi all,
I am trying to find some answers to to where i would find how to have a chosen radio button auto write initials to a column in excel when textbox writes in same row...
please dont write it...just someone point me where to start looking...
the concept is when the radio button is clicked it will auto put initials in while also writing local computer time to DTG (date time group) to respected column, then i want it to add value to each row and if value is written then write to next line...i am very new to this and you can
knock me all you want when you look at the code because it is very skeleton based but i am very new to this shiza and honestly trying to learn...
thanks
SGT V
vb
Public Class Form1
Dim ApExcel As Object 'To open Excel
Public Sub New()
ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True '
ApExcel.Workbooks.Add()
ApExcel.cells(1, 1).Formula = "DTG"
ApExcel.cells(1, 2).Formula = "EVENT"
ApExcel.cells(1, 3).formula = "INITIALS"
ApExcel.Range("A1:A3").BORDERS.Color = RGB(0, 0, 0)
ApExcel.Range("A1:Z1").BORDERS.Color = RGB(0, 0, 0)
'change the borders.
ApExcel.Columns("A:AY").EntireColumn.autofit() 'To adjust the
'column's width.
ApExcel.Range("A:Z").Select()
ApExcel.Selection.NumberFormat = "0"
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbsund.CheckedChanged
End Sub
End Class
Mod Edit: Please use code tags when posting your code. Code tags are used like so =>
Thanks,
PsychoCoder
This post has been edited by PsychoCoder: 21 Aug, 2008 - 08:43 PM
| 