calvuch

Ya, y en que parte le estas pasando el valor al TextBox6, por que así como esta TextBox6 = Format(Val(TextBox6.Value), "#,##0") * 0.16 Estas multiplicando el 0.16 del valor contenido en el mismo control, así como esta si no le pasas algún valor antes...

¿50 espacios entre celda y celda? Es decir si el dato esta en columna A estarías pegándolo en la columna AX ( 50 hacia la derecha de A). ¿Eso?

Pega esto en el editor de Visual basic Private Sub Worksheet_Change(ByVal Target As Range) If Len(Trim([b1])) = 0 Then [b1] = "Escriba dia de la Semana" End Sub Debe ir en la hoja en que deseas que se ejecute el macro Eje: si deseas que pase esto en...

Prueba esto =si(a1>=1;si(a1<=12;10;si(a1>=13;si(a1<=20;20;si(a1>20;30;""))))) El valor evaluado (mes debe estar en A1 para efecto de este ejemplo. Si te sirvió CIERRA la pregunta bye

Si los registros calle y numero están separados por una coma "," Pues utiliza la función "Texto en columnas" que esta en la pestaña "Datos". Allí marcas el casillero "Coma" como único separador de la cadena. Y listo Te dejara la calle en una columna...

Si los cambios los haces en columna E entonces pega este script en el editor de visual basic Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then 'aca llamas a tu macro End If End Sub Cada vez que cambies el valor de la lista...

Prueba esto a ver si te sirve En un modulo inserta esto: Public InicialTime As Date Public EarlTime As Date Dim I As Integer Sub intermitente() ' vuelve intermitente una celda especifica EN ESTE CASO "A1" EarlTime = Now + TimeSerial(0, 0, 1)...

Eso lo solucionas con una tabla dinámica, es innecesario repetir la data en otra hoja.

Lo primero "el color" eso es por que en la hoja de origen en donde esta el dato el formato esta en "rojo", lo que hace la función es "traer" el vinculo y no una copia del dato, parte por cambiar el formato en el origen Lo segundo, ¿deseas qué el...

Prueba esto En un modulo pones: Sub ordena() Dim i As Long Dim c As Integer c = 1 For i = 1 To 10 If Cells(i, c) = "" Then Cells(i, c) = Cells(i, c + 1): Cells(i, c + 1) = "" If Cells(i, c + 1) = "" Then Cells(i, c + 1) = Cells(i, c + 2): Cells(i, c...