antonio carreon

B. Día, sin tanto rollo, por que no usas la función de excel =extraer() y luego la de =concatenar() y así podrás quitar los campos en blanco a partir del numero de caracteres que le indiques y despu concatenas las celdas que deseas.

Según veo tu código debe correr pero te paso un tip: Desde el editor vba ejecuta el proceo paso a paso con la tecla <F8> y en el menu ver activa la ventana "inmediato", anteponiendo, anteponiendo el carácter <?> Antes del nombre de la variable, en la...

Esta instrucción te puede ayudar: ActiveWorkbook. Save La vas a incluir después de ejecutar la marco antes del "end" asi: ActiveWorkbook. Save end sub,

Aunque tu pregunto es muy abrierta te daré un consejo, crea una macro en donde hagas la conversión a la antidad que deses que se decuente si vende es 400 mls y deseas que se descuenten 4000 usa la función selec case...….. end select, el resultado de...

Antes de responde a como la pregunta del como "programar la apertura y cierre del puerto com1 o 2 o n", te pregunto, tu pc ¿tiene puerto serial?, osea tiene un pin conocido como db9 (que tiene una hilera de 5 hoyitos y otra de 4), ahora si lo tiene,...

Yo utilizo este código para usar el recordset: Importante ! Checa si ya tienes agregada la referencia de microsoft ADO ext 2.8 agregada Set cn = CreateObject("ADODB.Connection") conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "data...

Me imagino que te refieres listbox en especifico, bueno te voy a pasar una rutina que a mi me da resultados, espero que te funcione. private sub lista_existencias_click() items = me.lista_existencias.listcount sheets(hoja_actual).select...

Manuel yo utilizo esta macro para generar el pdf te la comparto: Public HOJA_ACTUAL As String Private Sub CMD_ACEPTAR_Click() Dim nombre_pdf As String On Error GoTo errores nombre_pdf = TextBox1 ruta_pdf = "C:\PEDIDOS DEL SISTEMA\" & nombre_pdf &...

Estoy de acuerdo con Icue González, por otra parte si lo que tienes en el formulario es una tabla y quieres que los datos de la tabla que esta en el formulario se agreguen a la tabla que tu le indiques, prueba usando una consulta de actualización,...

Quizás esta rutina te funcione o te de alguna idea, es para un checkbox (activeX) Private Sub CheckBox1_Change() With CheckBox1 If .Value = True Then .Caption = "" CheckBox2.Value = False CheckBox3.Value = False Else .Caption = "" End If End With End Sub