Antonio Ramos

Dante Amor respondió: H o l a: Te anexo la macro para copiar cada marca en una hoja nueva. Sub Macro1() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("Datos") For Each h In Sheets Select Case h.Name Case h1.Name Case...

Manuel Escalona respondió: ¿La variable total registros esa consulta que esta allí funciona? de ser asi 1) Declara un if para saber si total resultado es mayor a 0 eso significa que hay registros 2) Al saber si hay registros sacas por pantalla el valor que tiene total...

antares18 respondió: cadena = "select * from tabla where ano=" & CInt(Txtano.Value) &" And mes between " & Txtmesdesde.Text & " And " & Txtmeshasta.Text

Anónimo respondió: Podrías modificar tu código, como sigue: Private Sub CommandButton1_Click() Dim cadena As String If Not IsNumeric(txtano.Value) Then msgBox "El año debe ser un valor numérico", vbOkOnly, "Error" Exit Sub End If cadena = "Select * from...

Marcial C. C. respondió: Inténtalo así: Select * from tabla where campo=CInt(Txtano.Value)

Dante Amor respondió: 1. No entiendo cómo es que en un balance vas a "suma/resta/multiplicación o división de varios". 2. Tienes en alguna parte de tu archivo, ¿la relación de cuentas que pertenecen a cada renglón de la hoja "Balance"? Es decir, el renglón M40 "Ajustes...