Visual Basic

Dim n As Integer
n = CInt(textbox.Text)

Sub Delete_Row_Excel_VBA()
Dim n As Integer
n = CInt(tbxRow.Text)
Rows(n).Select
Selection.Delete Shift:=xlUp
End Sub

<br />
<blockquote class="FQ"><div class="FQA">veon cheng wrote:</div>tbxRow.Text</blockquote><br />

<br />
Dim Something as Int<br />
With ActiveWorkbook<br />
Sheets("Name of worksheet").Select<br />
Range ("A1").Select<br />
Something = Selection.Value<br />
Range ("B1").Select<br />
Selection.Value = Something<br />
<br />

Dim dt As DataTable = New DataTable("MyTable")

Dim conn as New SqlConnection(connString)
Dim sql as String = "SELECT * FROM SomeTable"
Try
  conn.Open()
  Dim cmd As New SqlCommand(sql,conn)
  Dim da As New SqlDataAdapter(cmd)
  da.Fill(dt)
  conn.Close()
  cmd.Dispose()
Catch ex As Exception
End Try

DataGridView1.DataSource = dt

Private Sub Command1_Click()
On Error GoTo ErrorHandler
Error 424 'This error is displayed when there is a missing object
Exit Sub
ErrorHandler:
MsgBox "Error Number: " & Err.Number & " With The Description ->> " & Err.Description & " <<- Occured."
End Sub

Private Sub CommandButton3_Click()
On Error GoTo ErrorHandler
Error 424 'This error is displayed when there is a missing object
Exit Sub
Dim Wk As Worksheet
Set Wk = Sheets.Add
ss = tbx_name.Text
Application.DisplayAlerts = False
Wk.Name = ss
ErrorHandler: MsgBox "Error Number: " & Err.Number & " With The Description ->> " & Err.Description & " <<- Occured."
End Sub