Juan Carlos González Chavarría

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

En teoría no deberían cambiar.

CriteriaRange:=">="FechaIni, CriteriaRange:="<="FechaFin, CopyToRange:=Range("B1:N1")

Si puede ser por medio de macro, pero necesito que la empieces y te ayudo en los errores que tengas.