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
Lo que quiero lograr con el codigo es poder sumar los datos de una celda con los de mi formulario.
Aunque ya logre que se sumaran, esto es solo en la celda No. 3 y no se me ocurre una forma en la que pueda abarcar todas las celdas.
Asi que muchas gracias por la ayuda y este es el codigo que eh estado utilizando:
Dim fila As Integer
Dim final As Integer
For fila = 3 To 1000
Dim suma As Integer
Dim i As Integer
i = TextBox7.Value
'Range esta localizado en el primer codigo por lo tanto va a sumar con los datos de esa celda
suma = Hoja3.Range("E" & 3).Value
If Hoja5.cells(fila, 1) = "" Then
final = fila
Exit For
End If
Next
If MsgBox("Estan Correctos Los Datos" + Chr(13) + "Deseas Continuar", vbOKCancel) = vbOK Then
'Aqui empiezan los codigos de cada celda
If TextBox2 = "AF1968" Then
Hoja3.Range("E" & 3).Value = UserForm2.TextBox7
Hoja3.Range("E" & 3).Value = suma + i
End If
If TextBox2 = "AF25707" Then
Hoja3.Range("E" & 4).Value = UserForm2.TextBox7
Hoja3.Range("E" & 4).Value = suma + i
End If
If TextBox2 = "AF25732" Then
Hoja3.Range("E" & 5).Value = UserForm2.TextBox7
Hoja3.Range("E" & 5).Value = suma + i
Solo coloque los tres primeros codigos, los codigos llegan hasta el 295 .
De Antemano Gracias