paramisolo

La macro es esta: rivate Sub CommandButton1_Click() Dim n As Range palabra_a_buscar = InputBox("Introduce la palabra a buscar", "BUSCADOR") Set n = Cells.Find(What:=palabra_a_buscar) If n Is Nothing Then MsgBox "No he encontrado nada. Lo siento."...

Vale pero dime como identifico los chques pagados y en que celdas pueden estar, es que así sin conocer nada es difícil. >Un saludo >Julio

Por lo que veo tienes 2 libros, uno la plantilla que abres y otro el que guardas como, evidentemente el que guardas si tiene el valor pero la plantilla no primero tienes que decirle que guarde y después que guarde como seguirás teniendo 2 libros pero...

Creaté unas variables, una para las hojas y otra para la información, trabaja con ellas haciendo solo una macro y después intercalas Un Do While... Loop Si necesitas más aclaración me lo dices.

Prueba de esta forma Dim va1 As Integer Dim va2 As Integer ActiveChart.SeriesCollection(1).XValues = "='ALTA-PROYECTO'!R " & va1 & " C10:R22C13" ActiveChart.SeriesCollection(1).Values = "='ALTA-PROYECTO'!R " & va2 & " C10:R24C13" De todas formas si...

Mirate esta otra contestación y saca tus conclusiones http://foros.emagister.com/tema-imprimir_documento_combinado_a_exce-12890-659972-1.htm >Un saludo >Julio

Vamos a ver necesito aclaraciones, cuando te refieres a soldadores ¿quieres decir el oficio de soldador? Cuantos son, el porcentaje de rechazo lo entiendo, y la fecha es la fecha en la que se comprobó el rechazo. Necesitaríamos otra columna en la que...

Si es fácil, ¿pero al final de la tabla te refieres en la ultima fila en blanco? No te entiendo si ya esta en blanco para que quieres insertar una fila en blanco, nunca pasaras de 65535 filas tu hoja. Aclarame si quieres la fila encima de la ultima...

Para estas cosas pequeñas no hace falta complicarse mucho, si la clave es la misma te haces un archivo de texto, la escribes, la copias y la tienes en memoria del portafolios de windows, y cada vez que te aparezca la petición de clave, pues ya sabes...

El código para poner en tu CheckBox sería este: Private Sub CheckBox1_Change() If Range("A1") >= 7 Then CheckBox1.Value = 1 End If If Range("A1") < 7 Then CheckBox1.Value = 0 End If End Sub El valor 1 para los Checkbox es activado, y el 0 es...