Isaac Reyes

Supongo que tu duda va en ¿Cómo poder sumar los datos de la columna?, si es así, esto te puede ser útil: suma=0 For i = 1 To Me.DataGrid1.ApproxCount suma = suma + Me.DataGrid1.Columns(0).CellValue(i) Next Este trozo de código suma todos los datos...

Yo utilizaría el CommonDialog, pero como no conozco a cabalidad el contexto de tu proyecto, aquí te dejo algo que te puede ayudar. Saludos. Dim colores Private Sub Combo1_Click() Me.Text1.BackColor = colores(Me.Combo1.ListIndex) End Sub Private Sub...

Todo parece estar bien en tu consulta. No sé si lo has intentado, pero prueba a hacer lo siguiente: - Pones la consulta en una variable. Ej: SQL = "select * from stocksv where fecha = #" & date & "#" - Luego envías un mensaje con un InputBox InputBox...

Para poder ayudarte con mayor exactitud necesito saber: ¿De qué forma te conectas a la base de datos? ¿Ya conseguiste ingresar los datos en el dataGrid?

activedocument.saveas filename:= carta & ".doc" En esta línea de código carta es una variable.

Si estoy entendiendo bien, para solucionar tu problema debería utilizar un ciclo for de la siguiente forma For i = 1 To Sheets.Count If ListBox1.Value = Sheets(i).Name Then Sheets(i).Select End If Next Aunque una forma más eficiente de lograr lo...

Una forma sencilla de hacerlo, es agregar un parámetro más a tu procedimiento (en tu ejemplo, una función) de la siguiente forma Public Function contabilizar_fact(cta, doc, debe, haber,campoTexto) Resta, dentro de la función, poner la asignación...

Tomé el grabador de macros (Herramientas>macro>Grabar nueva macro...) y al eliminar la columna C me arrojó este código: Sub Macro1() ' ' Macro1 Macro ' Macro grabada el 31/08/2009 ' ' Columns("C:C").Select Selection.Delete Shift:=xlToLeft End Sub...

Para darte una ayuda más precisa, necesito saber 1. En qué momento quieres cargar cada imagen (¿quieres qué se carguen todas de una vez?). En este momento tu código se ejecuta cada vez que modificas el contenido de una celda. 2. En qué lugar quieres...

Si quieres que te retorne un valor, no debes utilizar Public Sub , sino Public Function