Victor Perdomo

Para insertar más de una linea debes de usar vbNewLine que es un salto de linea y concatenarlo con el operador & con nuestro texto ejemplo: "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This...

Sub Mes() Sheets(1).Select If Range("b3") <> 0 Then With Range("b3").CurrentRegion .Columns(5) = Evaluate(.Columns(1).Address).Value .Columns(5).NumberFormat = "mmm-yy" End With End If End Sub En la parte donde dice Evaluate(. Columns(1). Address)....

Cuando quiero graficar media, max o min, creo una nueva columna y pongo por ejemplo: =SUBTOTALES(4;$A$1:$A$201) max =SUBTOTALES(5;$A$1:$A$201) min Donde $A$1:$A$201 es nuestra serie fija de datos, luego tomas esta columna y la gráficas, junto a tu...

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