Jump to content

jreynosa

Members
  • Content Count

    14
  • Joined

  • Last visited

  1. Solo para presentarme, soy mexicano y me gusta elmundo maravilloso de excel.
  2. Apoyo con esta rendicion de Caja
  3. Hola Bueno Dias, necesito de su apoyo con el siguiente reporte de caja la cuestion es la siguiente me gustaria que en la "columa D" ingreso o gasto cuando ponga en la celda "D18" G se lo reste a la celda "M17" y lo coloque en "M18" y si colo "I" que lo reste., no se que me puedan recomendar si con formula o una macro saludos. Reporte.xls
  4. Doy por solucionado el tema ya logre lo que queria.
  5. Buen dia Gente.. Alguna Sugerencia ya que cuando selecciono una fila en excel doy clic en el boton "enviar datos" los manda excelente. pero suele pasar que por equivocacion vuelvamos a seleccionar esa fila y damos clic y lo que quiero es que ya no los envia repetidos. Espero su Aporte. Anexo Codigo. Private Sub CommandButton1_Click() Dim sql As String Dim cn As Object Dim rst As Object Dim PP As Long rowCursor = Activecell.Row sql = "Insert Into Reporte(Cliente, Dim, Tipo, Mate, NoRodillo, Cond, HoraCromado, RA, Picos, Temp, ReversaA, ReversaT, CromadoA, CromadoT, Volts, CondA, RAB, PicosA, Celda ) " & _ "VALUES ('" & Cells(rowCursor, 1) & "', '" & Cells(rowCursor, 2) & "', '" & Cells(rowCursor, 3) & "', '" & Cells(rowCursor, 4) & "', '" & Cells(rowCursor, 5) & "', '" & Cells(rowCursor, 6) & "', '" & Cells(rowCursor, 7) & "', '" & Cells(rowCursor, 8) & "', '" & Cells(rowCursor, 9) & "', '" & Cells(rowCursor, 10) & "', '" & Cells(rowCursor, 11) & "', '" & Cells(rowCursor, 12) & "', '" & Cells(rowCursor, 13) & "', '" & Cells(rowCursor, 14) & "', '" & Cells(rowCursor, 15) & "', '" & Cells(rowCursor, 16) & "', '" & Cells(rowCursor, 17) & "', '" & Cells(rowCursor, 18) & "', '" & Cells(rowCursor, 19) & " ')" ' crea un objeto Connection Set cn = CreateObject("ADODB.Connection") 'cn.ConnectionString = "driver={SQL Server};server=ADM\SQLEXPRESS;database=Prueba" cn.ConnectionString = "driver={SQL Server};server=ADM\SQLEXPRESS;uid=sa;pwd=adm;database=Prueba" If sql <> vbNullString Then ' variable para al rec de ado ' abre la conexión a la base de datos ' On Error GoTo nohayinternet cn.Open ' crea un nuevo objeto recordset Set rst = CreateObject("ADODB.Recordset") ' Ejecuta el sql para llenar el recordset rst.Open sql, cn, 1, 3 ' variables para los indices de las filas y columnas C = 0 F = 0 ' recorre las columnas, añade el nombre del campo al encabezado 'ProgressBar1. ' cierra y descarga las referencias On Error Resume Next rst.Close cn.Close Set cn = Nothing Set rst = Nothing End If MsgBox "Insertado en la Tabla", vbInformation, "Insertado" 'exito: End Sub
  6. Si funciona Macro Antonio y esa es la mejor forma seleccionando. Muchas Gracias Por la Pronta Respuesta Doy por Solucionado el Tema.
  7. Hola Buen Dia Anexo esta hoja en excel para ver si me pueden ayudar un poco con esta macro la cuestion es la siguiente. En el dia tengo que hacer reportes diarios de clientes y el cual me gustaria tener esa informacion tanto en excel y sql cuando escribo en la celda 2 y al momento de dar clic en el boton enviar se envia perfecto. pero cuando escribo en la celda 3 tambien se envia la informacion solo que me repite lo que ya habia escrito en la celda 2. Creo que pudiera ser que no esta bien establecido el For, Next Este es mi Codigo para el boton y anexo el archivo por si a alguien lo necesita gracias y espero de su colaboracion. Private Sub CommandButton1_Click() Dim sql As String Dim cn As Object Dim rst As Object Dim PP As Long PP = Sheets("Hoja1").Range("A65000").End(xlUp).Row For rowCursor = 2 To PP If rowCursor = "" Then Exit For Exit Sub End If sql = "Insert Into Reporte(Cliente, Dim, Tipo, Mate, NoRodillo, Cond, HoraCromado, RA, Picos, Temp, ReversaA, ReversaT, CromadoA, CromadoT, Volts, CondA, RAB, PicosA, Celda ) " & _ "VALUES ('" & Cells(rowCursor, 1) & "', '" & Cells(rowCursor, 2) & "', '" & Cells(rowCursor, 3) & "', '" & Cells(rowCursor, 4) & "', '" & Cells(rowCursor, 5) & "', '" & Cells(rowCursor, 6) & "', '" & Cells(rowCursor, 7) & "', '" & Cells(rowCursor, 8) & "', '" & Cells(rowCursor, 9) & "', '" & Cells(rowCursor, 10) & "', '" & Cells(rowCursor, 11) & "', '" & Cells(rowCursor, 12) & "', '" & Cells(rowCursor, 13) & "', '" & Cells(rowCursor, 14) & "', '" & Cells(rowCursor, 15) & "', '" & Cells(rowCursor, 16) & "', '" & Cells(rowCursor, 17) & "', '" & Cells(rowCursor, 18) & "', '" & Cells(rowCursor, 19) & " ')" ' crea un objeto Connection Set cn = CreateObject("ADODB.Connection") 'cn.ConnectionString = "driver={SQL Server};server=ADM\SQLEXPRESS;database=Prueba" cn.ConnectionString = "driver={SQL Server};server=ADM\SQLEXPRESS;uid=sa;pwd=adm;database=Prueba" If sql <> vbNullString Then ' variable para al rec de ado ' abre la conexión a la base de datos ' On Error GoTo nohayinternet cn.Open ' crea un nuevo objeto recordset Set rst = CreateObject("ADODB.Recordset") ' Ejecuta el sql para llenar el recordset rst.Open sql, cn, 1, 3 ' variables para los indices de las filas y columnas C = 0 F = 0 ' recorre las columnas, añade el nombre del campo al encabezado 'ProgressBar1. ' cierra y descarga las referencias On Error Resume Next rst.Close cn.Close Set cn = Nothing Set rst = Nothing End If Next MsgBox "Insertado en la Tabla", vbInformation, "Insertado" 'exito: End Sub - - - - - Mensaje combinado - - - - - [ATTACH]41764.vB[/ATTACH][ATTACH]41765.vB[/ATTACH] Adjunto estas imagenes para ser mas explicito saludos. Reporte.xls
  8. Hola Buen Dia gente , subo el siguiente adjunto para ver si me pueden ayudar. la siguiente macro consiste en un reporte , el cual los datos que escribo en cada celda y le doy al boton "guardar" me los inserte en una tabla en el sql, aqui el detalle que me inserta los datos repetidamente por ejemplo: En excel 1.Cliente, Dimension,Tipo,Mate 2.Juan....,16-53......,F3....,Piedra 3.Pepe....,15-13.....,F2....,Arena Tabla SQL Juan....,16-53......,F3....,Piedra Juan....,16-53......,F3....,Piedra Pepe....,15-13.....,F2....,Arena Pepe....,15-13.....,F2....,Arena quiero que cada dato que escriba en cada celda me lo mande a la tabla y no me los repita como me pasa ahorita que me manda todos. o talves me gustaria tener algun BOTON para vaciar celdas ya que es mucha informacion Bueno si me pueden Apoyar Gracias! report.xls
  9. Buenas Tardes Gente a continuacion les dejo un ejemplo basico de macros que crea BD,Tabla,LEE,escribe me funciona bien en windows xp., lo probe en windows 7 y no funciona, Si alguien tiene algo referente por compartir o algun tip., Algun Ejemplo de estar escribiendo Datos en excel y que los este guardando al SQL, me seria de gran ayuda ya que la BD ya la tengo creada ya solo quiero estar alimentandola atraves de excel Soy nuevo en esto, pero me estoy esforzando para adquirir algunos conocimientos. Espero de su Colaboracion gracias. Test.rar
  10. Muchisimas Gracias Macro Antonio., Me funciono a la Perfeccion., Doy el tema como SOLUCIONADO Hasta Pronto Compañeros!
  11. SQL SERVER compañero - - - - - Mensaje combinado - - - - - Me Manda: Se ha producido el error '-2147467259(80004005)' en tiempo de ejecucion
  12. Buen dia gente., aqui subo un ejemplo el cual les pido de la manera mas atenta si me pueden asesorar en la conexion a un servidor SQL desde excel, me seria de gran utilidad el aporte., De una vez doy las gracias por si alguien me echa la mano Saludos Cordiales Ejemplo de Conexion Y Consultas.xls Ejemplo de Conexion Y Consultas.xls
  13. Hola Buen Dia Gente, Es mi primer post en el Foro Quero Dar las gracias por este gran aporte que brindan! Despues Paso a lo Siguiente., Tengo un simpre formulario el cual contiene un boton me crea una Base Datos en SQL otro que crea la Tabla y Poateriormente Introducir los Datos , Los Datos me los Agrega perfectamente al Excel, Pero lo que quiero es que tambien los Pegue en la Tabla de la Base de Datos SQL. Si alguien me puede suguerir Algo Estoy Disponible Graciass! Base de Datos.rar
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5