jcvelez

jcvelez

 Buenos Aires, Argentina @jcvelez desde - visto
Preguntar

Actividad pública reciente

Ha valorado "Excelente" la respuesta

La fecha del formulario es texto como convertir a numero

respondió: Si tienes un textbox o un control de fecha, puedes utilizar la función CDate( ) Por ejemplo: Sheets("Hoja2").Range("B2") = CDate(TextBox1.Value) Sheets("Hoja2").Range("B4") = CDate(DTPicker1.Value) . 'S aludos. Dante Amor. Recuerda valorar la...
Ha valorado "Excelente" la respuesta

Sumar celdas de un mismo color en Excel 2003

respondió: ¿El color lo pusiste con formato condicional? Envíame tu archivo para revisarlo y me explicas con unos ejemplos lo que quieres sumar.
Ha valorado "Excelente" la respuesta

Macro en Excel 2003 Etiquetas para inventario

respondió: Lo de las columnas lo entiendo, si quieres 3 por columna tendrías esto: 300 301 302 303 304 305 ¿Pero no entendí a qué te refieres con 6 filas? Puedes poner el ejemplo
Ha valorado "Excelente" la respuesta

Macro Copiar Lista En Otra Hoja

respondió: ¿Quieres pasar los números de la hoja1 a la hoja2? Pero no entendí cómo están en la hoja1 y cómo los quieres en la hoja2. ¿Puedes poner un ejemplo de cómo están en la hoja1 y cómo los quieres?
Ha valorado "Excelente" la respuesta

Formulario con almanaque emergente Excel 2003 (va dirigida a Dante Amor)

respondió: Prueba con esto: Calendar1.Value = Date También quita el evento Private Sub UserForm_Click() y mejor pon el evento Activate: Private Sub UserForm_Activate() Calendar1.Value = Date End Sub
Ha valorado "Excelente" la respuesta

Modificar el Informe Mensual(va dirigida a Dante Amor)

respondió: Prueba con la tabla dinámica, puedes filtrar por fecha, por cliente o código.
Ha valorado "Excelente" la respuesta

Planilla Anual (va dirigida a Dante Amor)

respondió: Te anexo la macro del informa anual Sub InformeAnual() 'Por.Dante Amor u = Hoja9.Range("A" & Rows.Count).End(xlUp).Row If u < 3 Then u = 3 Hoja9.Range("A2:P" & u).ClearContents ' 'u = Hoja4.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To...
Ha valorado "Excelente" la respuesta

Planilla de Consumo Mensual (va dirigida a Dante Amor)

respondió: Te anexo los cambios para las existencias 'totales For i = 2 To Hoja10.Range("A" & Rows.Count).End(xlUp).Row Hoja10.Cells(i, "O") = Application.Sum(Hoja10.Range("C" & i & ":N" & i)) Hoja10.Cells(i, "P") = Hoja10.Cells(i, "O") / m Set b =...

Mejores respuestas proporcionadas