Juan Carlos González Chavarría

Dim SigFila SigFila = Application.WorksheetFunction.CountA (Range("A:A")) + 1 Cells(SigFila, 1).Value = TextBox3.Text Cells(SigFila, 2).Value = TextBox1.Text Cells(SigFila, 3).Value = TextBox2.Text

¿Tienes algún código hecho?

Voy a suponer que tienes 10 hojas, la fórmula sería: =SUMA(Hoja2:Hoja6!L36:L90)

MiHora = Format(Range("A1").Value, "hh:mm") MsgBox MiHora

Las comillas solo van al inicio y al final "##.###.###-#"

Prueba con Application.DisplayAlerts = False al inicio del código.

Mejor me mandas tu archivo para entender bien. [email protected]

Private Sub Text1_KeyPress(KeyAscii As Integer) If Not IsNumeric(Chr(KeyAscii)) Then Beep KeyAscii = 0 End If End If End Sub

Dim MiDato As String MiDato = InputBox("Dato a cambiar.", "Datos", "www.prueba.text") Range("F8").Select With Selection.QueryTable .Connection = _ "URL;http://" & MiDato & "custcode=1.00045678"

Eso pasa porque al crear la Tabla la dejaste con el rango hasta donde llegaban los datos. Tienes que ir Tabla por Tabla y extender el rango, por ejemplo, si antes llegaba hasta H9, entonces pones H30000