Error de compilación, los comentarios solamente pueden aparecer después de un End sub.

Preguntas y respuestas relacionadas

Busqueda parcial en Listview

Necesito realizar una busqueda en un listview, pero quiero que sea una busqueda parcial para que no necesariamente tecleen todo el nombre para que lo pueda encontrar, mira este es mi codigo y funciona pero solo si capturan el nombre completo. Private...
1 respuesta

No puedo pasar a excel formulario filtrado de access

Estimados BUenas tardes tengo el siguiente código y no logro pasar a excel los datos filtrados. Me. CtlTodos. SetFocus On Error GoTo sol_err 'Declaramos las variables Const nombreHoja As String = "CDatos" Const nombreTabla As String = "DIPRDEP5" Dim...
1 respuesta

Formula para buscar texto y devolver valor de todas las celdas contiguas en que aparezca

Supongo que no estarás deprimido con ese nombre). Tengo un problema que no doy resuelto por más fórmulas que intente. Te lo explico con en siguiente ejemplo: A B C D E 1 Apellidos Ciudad Resultado Apellidos y Ciudad Resultados 2 Sánchez Ferrol...
1 respuesta

Error en bucle for por declaracion de variable

Viendo una de tus respuestas di con una solución para llenar varios ComboBox. Mi código es el siguiente Private Sub Worksheet_Activate() Dim CN As Object Dim RsProfe As Object Dim t, c, cb, o As String 'Tabla, campo, consulta, objeto formulario Dim...
1 respuesta

Validar stock en tablas vinculadas

Tengo unas tablas vinculadas, y he creado este código para validar el stock: Dim vBob, vTBob As Variant Dim rst As Recordset Dim vFecha, vTfecha As Variant Dim vEnvio, vTEnvio As Variant Dim vstoc As Boolean vBob = Me.num_bob.Value vEnvio =...
1 respuesta

Criterio macro analizar ultima fila activa y a partir de allí borrar filas en blanco hacia abajo

Tengo el siguiente macro en excel: Sub Cargar_Asiento() Dim NRO_ASIENTO ' CONSISTENCIA DE LA CARGA If Range("H50") = "Asiento Correcto" Then ' COPIANDO CARGA DE DATOS DE ASIENTO Range("A10:H47").Select Selection.Copy ' UBICARSE AL FINAL DE LA BASE DE...
1 respuesta

DRAG & DROP en el mismo formulario

Tengo un problema al mandar filas completas de un listview a otro, estoy haciendo un drag-drop, pero al arrastrar la(s) filas del listview1 al listview2, solo me copia o me manda la los datos de la primera columna, y lo que yo necesito es poder...
1 respuesta

Concatenar registros

Un experto de aquí contestó hace tiempo a una pegunta similar. Lo que quiero es concatenar los registros del campo "email" separados por ";". Este es el código que dio: Private Sub Comando14_Click() Dim r As Recordset bu = FreeFile Open "fichero.txt"...
1 respuesta

Añadir valores a un cuadro combinado

Quiero añadir campos a un cuadro combinado de empresas, el cual actualiza otro con la zona de l a empresa correspondiente, lo que quiero es lo siguiente: que al capturar el nombre de una empresa y no exista, me pregunte que si la quiero añadir al...
1 respuesta

Necesito ayuda sobre un error 3027 en un formulario con DAO en una base de datos

Es una pregunta muy tonta, pero me está trayendo un dolor de cabeza terrible! Estoy trabajando con un formulario donde utilizo DAO, y al ejecutar diferentes consultas me surge el error 3027 en tiempo de ejecución. No se puede actualizar. Base de...
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema