Victor Perdomo

Sub AutoOpen() Dim x As String x = prompt:="lo que sea" Application.OnTime When:=Now + TimeValue("00:30:00"), _ Name=NuevaMacro(x) End Sub Function NuevaMacro(ByVal x As String) As String NuevaMacro = "lo que sea" End Function

Ando un poco liado, así que no he tenido tiempo de responder a mucha gente, de todos modos acá te envío algo que te servirá. Lo extraje de la ayuda de office. De todos modos preguntame si tienes dudas. Sub CreateHTMLMail() 'Creates a new e-mail item...

Cambia la celda A1, por la celda en que tu tabla empieza, cualquier duda comentame. Sub imei() ''''''''''''''' celda = "A1" '<---cambia esta celda por la primera de tu tabla '''''''''''''' Dim aux As String, aux2 As String aux = InputBox("Ingrese...

Cambia en panel de control, configuración regional, personalizar el punto por la coma. Si no te sirve de esta manera comentame y veremos otra solución

Prueba esta macro y cuéntame como te fue, reemplaza las celdas que te señalo. Sub Ordenarx() Dim w1 As Worksheet Dim w2 As Worksheet Set w1 = Worksheets(1) Set w2 = Worksheets(2) ''''''''''''''''''' Encabezado1 = "A5" 'celda donde empieza el...

Creo que esta es más sencillo: Function NumeroCol(ByVal LetraCol As String) As Integer NumeroCol = Range(LetraCol & "1").Column End Function Function LetraCol(ByVal nCol As Integer) As String LetraCol = Replace(Cells(1, nCol).Address(False, False),...

Tienes un error aasi estas dejando fijo la columna B y D pero las filas varian, asi q tienes q dejas tambien fijas las filas: =BUSCARV(B2;TODOS!$B$2:$D$3879;3;FALSO) esto lo haces presionano f4

Este código Private Sub CommandButton1_Click() Set ws = Worksheets("datos") iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iFila, 1).Value = TextBox1.Value TextBox1.Value = "" End Sub Analízalo, este código lee de un textbox y lo...

Vamos a hacer lo siguiente: En la hoja1 pondrás el formato. La hoja2 servirá de control, pondrás en la celda A1:desde B1:hasta C1:celda, aunque no importa que texto le pongas, es como una guía, así que en la celda a2 pondrás la fecha inicial de...

Este control no viene por defecto debes de agregarlo, para esto pon el userform en modo diseño, ve a herramientas-controles adicionales, y buscalo en el listado