Listbox a array en VB6 quitando repetidos

Preguntas y respuestas relacionadas

Nombre de archivo en filedialog

Estuve checando la ayuda de VBA y encontre el filedialog ya mas o menos entendi las funciones que realiza. Ahora la rutina para abrir este control es la siguiente Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd =...
1 respuesta

Ayuda con access y vba!

Tengo varios formularios y cuando uno de ellos se abre quiero comprobar si otro esta abierto. Ya que si el otro esta abierto realizara una cosa y si no realizara otra. ¿Me explico? A ver si alguien me puede ayudar.
1 respuesta

Impresion de informe crystal report desde VB

Tengo un problema al imprimir en forma apaisada en Crystal Report, así como para seleccionar el tamaño de la página. La aplicación desarrollada con vb6, Access y cr5 selecciona la impresora destino desde un combobox. Esta impresora no tiene por que...
1 respuesta

Te dejo el código de Eliminar fila sin tomar en cuenta la fila 1 y 2

Sub BorrarFilas() Dim i As Integer, nfilas As Integer, qCrit As String Sheets("FACT").Select nfilas = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count qCol = InputBox("Columna del criterio") qCrit = Application.InputBox(prompt:="Criterio" & CDbl(0))...
1 respuesta

Macro de mayúsculas, con un problema

Tengo esta macro para todo mayúsculas: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(" A12:A41,C12:C41")) Is Nothing Then Target.Value = AMayusculas(Target.Value) End If End Sub Y en un modulo: Public Function...
2 respuestas

Comparar 2 hojas y sacar una tercera

DAN tengo el siguiente caso: En un mismo archivo 3 hojas: Inventario, toma-física, sobrantes-faltante. Debo comparar la columna A de inventario con la columna A de toma-física y colocar lo que este en Inventario que no este en toma-física en la...
2 respuestas

Como conseguir mensajes correlativos según campos vacíos

Y aprendices! Necesito crear una serie de mensajes correlativos en vba al hacer click en el botón guardar. El problema es que no me funciona. El código es el siguiente: Private Sub cmdGuardarObra_Click() Dim respuesta As Integer respuesta =...
1 respuesta

Que le falta a este código para que funcione, el objeto es oculta las fillas en blanco de una plantilla de cotizaciones y es:

Sub OcultarFilasEnBlanco() Range("B8:K37").Select Do While ActiveCell.Value <> "" If ActiveCell.Value = " " Then ActiveCell.EntireRow.Hidden = True End If ActiveCell.Offset(1, 0).Select Loop End Sub
1 respuesta

Bloquear Campos de access si se encuentran con información access

Soy nueva en la web y tengo una la siguiente pregunta: Tengo un base de datos y quiero que al ingresar los campos que se consulten que son son los que tienen información la rutina bloque los campos para evitar que sean modificados, y al dar clic en...
2 respuestas

Como cambiar esta parte del código

Amigo esperto melodiando por aqui tambien logre encontrar este ejemplo para usar un formulario con usuario y clave En el ThisWorkbook utilizo esto según el ejemplo que aparece en este página de todoexpertos Private Sub Workbook_Open()...
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema