Entiendo que en el momento que tuviera dos celdas consecutivas sin fórmula que tuviera que recuperar ese código que planteas no me valdría, porque estoy copiando una fórmula que no existe de la celda de arriba en la celda de abajo de ella.
imagino que con borrar unas lineas te refieres a eliminar esos registros, estirar hacia abajo la tabla y en las nuevas líneas creadas añadirlos al final con los datos que tuvieran los antiguos, con las fórmulas arrastradas y creadas de nuevo. Entonces habria que escribir a mano todos los datos de cada columna a rellenar de todas las filas nuevas, dando lugar a cometer errores de copia/pega o reeescritura. Además, los registros los tengo ordenados con cierto orden , le perdería.
es lo que comentaba antes, era solución funcional trabajando con un excel en el mismo idioma en los dos ordenadores, por eso esto queda descartado, ya que por lo que veo excel no reconoce las funciones de un idioma a otro.
No sé, la verdad que me sorprende un poco que no se pueda hacer lo que planteo aquí al inicio.. Al final me voy a conocer todos los foros, ajja. Un saludo!
Por
MANTONIOPM, · publicado
Hola amigos, tengo varios un combobox en un formulario dentro de excel, en un caso tengo cargado mediante el siguiente codigo:
Sub UserForm_Initialize()Plan_inver.List = Array("FERUM", "PLANREP", "PMD", "FRYPMA")
Arrastre.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011")
Prog_ant.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011")
Prioridad.List = Array("1 ALTA", "2 MEDIA", "3 BAJA", "REQUERIDO")
End Sub
en el otro caso estoy cargando los valores mediante la utilidad RowSource.
El inconveniente que tengo es que cuando envío los valores seleccionados en el combobox, no funciona y se carga siempre el primer valor.
Por favor si me podrían ayudar a solucionar, el codigo que estoy usando es:
Private Sub CommandButton8_Click()
Dim Datume, Zone, List_parr As String
Range("B3").Value = Nom_proy.Text
Range("C3").Value = Plan_inver.List
Range("D3").Value = Arrastre.List
Range("E3").Value = Prog_ant.List
Range("F3").Value = Prioridad.List
Range("G3").Value = Provincia.List
Range("H3").Value = Canton.RowSource
List_parr = Parroquias.RowSource
Range("I3").Value = List_parr
Range("J3").Value = Coord_x.Text
Range("K3").Value = Coord_y.Text
Datume = Datum1.RowSource
Range("L3").Value = Datume
Zone = Zona1.RowSource
Range("M3").Value = Zone
End Sub