Cadipas spain

Con este código creo que se puede hacer lo que quieres: Entiendo que en la celda A1 seleccionas una fecha por ejemplo "01-02-2010" que te muestra Febrero del 2010, y a partir de esa selección se despliega los días del mes del 1 al 31 y en la senda...

Vamos a ir por partes: Con el primer código obtendríamos el valor de la suma de las celds seleccionadas '--------------------------------------- Sub sumaymarca() mirango = Replace(Selection.Address, "$", "") total = 0 For Each mi In Selection total =...

No estoy muy seguro de haber entendido bien la pregunta, pero voy a intentarlo: En la nueva hoja que creas cada día, los datos de los nº de código los colocas en la columna B, en la celda contigua (columna D) tendrías que poner algo parecido a esto:...

Una posible solución sería utilizando fórmulas. Por ejemplo si la cantidad esta en la celda A8 y en horizontal ponemos las cantidades a desglosar, por ejemplo en la celda B7=20000, en la C7= 10000, en la D7=5000, etc... las distintas fórmulas podrían...

Dime por ejemplo: que fórmula utilizas en la hoja dos para contar los blancos, etc... es para ver que tengo que modificar, o proponerte otras alternativas si las hay...

Utiliza esto: TextBox1 = Sheets("hoja1").Range("a3") Con esta línea, el dato que has calculado en la celda A3 de la Hoja1, se va a escribir en el textbox1 de tu formulario

Prueba el siguiente código: '-------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets("hoja2").Select Sheets("hoja2").Range("B65536").End(xlUp).Offset(1, 0).Select Selection = Range("a1")...

Prueba éste código. Si no sabes nada de programación, es fácil, solo tienes que seguir loa pasos que te indico. Pincha con el ratón derecho en la pestaña de la hoja1, y selecciona VER CÓDIGO, y pegas las siguientes lineas en la parte derecha de la...

No entiendo muy bien que quieres copiar y en donde pero ahí va una aproximación. Selecciono del fichero qne el que estoy el rango desde A1 al ultimo dato de la columna A y lo copio en la A1 del libro destino.xls, atención de esta forma machaca lo que...

Para que no escriban números te puede servir esto: Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) numero = KeyCode If numero < 106 And numero > 95 Then TextBox1 = Left(TextBox1, Len(TextBox1) - 1) End If End Sub