Código botón guardar

Me permito preguntar por que tengo un problema con Excel... Espero no molestar, explico mi problema.
Necesito crear un botón gardar que me guarde los datos que están en una hoja de mi libro en un registro nuevo en una hoja diferente dentro del libro.
Me dieron este código
Private Sub CommandButton1_Click()
Dim w, w1 As Worksheets
Set w = Sheets("tabla")
Set w = Sheets("b")
x = LTrim(Str(w1.Range("A1").End(xlDown).Row + 1))
w1.Range("A" & x).Value = w.Range("B6").Value
w1.Range("B" & x).Value = w.Range("D6").Value
w1.Range("C" & x).Value = w.Range("F6").Value
w1.Range("D" & x).Value = w.Range("H6").Value
w1.Range("E" & x).Value = w.Range("J6").Value
w1.Range("F" & x).Value = w.Range("K6").Value
w1.Range("G" & x).Value = w.Range("M6").Value
w1.Range("H" & x).Value = w.Range("O6").Value
w1.Range("I" & x).Value = w.Range("Q6").Value
w1.Range("J" & x).Value = w.Range("S6").Value
w1.Range("K" & x).Value = w.Range("U6").Value
w1.Range("L" & x).Value = w.Range("V6").Value
w1.Range("M" & x).Value = w.Range("W6").Value
w1.Range("N" & x).Value = w.Range("Y6").Value
w1.Range("O" & x).Value = w.Range("Z6").Value
End Sub
Sin embrago no me funciona... Soy nuevo en excel y quiero aprenedre y así sacar el mayor provecho posible...
Subí el archivo exel que estoy creando parta que lo puedas ver... Cualquier respuesta u orientación desde ya te lo agradezco.
http://www.sise.cl/vent.xlsm
Lo estoy trabajando con excel 2007.

1 Respuesta

Respuesta
1
Veo demasiado código para guardar, aquí tienes un ejemplo para que lo adaptes.
Para grabar datos en la siguiente fila vacía:
Dim linea_libre As Long
Application.ScreenUpdating = False
Sheets("Clientes").Select
linea_libre = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(linea_libre, 1).Value = TextBox1.Text
Cells(linea_libre, 2).Value = TextBox2.Text
Cells(linea_libre, 3).Value = TextBox3.Tex 'Así sucesivamente
Por supuesto que en lugar de TextBox pones tu rango.
[email protected]
Hola de nuevo gracias por tu interés en mi problema... me permito volver a preguntar ya que lo que tu me has respondido nolo entiendo muy bien, como poner mi rango, si te das cuenta en mi archivo, necesito varias celdas que están desto de la misma fila pero en diferentes columnas... si tienes tiempo mira mi archivo aver si me puedes ayudar de manera más especifica.. de antemano muchas gracias por tu ayuda e interés.
www.sise.cl/vent.xlsm
Aunque utilicé como ejemplos Textbox, los puedes sustituir por Rangos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Código botón guardar

Me permito preguntar por que tengo un problema con Excel... Espero no molestar, explico mi problema. Tengo un libro llamado "Libro1", que a la vez contiene solamente 2 hojas, 1 llamada "hoja_formulario" y otra llamada "hoja_basededatos", como su...
1 respuesta

Capturar información de varias hojas en una nueva

Estoy tratando de automatizar la captura de información a partir de varias hojas de un mismo libro de excel, una vez grabada la macro esta solo me efectúa el proceso hasta la hoja 4 del libro y en total son 287 hojas. Que sentencia debo incluir al...
1 respuesta

Buscar dato y borrar celda derecha

Columna A Columna B Materiales Sección Cemento Cemento Clavo de 2" Clavos Pilares Cemento Cemento Cemento Clavos de 2" Clavos Necesito cambiar la sección del Material por la que yo escoja o escriba, para eso tengo un formulario que diseñe de prueba...
1 respuesta

Recorrer celdas de una columna

Tengo 4 filas con 4 textbox en un formulario que me muestran los datos de la celdas de una hoja ... Tengo los datos de las celda A2, B2, C2, D2 que se muestran en unos textbox... También los dato de las celda A3, B3, C3, D3 en otros texbox... Hasta...
1 respuesta

Buscar con un dato y copiar filas enteras que lo contengan

A5:D20, Tab_Facturas) con datos repetidos (que está en la Hoja1), necesito buscar todas las filas que tengan por ejemplo el numero dos que se encuentran en la columna "C" que es el N°. De vendedor, la columna "A" contiene el N°. De Factura, la...
1 respuesta

Macro que identifique y sume filas con características en común

Tengo un reporte del sistema de mi trabajo que arroja los resultados de partidas de un plan de cuentas. Cada partida está en una tabla. A su vez cada partida tiene composiciones donde aparecen los montos que quiero sumar. Quiero unificar partidas con...
2 respuestas

Como consultar datos de una hoja de excel a un formulario usando un combobox y guardar cambios

He creado un formulario principal en una hoja de excel, en el aparecen dos botones uno para dar de alta auditorias y el otro para realizar consultas a los registros que he dado alta así como modificaciones. En lo que respecta al alta no tengo...
1 respuesta

Macro para comparar datos de 2 libros de excel

Tengo una base la cual se alimenta con varios Excel... Llamemos les id (el num puede ser variable) yo tengo que comparar una columna de la base con una del id"el num es variable" y el dato de la casilla "a1" del id colocarlo en la columna "ah" de la...
1 respuesta

Creación masiva de carpetas en excel

Tengo el código (al final) que debería ejecutar la siguiente secuencia. 1- Leer primera línea de la hoja de calculo 2- Verificar si existe carpeta Si no existecrear carpetaCrear TXTAñadir líneas al txt>Si existeVerificar si existe txtSi no...
1 respuesta

Leer varios textbox con un bucle

Estoy con una macro en excel 2007 y necesito leer varios textbox (30 textbox) y guardar sus valores en 30 celdas diferentes. El problema es que para no colocar todas las instrucciones para cada textbox quería utilizar un for... Next para leer todos...
1 respuesta